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