UC知道VB连接Access并进行查询
来源：百度知道 编辑：UC知道 时间：2024/06/04 07:49:29
需要实现vb连接access后（Database数据库文件中的H-D数据表）,根据vb界面上的A、B、C、三个控件的数据进行搜索，将所得到的记录的DD、EE、FF值赋值给vb界面的D、E、F控件。
目前已做了链接代码，如下，能否帮我完善查询部分？
Dim nConn as Object,nRs As Object,SQL As String
Set nConn=CreateObject("ADODB.Connection")
Set nRs=CreateObject("ADODB.Recordset")
nConn.Open "Driver={Microsoft Access Driver (*.mdb)};UID=;PWD=密码;DBQ=C:\Program Files\Database.mdb"
SQL="Select * from H-D"
请问qinchnwpu，能否帮我再明确一点，因为初学，很是搞不懂！其中，H-D数据表中，各字段分别定义为“ID（主键，只用于计数）、A、B、C、DD、EE、FF”
具体到“nRs.Open(SQL, nConn, （选择参数）,（选择参数）) _____然后用nRs就可以操作记录集了。”语句时，能帮我给出响应代码嘛？
在以下语句这里，提示我缺少"="
nRs.Open(SQL, nConn, adOpenKeyset, adLockOptimistic)
目前已做了链接代码，如下，能否帮我完善查询部分？
Dim nConn as Object,nRs As Object,SQL As String
Set nConn=CreateObject("ADODB.Connection")
Set nRs=CreateObject("ADODB.Recordset")
nConn.Open "Driver={Microsoft Access Driver (*.mdb)};UID=;PWD=密码;DBQ=C:\Program Files\Database.mdb"
SQL="Select * from H-D"
请问qinchnwpu，能否帮我再明确一点，因为初学，很是搞不懂！其中，H-D数据表中，各字段分别定义为“ID（主键，只用于计数）、A、B、C、DD、EE、FF”
具体到“nRs.Open(SQL, nConn, （选择参数）,（选择参数）) _____然后用nRs就可以操作记录集了。”语句时，能帮我给出响应代码嘛？
在以下语句这里，提示我缺少"="
nRs.Open(SQL, nConn, adOpenKeyset, adLockOptimistic)
'如果要加括号写成如下
'dim temp
'temp=nRs.Open(SQL, nConn, adOpenKeyset, adLockOptimistic)
'把括号去了.
nRs.Open SQL, nConn, adOpenKeyset, adLockOptimistic
'我这里假设A,B,C,D,E,F 为文本框控件.
nRs.Filter "A='" & A.Text & "' and B='" & B.Text & "' and C='" & C.Text & "'"
On error resume next
If nRs.RecordCount > 0 Then
D.Text = nRs!DD
E.Text = nRs!EE
F.Text = nRs!FF
End If
'以前的连接有点错误,不知道你那设置如何，下面的代码应该可以
dim nConn as ADODB.Connection
dim nRs as ADODB.Recordset
On Error GoTo ErrorHandle '错误跳转
Set nConn = new ADODB.Connection
Set nRs = new ADODB.Recordset
'连接数据库
nConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Database.mdb;Persist Security Info=False;Jet OLEDB:Database Password=密码"
'获得符合条件的记录集
SQL="S