class dbaseopr
dim conn
Private Sub Class_Initialize
thisFileDir = replace(window.location.href,"file:///","")
thisFileDir = unescape(replace(thisFileDir,"/","\"))
thisFileDir =left(thisFileDir,instrRev(thisFileDir,"\"))
thedbase = thisFileDir & "dbase\" & "通讯录.mdb"
Set conn = CreateObject("ADODB.Connection")
strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & thedbase
conn.open strConn
end sub
Public Sub updateinfo(thedic,tabname,wherename,strwhere)
for each thevalue in thedic
next
End Sub
Public Function selectallinfo(tabname,wherename,strwhere)
sql="select * from " & tabname
if len(wherename)<>0 then
sql=sql & " " & wherename & "="
if isnumeric(strwhere) then
sql=sql & strwhere
else
sql=sql & "'" & strwhere & "'"
end if
Set rs=CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,3
set selectallinfo=rs
end if
End function
Private Sub Class_Terminate
Set conn=nothing
end sub
end class