VB如何对数据库记录进行访问。

[hx]

我想访问某一条记录的某一字段值。

[bamyl]

你用的是什么？ADO？DAO？RDO？

通过记录集操作就可以了。

[Tyro]

首先打开一个记录集，然后找到你要的记录
通过rst("fieldname")可以获得你想要的值

[无言无忌]

以下例子利用代码访问Access97数据库

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

[lczddd]

加一个data控件
data1.databasename="*.mdb"
data1.recordsourse="table"
data1.recordset.findfirst "字段='" & 变量 & "'"
if data1.recordset.nomatch=false then
变量=data1.recordset("字段")
else
end if

[lczddd]

加一个data控件
data1.databasename="*.mdb"
data1.recordsourse="table"
data1.recordset.findfirst "字段='" & 变量 & "'"
if data1.recordset.nomatch=false then
变量=data1.recordset("字段")
else
end if

[lczddd]

加一个data控件
data1.databasename="*.mdb"
data1.recordsourse="table"
data1.recordset.findfirst "字段='" & 变量 & "'"
if data1.recordset.nomatch=false then
变量=data1.recordset("字段")
else
end if

[hx]

感谢各位虾道同仁，对本人的关照，小可在此先谢了（想：可不可以不给分）
不敢，如能可行，一定另再表谢意。

什么ADO，DAO的，多谈。。多谈啦，来什么要什么了。

[hx]

感谢各位虾道同仁，对本人的关照，小可在此先谢了（想：可不可以不给分）
不敢，如能可行，一定另再表谢意。

什么ADO，DAO的，多谈。。多谈啦，来什么要什么了。

[songs]

太简单了！！！！！！！！！

[无言无忌]

你这人不要老玩电脑了，科技书店的书架上多的是这方面的书，找本书自己读读，想要什么有什么