VB 如何将以下的代码转换为ado代码？？

显示全部楼层 · 2009-7-28 13:51:48

Private Sub DataGrid1_Click()
Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\DATA_REF\db1.mdb;Persist Security Info=False"
Adodc2.RecordSource = "select * from wz_jink" & " where 物资代码 ='" & zh(1) & "'"
Adodc2.Refresh
zh(1) = Adodc1.Recordset(1)
End Sub
Private Sub Form_Load()
With Adodc1
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\DATA_REF\db1.mdb;Persist Security Info=False"

Adodc1.RecordSource = "select * from wz_BM" & _

" where 检索代码 >='" & "" & "'" & " order by 检索代码"

Adodc1.Refresh
End With
End Sub

千问 · 2009-7-28 13:51:48

这不就是ADO代码吗？怎么转换？...