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
编辑特别推荐:
一个简单实用的vb加密/解密算法
利用磁盘的序列号进行软件加密