home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / source / chap29 / mod129.bas < prev    next >
Encoding:
BASIC Source File  |  1995-07-11  |  3.2 KB  |  34 lines

  1. Attribute VB_Name = "Module1"
  2. Option Explicit
  3.  
  4. Declare Function sqlalloconnect Lib "odbc.dll" (ByVal henv As Long, phdbc As Long) As Integer
  5. Declare Function sqlallocenv Lib "odbc.dll" (ByVal phenv As Long) As Integer
  6. Declare Function SQLAllocStmt Lib "odbc.dll" (ByVal hdbc As Long, phstmt As Long) As Integer
  7. Declare Function SQLBindCol Lib "odbc.dll" (ByVal hstmt As Long, ByVal icol As Integer, ByVal fCType As String, ByVal rgbValue As Any, ByVal cbValueMax As Long, pcbValue As Long) As Integer
  8. Declare Function SQLCancel Lib "odbc.dll" (ByVal hstmt As Long) As Integer
  9. Declare Function SQLColAttributes Lib "odbc.dll" (ByVal hstmt As Long, ByVal icol As Integer, ByVal fDescType As Integer, rgbDesc As Any, ByVal cbDescMax As Integer, pcbDesc%, pfDesc As Long) As Integer
  10. Declare Function SQLConnect Lib "odbc.dll" (ByVal hdbc As Long, ByVal szDSN As String, ByVal cbDSN As Integer, ByVal szUID As String, ByVal cbUID As Integer, ByVal szAuthStr As String, ByVal cbAuthStr As Integer) As Integer
  11. Declare Function SQLDescribeCol Lib "odbc.dll" (ByVal hstmt As Long, ByVal icol As Integer, ByVal szColName As String, ByVal cbColNameMax As Integer, pcbColName As Integer, pfSqlType As Integer, pcbColDef&, pibScal As Integer, pfNullable As Integer) As Integer
  12. Declare Function SQLDisconnect Lib "odbc.dll" (ByVal hdbc As Long) As Integer
  13. Declare Function SQLError Lib "odbc.dll" (ByVal henv As Long, ByVal hdbc As Long, ByVal hstmt As Long, ByVal szSqlState As String, pfNativeError As Long, ByVal szErrorMsg As String, ByVal cbErrorMsgMax As Integer, pcbErrorMsg As Integer) As Integer
  14. Declare Function SQLExecDirect Lib "odbc.dll" (ByVal hstmt As Long, ByVal szSqlStr As String, ByVal cbSqlStr As Long) As Integer
  15. Declare Function SQLExecute Lib "odbc.dll" (ByVal hstmt As Long) As Integer
  16. Declare Function SQLFetch Lib "odbc.dll" (ByVal hstmt As Long) As Integer
  17. Declare Function SQLFreeConnect Lib "odbc.dll" (ByVal hdbc As Long) As Integer
  18. Declare Function SQLFreeEnv Lib "odbc.dll" (ByVal henv As Long) As Integer
  19. Declare Function SQLFreeStmt Lib "odbc.dll" (ByVal hstmt As Long, ByVal fOption As Integer) As Integer
  20. Declare Function SQLGetCursorName Lib "odbc.dll" (ByVal hstmt As Long, ByVal szCursor As String, ByVal cbCursorMax As Integer, pcbCursor As Integer) As Integer
  21. Declare Function SQLNumResultCols Lib "odbc.dll" (ByVal hstmt As Long, pccol As Integer) As Integer
  22. Declare Function SQLPrepare Lib "odbc.dll" (ByVal hstmt As Long, ByVal szSqlStr As String, ByVal cbSqlStr As Long) As Integer
  23. Declare Function SQLRowCount Lib "odbc.dll" (ByVal hstmt As Long, pcrow As Long) As Integer
  24. Declare Function SQLSetCursorName Lib "odbc.dll" (ByVal hstmt As Long, ByVal szCursor As String, ByVal cbCursor As Integer) As Integer
  25. Declare Function SQLSetParam Lib "odbc.dll" (ByVal hstmt As Long, ByVal ipar As Integer, ByVal fCType As Integer, ByVal fSqlType As Integer, ByVal cbColDef As Long, ByVal ibScale As Integer, rgbValue As Any, pcbValue As Long) As Integer
  26. Declare Function SQLTransact Lib "odbc.dll" (ByVal henv As Long, ByVal hdbc As Long, ByVal fType As Integer) As Integer
  27.  
  28. Public Const SQL_SUCCESS = 0
  29. Public Const SQL_ERROR = -1
  30. Public Const SQL_SUCCESS_WITH_INFO = 1
  31. Public Const SQL_INVALID_HANDLE = -2
  32. Public Const SQL_NO_DATA_FOUND = 100
  33.  
  34.