加一个data控件
data1.databasename="*.mdb"
data1.recordsourse="table"
data1.recordset.findfirst "字段='" & 变量 & "'"
if data1.recordset.nomatch=false then
变量=data1.recordset("字段")
else
end if
加一个data控件
data1.databasename="*.mdb"
data1.recordsourse="table"
data1.recordset.findfirst "字段='" & 变量 & "'"
if data1.recordset.nomatch=false then
变量=data1.recordset("字段")
else
end if
加一个data控件
data1.databasename="*.mdb"
data1.recordsourse="table"
data1.recordset.findfirst "字段='" & 变量 & "'"
if data1.recordset.nomatch=false then
变量=data1.recordset("字段")
else
end if
Private Sub GetFieldData()
dim myDb as Database,myRS as Recordset
Set myDb=Opendatabase(DatabasePath & "My.MDB",False,False)
Set myRS=MyDB.OpenRecord("MyTable",dbOpenTable,dbReadonly)
txtFieldData=myRS.Fields("MyFieldName")
...
...
myRS.Close
myDB.Close
End Sub