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

Question

如题所述

Answer 1

‘先在工程引用'Mircosoft ActiveX Data Objects
’然后写代码（前提是已经装好access）

Dim rstemp As ADODB.Recordset
Dim strCNN As String, strSQL as String
Dim record1, record2

Set rstemp = New ADODB.Recordset
strCNN = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\kkk.mdb";Persist Security Info=True;"
strSQL = " select * from myTable " '查询位于d:\kkk.mdb的access中的myTable表的所有记录
rstemp.Open strSQL, strCNN

'----------------------------------
'在这里插入你的代码，查询的结果已经读入到rstemp中了
‘假设kkk.mdb里的mytable表中有ID，Name这两个字段
if not rsbook.EOF then '如果记录指针不在结束标记的位置，即如果表里面有记录，记录不为零的话
record1 = rstemp.Fields(0) '字段ID的第一条记录的值
record2 = rstemp.Fields(1) ‘字段Name的第一条记录的值
rstemp.MoveNext ‘移到下一条记录
record1 = rstemp.Fields(0) '字段ID的第二条记录的值
record2 = rstemp.Fields(1) ‘字段Name的第二条记录的值
end if
’申此类推，可用循环来读取所有记录，只要判断rsbook.EOF标记是否为true就能知道是否已经到了结尾处
'----------------------------------
Set rstemp = Nothing
End Function

Answer 2

通过ADO技术可以实现
写好Connection对象以及Recordset对象，将Text的Caption属性赋值给Recordset对象记录到的字段值即可

Answer 3

例子：
.....
text1.text=RS.Fields("编号")
其它类同。