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