Question

vb如何查询ACCESS

数据库为hy.accdb 2个TEXTBOX,一个command，，怎么样在text1里输入ID内容，点击command之后可以把NAME 显示在TEXT2上？在线等，谢谢大家了，高分送！！！！

Answer 1

首先在工程里添加ADODB引用（这个不用告诉你怎么添加了吧）
然后将下列代码添加到你的command的click事件里
dim rs as ADODB.Recordset
dim conn as ADODB.Connection
Dim sqlStr As String
'生成连接和记录集实例
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
‘建立连接字符串，我这里假设你的数据库就在c盘根目录
conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\hy.accdb"
'打开数据库连接
conn.Open
’设置查询语句，这里我假设你表里的ID字段是文本数据类型
sqlStr = "select * from 你存放ID、name表的名字 where ID=‘“ & text1.text & ”’“
rs.Open sqlStr, conn, 1, 1 '传送查询语句
if NOT rs.EOF then
text2.tetx=rs("name")
end if

追问

rs.Open sqlStr, conn, 1, 1 '传送查询语句
这句有问题。说是：至少有一个参数没有指定值

追答

不好意思忘了关闭数据库和记录集了。可以在end if后加入如下语句
rs.close
set rs=nothing '如果这句出错可以不要，回收内存往往失败
conn.close
set conn=nothing '如果这句出错可以不要，回收内存往往失败set conn=nothing