不是自己写的,我把代码写上来 Public Sub OdbcExt(ByVal TmpSQLstmt As String) If SQLAllocStmt(Hdbc, Hstmt) Then MsgBox "句柄分配失败", , "ODBC API执行错误" dbapi_disconnect End End If If SQLExecDirect(Hstmt, TmpSQLstmt, lench(TmpSQLstmt)) Then MsgBox "数据库访问语句执行失败", , "ODBC API执行错误" MsgBox TmpSQLstmt dbapi_disconnect End End If 我在调用这个函数时,到第二个if时,它执行了下面那些代码,而那个sqlexecdirect是执行sql语句的,为什么老是失败呀,是我的sql有错误才会那样的吗?望解答谢了
Public Sub OdbcExt(ByVal TmpSQLstmt As String)
If SQLAllocStmt(Hdbc, Hstmt) Then
MsgBox "句柄分配失败", , "ODBC API执行错误"
dbapi_disconnect
End
End If
If SQLExecDirect(Hstmt, TmpSQLstmt, lench(TmpSQLstmt)) Then
MsgBox "数据库访问语句执行失败", , "ODBC API执行错误"
MsgBox TmpSQLstmt
dbapi_disconnect
End
End If
我在调用这个函数时,到第二个if时,它执行了下面那些代码,而那个sqlexecdirect是执行sql语句的,为什么老是失败呀,是我的sql有错误才会那样的吗?望解答谢了
楼主为什么不用ADO呢?又简单又高效!