VB 怎样读取access表中的某字段的值,然后显示Text中?

时间：2013.09.06 发布人：kldgqmmlo
VB 怎样读取access表中的某字段的值,然后显示Text中?

已解决问题

谷歌kldgqmmlo用户在2013.09.06提交了关于“罗马斗兽场VB 怎样读取access表中的某字段的值,然后显示Text中?”的提问，欢迎大家涌跃发表自己的观点。目前共有1个回答，最后更新于2024-10-27T08:35:46。希望大家能够帮助她。

详细问题描述及疑问：期待您的答案，没有什么华丽的语言,但是我对你的感谢不会减少 ！

希望以下的回答，能够帮助你。

第1个回答

用户名：yejhv  

‘先在工程引用'MircosoftActiveXDataObjects
’然后写代码(前提是已经装好access座行上微)

DimrstempAsADODB.Recordset
DimstrCNNAsString,strSQLasString
Dimr切群化ecord1,record2

Setrstemp=NewADODB.Recordset
strCNN="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=D:\**k.mdb";PersistSecurityInfo=True;"
str问答SQL="select*frommyTable"'查询位于d:\**k.m状室家由官运两获理培db的access中的myTable表的所油掌微室依情第有记录
***.OpenstrSQL,strCNN

'--------------------------小双著甲话--------
'在这里插入你的代码，查询的结果已经读入到rstemp中了
‘假设**k.mdb里的mytable表中有队抗张次兵员科率ID，Name这材判两个字段
ifnotrsbook.EOFthen'如果记录指针不在结束标记的位置，即如果表里面有记录，记录不为零的话
record1=rstemp.Fields(0)'字段ID的第一条记录的值
record2=rstemp.Fields(1)‘字段Name的第一条记录的值
rstemp.Move研缺克州威服易气肥难Next‘移到下一条记录
record1=rstemp.Fields(0)'字段ID的第二条记录的值
record2=rstemp.Fields(1)‘字段Name的第二条记录的值
endif
’申此类推，可用循环来读取所有记录，只要判断rsbook.EOF标记是否为true就能知道是否已经到了结尾处
'-------------正额---------赵知动------------
Setrst械须清额护促显日甲失卷emp=Nothing
EndFunction