UC知道如何用VB读取ACCESS中的内容，并显示在特写在text9.text中
来源：百度知道 编辑：UC知道 时间：2024/05/20 06:20:35
各位好！
我想写一个VB程序：
text8.text中是数字，是数据库的关键字
用SQL读取数据库，条件为数据库中的关节字和text8.text完全匹配
并把与关键字同一ID的内容显示在TEXT9.TEXT中，请问如何实现？
请给姨下代码，谢谢！我是菜鸟啊，麻烦大家了
我想写一个VB程序：
text8.text中是数字，是数据库的关键字
用SQL读取数据库，条件为数据库中的关节字和text8.text完全匹配
并把与关键字同一ID的内容显示在TEXT9.TEXT中，请问如何实现？
请给姨下代码，谢谢！我是菜鸟啊，麻烦大家了
dim conn As New ADODB.Connection
dim ConnString As String
dim sql as string
Dim rs As New ADODB.Recordset
ConnString = "provider=microsoft.jet.oledb.4.0;" & _
"data source=" & App.Path & "\数据库名.mdb;Jet OLEDB:Database Password=数据库密码"
If conn.state <> 1 Then
conn.Open (ConnString)
End If
sql="select * from 表名 where 关键字段名='" & Text8.Text & "'"
rs.Open sql, conn, adOpenKeyset, adLockPessimistic
text9.text=rs.rs.Fields(ID)
此处的ID号为你说的要在text9中显示的字段在表的位置从0开始计算,按你说的好像你的表中只有两个字段,那可能就是1了