浙江高考理科名次:我是菜鸟 请大虾门 帮一下
来源:百度文库 编辑:神马品牌网 时间:2024/04/29 19:55:46
Private Sub Form_Load()
Private CONN As Adodb.Connection '定义ADO CONNECTION对象
Private RS As Adodb.Recordset '定义ADO RECORDSET对象
Set CONN = New Adodb.Connection
CONN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\jj\ADO.eg;Persist Security Info=False"
CONN.Open
Set RS = New Adodb.Recordset
With RS Do
ActiveConnection = CONN
CursorType = adOpenDynamic
LockType = adLockOptimistic
End With
Set RS = Nothing
CONN.Close
Set CONN = Nothing
End Sub
这个程序 哪里有错
Private CONN As Adodb.Connection '定义ADO CONNECTION对象
Private RS As Adodb.Recordset '定义ADO RECORDSET对象
Set CONN = New Adodb.Connection
CONN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\jj\ADO.eg;Persist Security Info=False"
CONN.Open
Set RS = New Adodb.Recordset
With RS Do
ActiveConnection = CONN
CursorType = adOpenDynamic
LockType = adLockOptimistic
End With
Set RS = Nothing
CONN.Close
Set CONN = Nothing
End Sub
这个程序 哪里有错