1,217
社区成员




添加两个过程
Public Sub Init_Connection(cn As ADODB.Connection)
cn.CursorLocation = 3
End Sub
Public Sub Rs_Active_Connection(rs As ADODB.Recordset)
rs.CursorLocation = 3
rs.CursorType = 3
Set rs.ActiveConnection = cn
End Sub
'执行SQL语句前,加上这两句
call init_connection
call rs_active_connection(rst)
'执行SQL语句
rst.open strsql