home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / sfi / vbxctdem / sqldef.bas < prev    next >
BASIC Source File  |  1995-03-17  |  12KB  |  124 lines
  1. Declare Function CompileDate Lib "sqlvbxct.vbx" () As String
  2. Declare Function SombreroVersion Lib "sqlvbxct.vbx" () As String
  3. Declare Function VBCT_con_alloc Lib "sqlvbxct.vbx" (ByVal ctx_pointer As Long, con_pointer As Long) As Long
  4. Declare Function VBCT_con_drop Lib "sqlvbxct.vbx" (ByVal con_pointer As Long) As Long
  5. Declare Function VBCT_init Lib "sqlvbxct.vbx" (ByVal ctx_pointer As Long, ByVal version As Long) As Long
  6. Declare Function VBCT_install_callbacks Lib "sqlvbxct.vbx" (ByVal ctx_pointer As Long, ByVal ctype As Long) As Long
  7. Declare Function VBCT_deinstall_callbacks Lib "sqlvbxct.vbx" (ByVal ctx_pointer As Long, ByVal ctype As Long) As Long
  8. Declare Function VBCT_exit Lib "sqlvbxct.vbx" (ByVal ctx_pointer As Long, ByVal eoption As Long) As Long
  9. Declare Function VBCT_config_num Lib "sqlvbxct.vbx" (ByVal ctx_pointer As Long, ByVal action As Long, ByVal property As Long, buffer As Any, outlen As Long) As Long
  10. Declare Function VBCT_config_str Lib "sqlvbxct.vbx" (ByVal ctx_pointer As Long, ByVal action As Long, ByVal property As Long, buffer As String, outlen As Long) As Long
  11. Declare Function VBCT_diag Lib "sqlvbxct.vbx" (ByVal con_pointer As Long, ByVal operation As Long, ByVal otype As Long, ByVal oindex As Long, buff As Any) As Long
  12. Declare Function VBCT_con_props_str Lib "sqlvbxct.vbx" (ByVal con_pointer As Long, ByVal action As Long, ByVal property As Long, buffer As String, outlen As Long) As Long
  13. Declare Function VBCT_con_props_num Lib "sqlvbxct.vbx" (ByVal con_pointer As Long, ByVal action As Long, ByVal property As Long, buffer As Long, outlen As Long) As Long
  14. Declare Function VBCT_capability Lib "sqlvbxct.vbx" (ByVal con_pointer As Long, ByVal action As Long, ByVal rtype As Long, ByVal capability As Long, results As Long) As Long
  15.  
  16. Declare Function VBCT_connect Lib "sqlvbxct.vbx" (ByVal con_pointer As Long, server As String) As Long
  17. Declare Function VBCT_close Lib "sqlvbxct.vbx" (ByVal con_pointer As Long, ByVal options As Long) As Long
  18. Declare Function VBCT_labels Lib "sqlvbxct.vbx" (ByVal con_pointer As Long, ByVal action As Long, labelname As String, labelvalue As String, outlen As Long) As Long
  19. Declare Function VBCT_options_str Lib "sqlvbxct.vbx" (ByVal con_pointer As Long, ByVal action As Long, ByVal soption As Long, buffer As String, outlen As Long) As Long
  20. Declare Function VBCT_options_num Lib "sqlvbxct.vbx" (ByVal con_pointer As Long, ByVal action As Long, ByVal soption As Long, buffer As Long, outlen As Long) As Long
  21.  
  22. Declare Function VBCT_cmd_alloc Lib "sqlvbxct.vbx" (ByVal con_pointer As Long, cmd_pointer As Long) As Long
  23. Declare Function VBCT_cmd_drop Lib "sqlvbxct.vbx" (ByVal cmd_pointer As Long) As Long
  24. Declare Function VBCT_cmd_props_str Lib "sqlvbxct.vbx" (ByVal cmd_pointer As Long, ByVal action As Long, ByVal property As Long, buffer As String, outlen As Long) As Long
  25. Declare Function VBCT_cmd_props_num Lib "sqlvbxct.vbx" (ByVal cmd_pointer As Long, ByVal action As Long, ByVal property As Long, buffer As Long, outlen As Long) As Long
  26. Declare Function VBCT_command_str Lib "sqlvbxct.vbx" (ByVal cmd_pointer As Long, ByVal typ As Long, cmd_string As String, ByVal opt As Long) As Long
  27. Declare Function VBCT_command_num Lib "sqlvbxct.vbx" (ByVal cmd_pointer As Long, ByVal typ As Long, message_type As Long, ByVal opt As Long) As Long
  28. Declare Function VBCT_send Lib "sqlvbxct.vbx" (ByVal cmd_pointer As Long) As Long
  29. Declare Function VBCT_cancel Lib "sqlvbxct.vbx" (ByVal con_pointer As Long, ByVal cmd_pointer As Long, typ As Long) As Long
  30. Declare Function VBCT_results Lib "sqlvbxct.vbx" (ByVal cmd_pointer As Long, result_type As Long) As Long
  31. Declare Function VBCT_res_info Lib "sqlvbxct.vbx" (ByVal cmd_pointer As Long, ByVal rtype As Long, rinfo As Long) As Long
  32. Declare Function VBCT_compute_info Lib "sqlvbxct.vbx" (ByVal cmd_pointer As Long, ByVal ctype As Long, ByVal column As Long, buffer As Any, ByVal buflen As Long, outlen As Long) As Long
  33. Declare Function VBCT_describe Lib "sqlvbxct.vbx" (ByVal cmd_pointer As Long, ByVal ditem As Long, dataformat As CS_DATAFMT, prlength As Long) As Long
  34.  
  35. Declare Function VBCS_get_client_msg Lib "sqlvbxct.vbx" (cmsg As CS_CLIENTMSG) As Long
  36. Declare Function VBCS_get_server_msg Lib "sqlvbxct.vbx" (cmsg As CS_SERVERMSG) As Long
  37. Declare Sub VBCS_decode_message Lib "sqlvbxct.vbx" (ByVal msgnumber As Long, layer As Long, origin As Long, severity As Long, number As Long)
  38.  
  39. Declare Function VBCT_do_binds Lib "sqlvbxct.vbx" (ByVal cmd_pointer As Long) As Long
  40. Declare Function VBCT_fetch Lib "sqlvbxct.vbx" (ByVal cmd_pointer As Long, ByVal ftype As Long, ByVal offset As Long, ByVal foption As Long, rows_read As Long) As Long
  41. Declare Function VBCT_data Lib "sqlvbxct.vbx" (ByVal cmd_pointer As Long, ByVal column As Long) As String
  42. Declare Function VBCT_getformat Lib "sqlvbxct.vbx" (ByVal cmd_pointer As Long, ByVal column As Long, buffer As String, outlen As Long) As Long
  43.  
  44. Declare Function VBCT_poll Lib "sqlvbxct.vbx" (ByVal ctx_pointer As Long, ByVal con_pointer As Long, ByVal miliseconds As Long, compid As Long, compstatus As Long) As Long
  45. '   CS-Library Functions
  46.  
  47. Declare Function VBCS_calc Lib "sqlvbxct.vbx" (ByVal ctx_pointer As Long, ByVal op As Long, ByVal datatype As Long, var1 As Any, var2 As Any, dest As Any) As Long
  48. Declare Function VBCS_cmp Lib "sqlvbxct.vbx" (ByVal ctx_pointer As Long, ByVal datatype As Long, var1 As Any, var2 As Any, result As Long) As Long
  49. Declare Function VBCS_config Lib "sqlvbxct.vbx" (ByVal ctx_pointer As Long, ByVal action As Long, ByVal property As Long, buffer As Any, ByVal buflen As Long, outlen As Long) As Long
  50. Declare Function VBCS_convert Lib "sqlvbxct.vbx" (ByVal ctx_pointer As Long, src As CS_DATAFMT, srcd As Any, dest As CS_DATAFMT, destd As Any, resultlen As Long) As Long
  51. Declare Function VBCS_ctx_alloc Lib "sqlvbxct.vbx" (ByVal ver As Long, ctx_pointer As Long) As Long
  52. Declare Function VBCS_ctx_drop Lib "sqlvbxct.vbx" (ByVal ctx_pointer As Long) As Long
  53. Declare Function VBCS_ctx_global Lib "sqlvbxct.vbx" (ByVal ver As Long, ctx_pointer As Long) As Long
  54. Declare Function VBCS_diag Lib "sqlvbxct.vbx" (ByVal ctx_pointer As Long, ByVal operation As Long, ByVal otype As Long, ByVal oindex As Long, buff As Any) As Long
  55. Declare Function VBCS_dt_crack Lib "sqlvbxct.vbx" (ByVal ctx_pointer As Long, ByVal datetype As Long, dateval As Any, daterec As CS_DATEREC) As Long
  56. Declare Function VBCS_dt_info Lib "sqlvbxct.vbx" (ByVal ctx_pointer As Long, ByVal action As Long, ByVal loc_pointer As Long, ByVal dtype As Long, ByVal item As Long, buffer As Any, ByVal buflen As Long, outlen As Long) As Long
  57. Declare Function VBCS_loc_alloc Lib "sqlvbxct.vbx" (ByVal ctx_pointer As Long, loc_pointer As Long) As Long
  58. Declare Function VBCS_loc_drop Lib "sqlvbxct.vbx" (ByVal ctx_pointer As Long, ByVal loc_pointer As Long) As Long
  59. Declare Function VBCS_locale Lib "sqlvbxct.vbx" (ByVal ctx_pointer As Long, ByVal action As Long, ByVal loc_pointer As Long, ByVal ltype As Long, ByVal buffer As String, outlen As Long) As Long
  60. Declare Function VBCS_objects Lib "sqlvbxct.vbx" (ByVal ctx_pointer As Long, ByVal action As Long, objname As CS_OBJNAME, objdata As CS_OBJDATA) As Long
  61. Declare Function VBCS_setnull Lib "sqlvbxct.vbx" (ByVal ctx_pointer As Long, datafmt As CS_DATAFMT, buffer As Any, ByVal buflen As Long) As Long
  62. Declare Function VBCS_strcmp Lib "sqlvbxct.vbx" (ByVal ctx_pointer As Long, ByVal loc_pointer As Long, ByVal stype As Long, str1 As String, str2 As String, result As Long) As Long
  63. Declare Function VBCS_time Lib "sqlvbxct.vbx" (ByVal ctx_pointer As Long, ByVal loc_pointer As Long, ByVal buffer As String, ByVal buflen As Long, outlen As Long, daterec As CS_DATEREC) As Long
  64. Declare Function VBCS_will_convert Lib "sqlvbxct.vbx" (ByVal ctx_pointer As Long, ByVal srctype As Long, ByVal desttype As Long, result As Long) As Long
  65.  
  66. Declare Function VBCT_wakeup Lib "sqlvbxct.vbx" (ByVal con_pointer As Long, ByVal cmd_pointer As Long, ByVal funct As Long, ByVal status As Long) As Long
  67. Declare Function VBCT_getloginfo Lib "sqlvbxct.vbx" (ByVal con_pointer As Long, loginfo As Long) As Long
  68. Declare Function VBCT_setloginfo Lib "sqlvbxct.vbx" (ByVal con_pointer As Long, ByVal loginfo As Long) As Long
  69. Declare Function VBCT_recvpassthru Lib "sqlvbxct.vbx" (ByVal cmd_pointer As Long, recv_pointer As Long) As Long
  70. Declare Function VBCT_sendpassthru Lib "sqlvbxct.vbx" (ByVal cmd_pointer As Long, ByVal send_pointer As Long) As Long
  71. Declare Function VBCT_data_info Lib "sqlvbxct.vbx" (ByVal cmd_pointer As Long, ByVal action As Long, ByVal colnum As Long, iddesc As CS_IODESC) As Long
  72. Declare Function VBCT_dynamic Lib "sqlvbxct.vbx" (ByVal cmd_pointer As Long, ByVal typ As Long, id As String, buffer As String) As Long
  73. Declare Function VBCT_dyndesc Lib "sqlvbxct.vbx" (ByVal cmd_pointer As Long, descriptor As String, ByVal operation As Long, ByVal indx As Long, datafmt As CS_DATAFMT, buffer As Any, ByVal buflen As Long, copied As Long, indicator As Integer) As Long
  74. Declare Function VBCT_get_data Lib "sqlvbxct.vbx" (ByVal cmd_pointer As Long, ByVal item As Long, buffer As Any, ByVal buflen As Long, outlen As Long) As Long
  75. Declare Function VBCT_param Lib "sqlvbxct.vbx" (ByVal cmd_pointer As Long, datafmt As CS_DATAFMT, dat As Any, ByVal datlen As Long, ByVal indicator As Integer) As Long
  76. Declare Function VBCT_remote_pwd Lib "sqlvbxct.vbx" (ByVal con_pointer As Long, ByVal action As Long, server_name As String, password As String) As Long
  77. Declare Function VBCT_send_data Lib "sqlvbxct.vbx" (ByVal cmd_pointer As Long, buffer As Any, ByVal buflen As Long) As Long
  78.  
  79.  
  80. Declare Function VBBLK_alloc Lib "sqlvbxct.vbx" (ByVal con_pointer As Long, ByVal ver As Long, blkdesc As Long) As Long
  81. Declare Function VBBLK_bind Lib "sqlvbxct.vbx" (ByVal blkdesc As Long, ByVal column As Long, datafmt As CS_DATAFMT) As Long
  82. Declare Function VBBLK_get_data Lib "sqlvbxct.vbx" (ByVal column As Long) As String
  83. Declare Function VBBLK_set_data Lib "sqlvbxct.vbx" (dat As String, ByVal column As Long) As Long
  84. Declare Function VBBLK_describe Lib "sqlvbxct.vbx" (ByVal blkdesc As Long, ByVal column As Long, datafmt As CS_DATAFMT, prlength As Long) As Long
  85. Declare Function VBBLK_done Lib "sqlvbxct.vbx" (ByVal blkdesc As Long, ByVal typ As Long, outrow As Long) As Long
  86. Declare Function VBBLK_init Lib "sqlvbxct.vbx" (ByVal blkdesc As Long, ByVal direction As Long, tablename As String) As Long
  87. Declare Function VBBLK_props_str Lib "sqlvbxct.vbx" (ByVal blkdesc As Long, ByVal action As Long, ByVal property As Long, buf As String, outlen As Long) As Long
  88. Declare Function VBBLK_props_num Lib "sqlvbxct.vbx" (ByVal blkdesc As Long, ByVal action As Long, ByVal property As Long, buf As Long, outlen As Long) As Long
  89. Declare Function VBBLK_rowxfer Lib "sqlvbxct.vbx" (ByVal blkdesc As Long) As Long
  90. Declare Function VBBLK_textxfer Lib "sqlvbxct.vbx" (ByVal blkdesc As Long, buf As String, outlen As Long) As Long
  91.  
  92. Type cs_config_userdata
  93.     userstring As String
  94. End Type
  95.  
  96. Type dt_info_string
  97.     mdy As String * 20
  98. End Type
  99.  
  100. Type dt_info_value
  101.     value As String * 4
  102. End Type
  103.  
  104.  
  105. Type char_data
  106.     cdata As String * 255
  107. End Type
  108.  
  109. Declare Function ModuleFirst Lib "toolhelp.dll" (modentry As Any) As Integer
  110. Declare Function ModuleNext Lib "toolhelp.dll" (modentry As Any) As Integer
  111.  
  112. Type moduleentry
  113.     dwsize As Long
  114.     szModule As String * 9
  115.     hModule As Long
  116.     wcUsage As Integer
  117.     szExePath As String * 255
  118.     wNext As Integer
  119. End Type
  120.  
  121. Declare Function VBGetVersionStr Lib "sqlvbxct.vbx" (filename As String, companyname As String, filedescription As String, fileversion As String, productversion As String) As Long
  122. Declare Function GetModuleHandle Lib "Kernel" (ByVal lpModuleName As String) As Long
  123.  
  124.