7,759
社区成员
发帖
与我相关
我的任务
分享
Public m As String
Public i As String
Public m As String
Public i As String
Public flag As Integer
Public Function exesql(ByVal sql As String) As ADODB.Recordset
sql = Trim$(sql)
Set conn = New ADODB.Connection
Set rst = New ADODB.Recordset
conn.ConnectionString = "DSN=myjon;UID=sa;PWD=;"
conn.Open
Set rst.ActiveConnection = conn
rst.LockType = adLockOptimistic
rst.CursorType = adOpenKeyset
rst.Open sql
Set exesql = rst
Set rst = Nothing
Set conn = Nothing
End Function
每次一运行就是conn.Open这里出现错误