VB6 用ODBC连接数据库
2017-01-12 16:13
393 查看
遇到的问题一:
调用
死活都提出“无法获取连接句柄”
原因是在声明里(Module.bas),没有把常量写全
调用
Dim hdbc As Long '连接句柄 rc = SQLAllocConnect(henv, hdbc) '获取连接句柄 MsgBox rc If rc <> 0 Then MsgBox "无法获取连接句柄" rc = SQLFreeEnv(henv) End End If
死活都提出“无法获取连接句柄”
原因是在声明里(Module.bas),没有把常量写全
#If Win32 Then Declare Function SQLAllocEnv Lib "odbc32.dll" (env As Long) As Integer Declare Function SQLFreeEnv Lib "odbc32.dll" (ByVal env As Long) As Integer Declare Function SQLAllocConnect Lib "odbc32.dll" (ByVal env As Long, ldbc As Long) As Integer Declare Function SQLConnect Lib "odbc32.dll" (ByVal ldbc As Long, ByVal Server As String, ByVal serverlen As Integer, ByVal uid As String, ByVal uidlen As Integer, ByVal pwd As String, ByVal pwdlen As Integer) As Integer Declare Function SQLDriverConnect Lib "odbc32.dll" (ByVal ldbc As Long, ByVal hWnd As Long, ByVal szCSIn As String, ByVal cbCSIn As Integer, ByVal szCSOut As String, ByVal cbCSMax As Integer, cbCSOut As Integer, ByVal f As Integer) As Integer Declare Function SQLFreeConnect Lib "odbc32.dll" (ByVal ldbc As Long) As Integer Declare Function SQLDisconnect Lib "odbc32.dll" (ByVal ldbc As Long) As Integer Declare Function SQLAllocStmt Lib "odbc32.dll" (ByVal ldbc As Long, lStmt As Long) As Integer Declare Function SQLFreeStmt Lib "odbc32.dll" (ByVal lStmt As Long, ByVal EndOption As Integer) As Integer Declare Function SQLTables Lib "odbc32.dll" (ByVal lStmt As Long, ByVal q As Long, ByVal cbq As Integer, ByVal o As Long, ByVal cbo As Integer, ByVal t As Long, ByVal cbt As Integer, ByVal tt As Long, ByVal cbtt As Integer) As Integer Declare Function SQLExecDirect Lib "odbc32.dll" (ByVal lStmt As Long, ByVal sqlString As String, ByVal sqlstrlen As Long) As Integer Declare Function SQLNumResultCols Lib "odbc32.dll" (ByVal lStmt As Long, NumCols As Integer) As Integer Declare Function SQLDescribeCol Lib "odbc32.dll" (ByVal lStmt As Long, ByVal colnum As Integer, ByVal colname As String, ByVal Buflen As Integer, colnamelen As Integer, dtype As Integer, dl As Long, ds As Integer, n As Integer) As Integer Declare Function SQLFetch Lib "odbc32.dll" (ByVal lStmt As Long) As Integer Declare Function SQLGetData Lib "odbc32.dll" (ByVal lStmt As Long, ByVal col As Integer, ByVal wConvType As Integer, ByVal lpbBuf As String, ByVal dwbuflen As Long, lpcbout As Long) As Integer Declare Function SQLGetInfo Lib "odbc32.dll" (ByVal ldbc As Long, ByVal hWnd As Long, ByVal szInfo As String, ByVal cbInfoMax As Integer, cbInfoOut As Integer) As Integer Declare Function SQLError Lib "odbc32.dll" (ByVal env As Long, ByVal ldbc As Long, ByVal lStmt As Long, ByVal SQLState As String, NativeError As Long, ByVal Buffer As String, ByVal Buflen As Integer, Outlen As Integer) As Integer #Else Declare Function SQLAllocEnv Lib "odbc.dll" (env As Long) As Integer Declare Function SQLFreeEnv Lib "odbc.dll" (ByVal env As Long) As Integer Declare Function SQLAllocConnect Lib "odbc.dll" (ByVal env As Long, ldbc As Long) As Integer Declare Function SQLConnect Lib "odbc.dll" (ByVal ldbc As Long, ByVal Server As String, ByVal serverlen As Integer, ByVal uid As String, ByVal uidlen As Integer, ByVal pwd As String, ByVal pwdlen As Integer) As Integer Declare Function SQLDriverConnect Lib "odbc.dll" (ByVal ldbc As Long, ByVal hWnd As Integer, ByVal szCSIn As String, ByVal cbCSIn As Integer, ByVal szCSOut As String, ByVal cbCSMax As Integer, cbCSOut As Integer, ByVal f As Integer) As Integer Declare Function SQLFreeConnect Lib "odbc.dll" (ByVal ldbc As Long) As Integer Declare Function SQLDisconnect Lib "odbc.dll" (ByVal ldbc As Long) As Integer Declare Function SQLAllocStmt Lib "odbc.dll" (ByVal ldbc As Long, lStmt As Long) As Integer Declare Function SQLFreeStmt Lib "odbc.dll" (ByVal lStmt As Long, ByVal EndOption As Integer) As Integer Declare Function SQLTables Lib "odbc.dll" (ByVal lStmt As Long, ByVal q As Long, ByVal cbq As Integer, ByVal o As Long, ByVal cbo As Integer, ByVal t As Long, ByVal cbt As Integer, ByVal tt As Long, ByVal cbtt As Integer) As Integer Declare Function SQLExecDirect Lib "odbc.dll" (ByVal lStmt As Long, ByVal sqlString As String, ByVal sqlstrlen As Long) As Integer Declare Function SQLNumResultCols Lib "odbc.dll" (ByVal lStmt As Long, NumCols As Integer) As Integer Declare Function SQLDescribeCol Lib "odbc.dll" (ByVal lStmt As Long, ByVal colnum As Integer, ByVal colname As String, ByVal Buflen As Integer, colnamelen As Integer, dtype As Integer, dl As Long, ds As Integer, n As Integer) As Integer Declare Function SQLFetch Lib "odbc.dll" (ByVal lStmt As Long) As Integer Declare Function SQLGetData Lib "odbc.dll" (ByVal lStmt As Long, ByVal col As Integer, ByVal wConvType As Integer, ByVal lpbBuf As String, ByVal dwbuflen As Long, lpcbout As Long) As Integer Declare Function SQLGetInfo Lib "odbc.dll" (ByVal ldbc As Long, ByVal hWnd As Integer, ByVal szInfo As String, ByVal cbInfoMax As Integer, cbInfoOut As Integer) As Integer Declare Function SQLError Lib "odbc.dll" (ByVal env As Long, ByVal ldbc As Long, ByVal lStmt As Long, ByVal SQLState As String, NativeError As Long, ByVal Buffer As String, ByVal Buflen As Integer, Outlen As Integer) As Integer #End If Global glEnv As Long Global glDbc As Long Global sSQL As String Global Const MAX_DATA_BUFFER = 255 Global Const SQL_SUCCESS = 0 Global Const SQL_SUCCESS_WITH_INFO = 1 Global Const SQL_ERROR = -1 Global Const SQL_NO_DATA_FOUND = 100 Global Const SQL_CLOSE = 0 Global Const SQL_DROP = 1 Global Const SQL_CHAR = 1 Global Const SQL_NUMERIC = 2 Global Const SQL_DECIMAL = 3 Global Const SQL_INTEGER = 4 Global Const SQL_SMALLINT = 5 Global Const SQL_FLOAT = 6 Global Const SQL_REAL = 7 Global Const SQL_DOUBLE = 8 Global Const SQL_VARCHAR = 12 Global Const SQL_DATA_SOURCE_NAME = 6 Global Const SQL_USER_NAME = 8
相关文章推荐
- JDBC-ODBC方式连接数据库工作原理解释
- ODBC连接数据库
- ODBC 、DAO 、ADO 、OLEDB 数据库连接方式区别及联系
- 在 mac 电脑上安装 odbc 驱动;excel for mac 连接数据库
- JDBC-ODBC桥接方法连接Excel数据库的方法
- PB中通过ODBC直接连接数据库,不用注册数据源。
- 数据库连接字符串 ODBC DSN,ODBC DSN-Less, OLE DB Provider,和"MS Remote" Provider
- 数据库连接 ADO,OLEDB,ODBC,DAO的区别 转载
- ODBC连接数据库总结
- 上海十院服务器迁移心得——附ODBC连接数据库解决办法
- 创建连接ODBC数据库的文件
- ODBC连接数据库 防止忘记释放内存
- odbc使用SQLDriverConnect连接数据库
- mfc 用odbc连接数据库 sql2005
- MFC ODBC 连接本地数据库mysql
- NT IIS下用ODBC连接数据库
- VC ODBC链接 OLEDB链接 数据库连接字符串
- 韩顺平教程:使用ODBC连接数据库
- 使用ODBC连接数据库[C++]
- ODBC连接数据库1