Public conn As New ADODB.Connection 'Public rs As New ADODB.Recordset 'strcnn = "driver={sql server};server=dssserver1;uid=sa;pwd=;database=yiyuan" 'conn.Open strcnn 'SQL = "select * from menzhen where name='" & Name & "'" 'rs.Open SQL, conn, adOpenStatic, adLockBatchOptimistic ''。 ''rs.Close
1,再程序中生成一个ADO的CONNENTION和RECORDERSET对象
2,将这个RECORDERSET对象赋给ASODCD。RECORDERSER
3,这样就可以了。
'Public rs As New ADODB.Recordset
'strcnn = "driver={sql server};server=dssserver1;uid=sa;pwd=;database=yiyuan"
'conn.Open strcnn
'SQL = "select * from menzhen where name='" & Name & "'"
'rs.Open SQL, conn, adOpenStatic, adLockBatchOptimistic
''。
''rs.Close