home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a025 / 10.ddi / TEXT.BAS < prev    next >
Encoding:
BASIC Source File  |  1992-03-12  |  23.1 KB  |  457 lines
  1. Rem Global Definitions
  2.  
  3. Global Const TRUE = -1
  4. Global Const FALSE = 0
  5.  
  6. Rem These handle the SQL Server connection
  7.  
  8. Global DBLIB_VERSION$
  9. Global PrimaryWindowTitle$
  10. Global SqlConn%
  11. Global ServerName$
  12. Global LoginID$
  13. Global Password$
  14. Global DatabaseName$
  15. Global SQLStatus%
  16. Global DefServer$
  17. Global DefLogin$
  18.  
  19. Rem Global declarations for Visual Basic to DB-Library translation dll.
  20. Rem Used by all apps linking with the VBSQL DLL (vbsql.vbx)
  21.  
  22. Rem Global return values for all RETCODE type functions
  23. Global Const SUCCEED% = 1
  24. Global Const FAIL% = 0
  25.  
  26. Rem return values permitted in error handlers
  27. Global Const INTEXIT% = 0
  28. Global Const INTCONTINUE% = 1
  29. Global Const INTCANCEL% = 2
  30.  
  31. Global Const MOREROWS = -1
  32. Global Const NOMOREROWS = -2
  33. Global Const REGROW = -1
  34. Global Const BUFFULL = -3
  35.  
  36. Rem Status code for dbresults(). Possible return values are
  37. Rem SUCCEED, FAIL, and NO_MORE_RESULTS.
  38.  
  39. Global Const NOMORERESULTS = 2
  40.  
  41.  
  42.  
  43. Rem option values permitted in option setting/querying/clearing
  44. Rem used by SqlSetOpt%(), SqlIsOpt%(), and SqlClrOpt%().
  45.  
  46. Global Const SQLBUFFER% = 0
  47. Global Const SQLROWCOUNT% = 2
  48. Global Const SQLSTAT% = 3
  49. Global Const SQLTEXTLIMIT% = 4
  50. Global Const SQLTEXTSIZE% = 5
  51. Global Const SQLARITHABORT% = 6
  52. Global Const SQLARITHIGNORE% = 7
  53. Global Const SQLNOAUTOFREE% = 8
  54. Global Const SQLNOCOUNT% = 9
  55. Global Const SQLNOEXEC% = 10
  56. Global Const SQLPARSEONLY% = 11
  57. Global Const SQLSHOWPLAN% = 12
  58. Global Const SQLSTORPROCID% = 13
  59.  
  60. Rem Data type token values.  Used for datatype determination for a column.
  61.  
  62. Global Const SQLTEXT% = &H23
  63. Global Const SQLARRAY% = &H24
  64. Global Const SQLVARBINARY% = &H25
  65. Global Const SQLINTN% = &H26
  66. Global Const SQLVARCHAR% = &H27
  67. Global Const SQLBINARY% = &H2D
  68. Global Const SQLIMAGE% = &H22
  69. Global Const SQLCHAR% = &H2F
  70. Global Const SQLINT1% = &H30
  71. Global Const SQLBIT% = &H32
  72. Global Const SQLINT2% = &H34
  73. Global Const SQLINT4% = &H38
  74. Global Const SQLMONEY% = &H3C
  75. Global Const SQLDATETIME% = &H3D
  76. Global Const SQLFLT8% = &H3E
  77. Global Const SQLFLTN% = &H6D
  78. Global Const SQLFLT4% = &H3B
  79. Global Const SQLMONEYN% = &H6E
  80. Global Const SQLDATETIMN% = &H6F
  81. Global Const SQLAOPCNT% = &H4B
  82. Global Const SQLAOPSUM% = &H4D
  83. Global Const SQLAOPAVG% = &H4F
  84. Global Const SQLAOPMIN% = &H51
  85. Global Const SQLAOPMAX% = &H52
  86. Global Const SQLAOPANY% = &H53
  87. Global Const SQLAOPNOOP% = &H56
  88. Global Const SQLMONEY4% = &H7A
  89. Global Const SQLDATETIM4% = &H3A
  90.  
  91.  
  92.  
  93. Rem error numbers VBSQL error codes that are passed to local error
  94. Rem handler
  95.  
  96. Global Const SQLEMEM% = 10000
  97. Global Const SQLENULL% = 10001
  98. Global Const SQLENLOG% = 10002
  99. Global Const SQLEPWD% = 10003
  100. Global Const SQLECONN% = 10004
  101. Global Const SQLEDDNE% = 10005
  102. Global Const SQLNULLO% = 10006
  103. Global Const SQLESMSG% = 10007
  104. Global Const SQLEBTOK% = 10008
  105. Global Const SQLENSPE% = 10009
  106. Global Const SQLEREAD% = 10010
  107. Global Const SQLECNOR% = 10011
  108. Global Const SQLETSIT% = 10012
  109. Global Const SQLEPARM% = 10013
  110. Global Const SQLEAUTN% = 10014
  111. Global Const SQLECOFL% = 10015
  112. Global Const SQLERDCN% = 10016
  113. Global Const SQLEICN% = 10017
  114. Global Const SQLECLOS% = 10018
  115. Global Const SQLENTXT% = 10019
  116. Global Const SQLEDNTI% = 10020
  117. Global Const SQLETMTD% = 10021
  118. Global Const SQLEASEC% = 10022
  119. Global Const SQLENTLL% = 10023
  120. Global Const SQLETIME% = 10024
  121. Global Const SQLEWRIT% = 10025
  122. Global Const SQLEMODE% = 10026
  123. Global Const SQLEOOB% = 10027
  124. Global Const SQLEITIM% = 10028
  125. Global Const SQLEDBPS% = 10029
  126. Global Const SQLEIOPT% = 10030
  127. Global Const SQLEASNL% = 10031
  128. Global Const SQLEASUL% = 10032
  129. Global Const SQLENPRM% = 10033
  130. Global Const SQLEDBOP% = 10034
  131. Global Const SQLENSIP% = 10035
  132. Global Const SQLECNULL% = 10036
  133. Global Const SQLESEOF% = 10037
  134. Global Const SQLERPND% = 10038
  135. Global Const SQLECSYN% = 10039
  136. Global Const SQLENONET% = 10040
  137. Global Const SQLEBTYP% = 10041
  138. Global Const SQLEABNC% = 10042
  139. Global Const SQLEABMT% = 10043
  140. Global Const SQLEABNP% = 10044
  141. Global Const SQLEBNCR% = 10045
  142. Global Const SQLEAAMT% = 10046
  143. Global Const SQLENXID% = 10047
  144. Global Const SQLEIFNB% = 10048
  145. Global Const SQLEKBCO% = 10049
  146. Global Const SQLEBBCI% = 10050
  147. Global Const SQLEKBCI% = 10051
  148. Global Const SQLEBCWE% = 10052
  149. Global Const SQLEBCNN% = 10053
  150. Global Const SQLEBCOR% = 10054
  151. Global Const SQLEBCPI% = 10055
  152. Global Const SQLEBCPN% = 10056
  153. Global Const SQLEBCPB% = 10057
  154. Global Const SQLEVDPT% = 10058
  155. Global Const SQLEBIVI% = 10059
  156. Global Const SQLEBCBC% = 10060
  157. Global Const SQLEBCFO% = 10061
  158. Global Const SQLEBCVH% = 10062
  159. Global Const SQLEBCUO% = 10063
  160. Global Const SQLEBUOE% = 10064
  161. Global Const SQLEBWEF% = 10065
  162. Global Const SQLEBTMT% = 10066
  163. Global Const SQLEBEOF% = 10067
  164. Global Const SQLEBCSI% = 10068
  165. Global Const SQLEPNUL% = 10069
  166. Global Const SQLEBSKERR% = 10070
  167. Global Const SQLEBDIO% = 10071
  168. Global Const SQLEBCNT% = 10072
  169. Global Const SQLEMDBP% = 10073
  170. Global Const SQLEINIT% = 10074
  171. Global Const SQLCRSINV% = 10075
  172. Global Const SQLCRSCMD% = 10076
  173. Global Const SQLCRSNOIND% = 10077
  174. Global Const SQLCRSDIS% = 10078
  175. Global Const SQLCRSAGR% = 10079
  176. Global Const SQLCRSORD% = 10080
  177. Global Const SQLCRSMEM% = 10081
  178. Global Const SQLCRSBSKEY% = 10082
  179. Global Const SQLCRSNORES% = 10083
  180. Global Const SQLCRSVIEW% = 10084
  181. Global Const SQLCRSBUFR% = 10085
  182. Global Const SQLCRSFROWN% = 10086
  183. Global Const SQLCRSBROL% = 10087
  184. Global Const SQLCRSFRAND% = 10088
  185. Global Const SQLCRSFLAST% = 10089
  186. Global Const SQLCRSRO% = 10090
  187. Global Const SQLCRSTAB% = 10091
  188. Global Const SQLCRSUPDTAB% = 10092
  189. Global Const SQLCRSUPDNB% = 10093
  190. Global Const SQLCRSVIIND% = 10094
  191. Global Const SQLCRSNOUPD% = 10095
  192. Global Const SQLCRSOS2% = 10096
  193. Global Const SQLEBCSA% = 10097
  194. Global Const SQLEBCRO% = 10098
  195. Global Const SQLEBCNE% = 10099
  196. Global Const SQLEBCSK% = 10100
  197.  
  198. Rem The severity levels are defined here for error handlers
  199.  
  200. Global Const EXINFO% = 1
  201. Global Const EXUSER% = 2
  202. Global Const EXNONFATAL% = 3
  203. Global Const EXCONVERSION% = 4
  204. Global Const EXSERVER% = 5
  205. Global Const EXTIME% = 6
  206. Global Const EXPROGRAM% = 7
  207. Global Const EXRESOURCE% = 8
  208. Global Const EXCOMM% = 9
  209. Global Const EXFATAL% = 10
  210. Global Const EXCONSISTENCY% = 11
  211.  
  212. Rem Length of text timestamp and text pointer
  213. Global Const SQLTXTSLEN% = 8          ' length of text timestamp
  214. Global Const SQLTXPLEN% = 16          ' length of text pointer
  215.  
  216. Global Const OFF_SELECT% = &H16D
  217. Global Const OFF_FROM% = &H14F
  218. Global Const OFF_ORDER% = &H165
  219. Global Const OFF_COMPUTE% = &H139
  220. Global Const OFF_TABLE% = &H173
  221. Global Const OFF_PROCEDURE% = &H16A
  222. Global Const OFF_STATEMENT% = &H1CB
  223. Global Const OFF_PARAM% = &H1C4
  224. Global Const OFF_EXEC% = &H12C
  225.  
  226. Rem Bulk Copy Definitions (bcp)
  227.  
  228. Global Const DBIN% = 1              ' transfer from client to server
  229. Global Const DBOUT% = 2            ' transfer from server to client
  230.  
  231. Global Const BCPMAXERRS% = 1        ' SqlBcpControl parameter
  232. Global Const BCPFIRST% = 2          ' SqlBcpControl parameter
  233. Global Const BCPLAST% = 3           ' SqlBcpControl parameter
  234. Global Const BCPBATCH% = 4          ' SqlBcpControl parameter
  235.  
  236. Rem Cursor related constants
  237.  
  238. Rem Following flags are used in the concuropt parameter in the
  239. Rem SqlCursorOpen function
  240.  
  241. Global Const CURREADONLY% = 1   ' Read only cursor, no data modifications
  242. Global Const CURLOCKCC% = 2     ' Intent to update, all fetched data locked
  243.                 ' when dbcursorfetch is called inside a
  244.                 ' transaction block
  245. Global Const CUROPTCC% = 3      ' Optimistic concurrency control, data
  246.                 ' modifications succeed only if the row
  247.                 ' hasn't been updated since the last fetch
  248. Global Const CUROPTCCVAL% = 4   ' Optimistic concurrency control based on
  249.                 ' selected column values
  250.  
  251. Rem Following flags are used in the scrollopt parameter in the
  252. Rem SqlCursorOpen function
  253.  
  254. Global Const CURFORWARD% = 0   ' Forward only scrolling
  255. Global Const CURKEYSET% = -1   ' Keyset driven scrolling
  256. Global Const CURDYNAMIC% = 1   ' Fully dynamic
  257.  
  258. Rem Any other number indicates mixed scrolling. (Keyset driven within the given
  259. Rem number, dynamic outside)
  260.  
  261. Rem Following flags define the fetchtype in the SqlCursorFetch function
  262.  
  263. Global Const FETCHFIRST% = 1    ' Fetch first n rows
  264. Global Const FETCHNEXT% = 2     ' Fetch next n rows
  265. Global Const FETCHPREV% = 3     ' Fetch previous n rows
  266. Global Const FETCHRANDOM% = 4   ' Fetch n rows beginning with given row#
  267. Global Const FETCHRELATIVE% = 5 ' Fetch relative to previous fetch row #
  268. Global Const FETCHLAST% = 6     ' Fetch the last n rows
  269.  
  270. Rem Following flags define the per row status as filled by SqlCursorFetch
  271.  
  272. Global Const FTCSUCCEED% = &H1  ' Fetch succeeded, (failed if not set)
  273. Global Const FTCMISSING% = &H2  ' The row is missing
  274. Global Const FTCENDOFKEYSET% = &H4' End of the keyset reached
  275. Global Const FTCENDOFRESULTS% = &H8 ' End of results set reached
  276.  
  277. Rem Following flags define the operator types for the SqlCursor function
  278.  
  279. Global Const CRSUPDATE% = 1     ' Update operation
  280. Global Const CRSDELETE% = 2     ' Delete operation
  281. Global Const CRSINSERT% = 3     ' Insert operation
  282. Global Const CRSREFRESH% = 4    ' Refetch given row
  283. Global Const CRSLOCKCC% = 5     ' Lock given row (if only inside a transaction)
  284.  
  285. Rem Remote Procedure Call function options
  286. Global Const SQLRPCRECOMPILE% = 1 ' recompile the stored procedure
  287. Global Const SQLRPCRETURN% = 1    ' return parameter
  288.  
  289. Rem User defined data type for SqlGetColumnInfo
  290. Type ColumnData
  291.    Coltype As Integer
  292.    Collen As Long
  293.    Colname As String * 30
  294.    ColSqlType As String * 30
  295. End Type
  296.  
  297. Rem User defined data type for SqlGetAltColInfo
  298. Type AltColumnData
  299.    ColID As Integer
  300.    DataType As Integer
  301.    MaxLen As Long
  302.    AggType As Integer
  303.    AggOpName As String * 30
  304. End Type
  305.  
  306. Rem User defined data type for SqlBcpColumnFormat
  307. Type BcpColData
  308.     FType As Integer
  309.     FPLen As Integer
  310.     fColLen As Long
  311.     FTerm As String * 30
  312.     FTLen As Integer
  313.     TCol As Integer
  314. End Type
  315.  
  316. Rem User defined data type for SqlDateCrack
  317. Type DateInfo
  318.     Year As Integer
  319.     Quarter As Integer
  320.     Month As Integer
  321.     DayOfYear As Integer
  322.     Day As Integer
  323.     Week As Integer
  324.     WeekDay As Integer
  325.     Hour As Integer
  326.     Minute As Integer
  327.     Second As Integer
  328.     Millisecond As Integer
  329. End Type
  330.  
  331. Rem Function/Sub declarations for Visual Basic App Global module
  332. Declare Function SqlInit Lib "VBSQL.VBX" () As String
  333. Declare Sub SqlWinExit Lib "VBSQL.VBX" ()
  334. Declare Function SqlLogin Lib "VBSQL.VBX" () As Integer
  335. Declare Function SqlSetLUser Lib "VBSQL.VBX" (ByVal Login As Integer, User As String) As Integer
  336. Declare Function SqlSetLPwd Lib "VBSQL.VBX" (ByVal Login As Integer, Pwd As String) As Integer
  337. Declare Function SqlSetLApp Lib "VBSQL.VBX" (ByVal Login As Integer, App As String) As Integer
  338. Declare Function SqlSetLHost Lib "VBSQL.VBX" (ByVal Login As Integer, Host As String) As Integer
  339. Declare Function SqlSetLNatLang Lib "VBSQL.VBX" (ByVal Login As Integer, Lang As String) As Integer
  340. Declare Function SqlOpen Lib "VBSQL.VBX" (ByVal Login As Integer, Server As String) As Integer
  341. Declare Sub SqlClose Lib "VBSQL.VBX" (ByVal SqlConn As Integer)
  342. Declare Sub SqlFreeLogin Lib "VBSQL.VBX" (ByVal Login As Integer)
  343. Declare Function SqlCmd Lib "VBSQL.VBX" (ByVal SqlConn As Integer, Cmd As String) As Integer
  344. Declare Function SqlExec Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  345. Declare Function SqlResults Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  346. Declare Function SqlNextRow Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  347. Declare Function SqlNumCols Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  348. Declare Function SqlColName Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal Column As Integer) As String
  349. Declare Function SqlColType Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal Column As Integer) As Integer
  350. Declare Function SqlColUType Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal Column As Integer) As Long
  351. Declare Function SqlColLen Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal Column As Integer) As Integer
  352. Declare Function SqlDatLen Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal Column As Integer) As Long
  353. Declare Function SqlData Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal Column As Integer) As String
  354. Declare Function SqlDataReady Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  355. Declare Sub SqlExit Lib "VBSQL.VBX" ()
  356. Declare Function SqlSetLoginTime Lib "VBSQL.VBX" (ByVal Seconds As Integer) As Integer
  357. Declare Function SqlSetTime Lib "VBSQL.VBX" (ByVal Seconds As Integer) As Integer
  358. Declare Function SqlSend Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  359. Declare Function SqlOk Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  360. Declare Function SqlGetChar Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal CharNum As Integer) As String
  361. Declare Function SqlStrCpy Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal Start As Integer, ByVal NumBytes As Integer, CmdString As String) As Integer
  362. Declare Function SqlStrLen Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  363. Declare Function SqlSetOpt Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal Opt As Integer, Param As String) As Integer
  364. Declare Function SqlClrOpt Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal Opt As Integer, Param As String) As Integer
  365. Declare Function SqlIsOpt Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal Opt As Integer, Param As String) As Integer
  366. Declare Sub SqlFreeBuf Lib "VBSQL.VBX" (ByVal SqlConn As Integer)
  367. Declare Function SqlCancel Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  368. Declare Function SqlCanQuery Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  369. Declare Function SqlGetRow Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal RowNum As Long) As Integer
  370. Declare Sub SqlClrBuf Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal RowNum As Long)
  371. Declare Function SqlColBrowse Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal Column As Integer) As Integer
  372. Declare Function SqlColSource Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal TabNum As Integer) As String
  373. Declare Function SqlQual Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal TabNum As Integer, TableName As String) As String
  374. Declare Function SqlTabBrowse Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal TabNum As Integer) As Integer
  375. Declare Function SqlTabCount Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  376. Declare Function SqlTabName Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal TabNum As Integer) As String
  377. Declare Function SqlTabSource Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal ColNum As Integer, TabNum As Integer) As String
  378. Declare Function SqlTsNewLen Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  379. Declare Function SqlTsNewVal Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As String
  380. Declare Function SqlTsPut Lib "VBSQL.VBX" (ByVal SqlConn As Integer, TsVal As String, ByVal NewTsLen As Integer, ByVal TsLen As Integer, TabName As String) As Integer
  381. Declare Function SqlMoreText Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal Size As Long, Text As String) As Integer
  382. Declare Function SqlTxPtr Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal Column As Integer) As String
  383. Declare Function SqlTxTimeStamp Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal Column As Integer) As String
  384. Declare Function SqlTxTsNewVal Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As String
  385. Declare Function SqlTxTsPut Lib "VBSQL.VBX" (ByVal SqlConn As Integer, NewTxTsVal As String, ByVal Column As Integer) As Integer
  386. Declare Function SqlWriteText Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ObjName As String, TextPtr As String, ByVal TextPtrLen As Integer, TimeStamp As String, ByVal Logging As Integer, ByVal Size As Long, Text As String) As Integer
  387. Declare Function SqlCmdRow Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  388. Declare Function SqlIsCount Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  389. Declare Function SqlCount Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Long
  390. Declare Function SqlCurCmd Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  391. Declare Function SqlCurRow Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Long
  392. Declare Function SqlDead Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  393. Declare Function SqlFirstRow Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Long
  394. Declare Function SqlGetTime Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  395. Declare Function SqlIsAvail Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  396. Declare Function SqlLastRow Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Long
  397. Declare Function SqlMoreCmds Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  398. Declare Function SqlNumOrders Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  399. Declare Function SqlRows Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  400. Declare Function SqlRowType Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  401. Declare Function SqlNumAlts Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal ComputeId As Integer) As Integer
  402. Declare Function SqlAltType Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal ComputeId As Integer, ByVal Column As Integer) As Integer
  403. Declare Function SqlAltUType Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal ComputeId As Integer, ByVal Column As Integer) As Long
  404. Declare Function SqlAltLen Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal ComputeId As Integer, ByVal Column As Integer) As Integer
  405. Declare Function SqlADLen Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal ComputeId As Integer, ByVal Column As Integer) As Long
  406. Declare Function SqlAData Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal ComputeId As Integer, ByVal Column As Integer) As String
  407. Declare Function SqlAltColId Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal ComputeId As Integer, ByVal Column As Integer) As Integer
  408. Declare Function SqlAltOp Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal ComputeId As Integer, ByVal Column As Integer) As Integer
  409. Declare Function SqlByList Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal ComputeId As Integer) As String
  410. Declare Function SqlNumCompute Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  411. Declare Function SqlUse Lib "VBSQL.VBX" (ByVal SqlConn As Integer, DataBase As String) As Integer
  412. Declare Function SqlGetOff Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal OffType As Integer, ByVal StartFrom As Integer) As Integer
  413. Declare Function SqlOrderCol Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal Order As Integer) As Integer
  414. Declare Function SqlChange Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As String
  415. Declare Function SqlGetMaxProcs Lib "VBSQL.VBX" () As Integer
  416. Declare Function SqlName Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As String
  417. Declare Function SqlPrType Lib "VBSQL.VBX" (ByVal Token As Integer) As String
  418. Declare Sub SqlSetAvail Lib "VBSQL.VBX" (ByVal SqlConn As Integer)
  419. Declare Function SqlSetMaxProcs Lib "VBSQL.VBX" (ByVal MaxProcs As Integer) As Integer
  420. Declare Function SqlBCPColfmt Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal FColumn As Integer, ByVal FType As Integer, ByVal FPLen As Integer, ByVal FCLen As Long, FTerm As String, ByVal FTLen As Integer, ByVal TCol As Integer) As Integer
  421. Declare Function SqlBCPColumns Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal ColCount As Integer) As Integer
  422. Declare Function SqlBCPControl Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal Param As Integer, ByVal Value As Long) As Integer
  423. Declare Function SqlBCPExec Lib "VBSQL.VBX" (ByVal SqlConn As Integer, RowsCopied As Long) As Integer
  424. Declare Function SqlBCPInit Lib "VBSQL.VBX" (ByVal SqlConn As Integer, TblName As String, HFile As String, ErrFile As String, ByVal Direction As Integer) As Integer
  425. Declare Function SqlBCPSetL Lib "VBSQL.VBX" (ByVal Loginrec As Integer, ByVal Enable As Integer) As Integer
  426. Declare Function SqlBCPDone Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  427. Declare Function SqlSendCmd Lib "VBSQL.VBX" (ByVal SqlConn As Integer, Cmd As String) As Integer
  428. Declare Function SqlGetColumnInfo Lib "VBSQL.VBX" (ByVal SqlConn As Integer, Col As ColumnData, ByVal Column As Integer) As Integer
  429. Declare Function SqlGetAltColInfo Lib "VBSQL.VBX" (ByVal SqlConn As Integer, AltCol As AltColumnData, ByVal ComputeId As Integer, ByVal AltColumn As Integer) As Integer
  430. Declare Function SqlOpenConnection Lib "VBSQL.VBX" (Server As String, LoginID As String, Pwd As String, WorkStation As String, Application As String) As Integer
  431. Declare Function SqlTextUpdate1Row Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ObjName As String, ByVal Column As Integer, Text As String) As Integer
  432. Declare Function SqlTextUpdateManyRows Lib "VBSQL.VBX" (ByVal QSqlConn As Integer, ByVal USqlConn As Integer, ObjName As String, ByVal Column As Integer, Text As String) As Long
  433. Declare Function SqlBCPColumnFormat Lib "VBSQL.VBX" (ByVal SqlConn As Integer, Col As BcpColData, ByVal NumCols As Integer) As Integer
  434. Declare Function SqlTsUpdate Lib "VBSQL.VBX" (ByVal QSqlConn As Integer, ByVal USqlConn As Integer, ByVal TabNum As Integer, TabName As String) As Integer
  435. Declare Function SqlCursorOpen Lib "VBSQL.VBX" (ByVal SqlConn As Integer, Statement As String, ByVal ScrollOpt As Integer, ByVal ConCurOpt As Integer, ByVal NRows As Integer, PStat As Long) As Integer
  436. Declare Function SqlCursorFetch Lib "VBSQL.VBX" (ByVal SqlCursor As Integer, ByVal FetchType As Integer, ByVal RowNum As Integer) As Integer
  437. Declare Function SqlCursorData Lib "VBSQL.VBX" (ByVal SqlCursor As Integer, ByVal BufNo As Integer, ByVal Column As Integer) As String
  438. Declare Function SqlCursor Lib "VBSQL.VBX" (ByVal SqlCursor As Integer, ByVal OpType As Integer, ByVal BufNo As Integer, Table As String, Statement As String) As Integer
  439. Declare Sub SqlCursorClose Lib "VBSQL.VBX" (ByVal SqlCursor As Integer)
  440. Declare Function SqlCursorColInfo Lib "VBSQL.VBX" (ByVal SqlCursor As Integer, ByVal Column As Integer, Colname As String, Coltype As Integer, Collen As Long, UserType As Integer) As Integer
  441. Declare Function SqlCursorInfo Lib "VBSQL.VBX" (ByVal SqlCursor As Integer, Columns As Integer, Rows As Long) As Integer
  442. Declare Function SqlDateCrack Lib "VBSQL.VBX" (ByVal SqlConn As Integer, SqlDateInfo As DateInfo, DateTime As String) As Integer
  443. Declare Function SqlHasRetStat Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  444. Declare Function SqlNumRets Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  445. Declare Function SqlRetData Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal RetNum As Integer) As String
  446. Declare Function SqlRetLen Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal RetNum As Integer) As Long
  447. Declare Function SqlRetName Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal RetNum As Integer) As String
  448. Declare Function SqlRetStatus Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Long
  449. Declare Function SqlRetType Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal RetNum As Integer) As Integer
  450. Declare Function SqlRpcInit Lib "VBSQL.VBX" (ByVal SqlConn As Integer, RpcName As String, ByVal Options As Integer) As Integer
  451. Declare Function SqlRpcParam Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ParamName As String, ByVal Status As Integer, ByVal ParamType As Integer, ByVal MaxLen As Long, ByVal DataLen As Long, Value As String) As Integer
  452. Declare Function SqlRpcSend Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
  453. Declare Sub SqlRPwClr Lib "VBSQL.VBX" (ByVal Login As Integer)
  454. Declare Function SqlRPwSet Lib "VBSQL.VBX" (ByVal Login As Integer, SrvName As String, Password As String) As Integer
  455.  
  456.  
  457.