VB问题，很棘手

来源：百度知道 编辑：UC知道 时间：2024/05/16 08:07:03
Private Sub Command7_Click()
R1.Open "select cdkey,RegistNumber from tbl_lock", conn, 1, 3
With Adodc1
Adodc1.ConnectionString = "rovider=MSDASQL.1ersist Security Info=False;Data Source=yoyowd"
Adodc1.RecordSource = "select name,cdkey,mapid,xpos,ypos from tbl_character where cdkey='" & R1.Fields("cdkey") & "' and RegistNumber ='" & R1.Fields("RegistNumber") & "'"
Adodc1.Refresh
DataGrid1.Refresh
End With
R1.Close
End Sub

代码是这么写的。我不会用ADO连接。好心人能不能把这个改成个ADO连接的？最好在指出我这个哪里错了，谢谢了

'假设你的Conn已经成功的连接至数据库
private sub command7_click()
dim rs as adodb.recordset
'你的R1不知道在什么地方定义的，如果没有定义的话，得像上面一样进行定义，并且要对它进行初始化
'dim R1 as adodb.recordset
'Set R1 = new adodb.recordset
R1.Open "select cdkey,RegistNumber from tbl_lock", conn, 1, 3
'如果没有记录返回的话则退出
if r1.bof and r1.eof then
exit sub
end if
Set rs = new adodb.recordset
rs.open "select name,cdkey,mapid,xpos,ypos from tbl_character where cdkey='" & R1.Fields("cdkey") & "' and RegistNumber ='" & R1.Fields("RegistNumber") & "'", conn, 1, 3
'最好在这里判断一下记录集的记录数，如果是空的话则跳出
if rs.bof and rs.eof then
exit sub
end if
set datagrid1.datasource = rs
datagrid1.refresh
end sub
'我没有实际运行，如果有什么错误的话，你自己改一下，大致就是这个方法了。

在使用ADO前先添加ADO 控件,点选项卡的部件,添加MICROSOFT ADO DATA CONTROL 6.0(SP6)
DIM CONN AS STRING