插入数据使用模块类模块
使用函数ExecSql运行sql语句,往数据库中插入数据,函数放入模块中运行时正常,但是放到类模块运行时就会出现错误为什么??
Public Function ExecSql(ByVal pSql As String) As Boolean
On Error GoTo ExecSql_Err:
' Set AdoConnect = New ADODB.Connection
With AdoConnect
.CommandTimeout = 10000
.Execute (pSql), , 1
.CommandTimeout = 5
End With
ExecSql = True
Exit Function
ExecSql_Err:
End Function
再类模块中运行时,运行到.CommandTimeout = 10000 .Execute (pSql), , 1时,就会出现错误,是什么原因,在模块与类模块中使用时有什么区别?