Rem Global declarations for Visual Basic to DB-Library translation dll.
Rem Used by all apps linking with the VBSQL DLL (vbsql.vbx)

Rem Global return values for all RETCODE type functions
Global Const SUCCEED% = 1
Global Const FAIL% = 0

Rem return values permitted in error handlers
Global Const INTEXIT% = 0
Global Const INTCONTINUE% = 1
Global Const INTCANCEL% = 2

Global Const MOREROWS = -1
Global Const NOMOREROWS = -2
Global Const REGROW = -1
Global Const BUFFULL = -3

Rem Status code for dbresults(). Possible return values are
Rem SUCCEED, FAIL, and NO_MORE_RESULTS.

Global Const NOMORERESULTS = 2
Global Const NOMORERPCRESULTS = 3


Rem versions for SQLSetLVersion

Global Const SQLVER42% = 8
Global Const SQLVER60% = 9



Rem option values permitted in option setting/querying/clearing
Rem used by SqlSetOpt%(), SqlIsOpt%(), and SqlClrOpt%().

Global Const SQLBUFFER% = 0
Global Const SQLOFFSET% = 1
Global Const SQLROWCOUNT% = 2
Global Const SQLSTAT% = 3
Global Const SQLTEXTLIMIT% = 4
Global Const SQLTEXTSIZE% = 5
Global Const SQLARITHABORT% = 6
Global Const SQLARITHIGNORE% = 7
Global Const SQLNOAUTOFREE% = 8
Global Const SQLNOCOUNT% = 9
Global Const SQLNOEXEC% = 10
Global Const SQLPARSEONLY% = 11
Global Const SQLSHOWPLAN% = 12
Global Const SQLSTORPROCID% = 13
Global Const SQLANSItoOEM% = 14
Global Const SQLCLIENTCURSORS% = 16

Rem Data type token values.  Used for datatype determination for a column.

Global Const SQLTEXT% = &H23
Global Const SQLARRAY% = &H24
Global Const SQLVARBINARY% = &H25
Global Const SQLINTN% = &H26
Global Const SQLVARCHAR% = &H27
Global Const SQLBINARY% = &H2D
Global Const SQLIMAGE% = &H22
Global Const SQLCHAR% = &H2F
Global Const SQLINT1% = &H30
Global Const SQLBIT% = &H32
Global Const SQLINT2% = &H34
Global Const SQLINT4% = &H38
Global Const SQLMONEY% = &H3C
Global Const SQLDATETIME% = &H3D
Global Const SQLFLT8% = &H3E
Global Const SQLFLTN% = &H6D
Global Const SQLFLT4% = &H3B
Global Const SQLMONEYN% = &H6E
Global Const SQLDATETIMN% = &H6F
Global Const SQLAOPCNT% = &H4B
Global Const SQLAOPSUM% = &H4D
Global Const SQLAOPAVG% = &H4F
Global Const SQLAOPMIN% = &H51
Global Const SQLAOPMAX% = &H52
Global Const SQLAOPANY% = &H53
Global Const SQLAOPNOOP% = &H56
Global Const SQLMONEY4% = &H7A
Global Const SQLDATETIM4% = &H3A
Global Const SQLDECIMAL% = &H6A
Global Const SQLNUMERIC = &H6C



Rem error numbers VBSQL error codes that are passed to local error
Rem handler

Global Const SQLEMEM% = 10000
Global Const SQLENULL% = 10001
Global Const SQLENLOG% = 10002
Global Const SQLEPWD% = 10003
Global Const SQLECONN% = 10004
Global Const SQLEDDNE% = 10005
Global Const SQLNULLO% = 10006
Global Const SQLESMSG% = 10007
Global Const SQLEBTOK% = 10008
Global Const SQLENSPE% = 10009
Global Const SQLEREAD% = 10010
Global Const SQLECNOR% = 10011
Global Const SQLETSIT% = 10012
Global Const SQLEPARM% = 10013
Global Const SQLEAUTN% = 10014
Global Const SQLECOFL% = 10015
Global Const SQLERDCN% = 10016
Global Const SQLEICN% = 10017
Global Const SQLECLOS% = 10018
Global Const SQLENTXT% = 10019
Global Const SQLEDNTI% = 10020
Global Const SQLETMTD% = 10021
Global Const SQLEASEC% = 10022
Global Const SQLENTLL% = 10023
Global Const SQLETIME% = 10024
Global Const SQLEWRIT% = 10025
Global Const SQLEMODE% = 10026
Global Const SQLEOOB% = 10027
Global Const SQLEITIM% = 10028
Global Const SQLEDBPS% = 10029
Global Const SQLEIOPT% = 10030
Global Const SQLEASNL% = 10031
Global Const SQLEASUL% = 10032
Global Const SQLENPRM% = 10033
Global Const SQLEDBOP% = 10034
Global Const SQLENSIP% = 10035
Global Const SQLECNULL% = 10036
Global Const SQLESEOF% = 10037
Global Const SQLERPND% = 10038
Global Const SQLECSYN% = 10039
Global Const SQLENONET% = 10040
Global Const SQLEBTYP% = 10041
Global Const SQLEABNC% = 10042
Global Const SQLEABMT% = 10043
Global Const SQLEABNP% = 10044
Global Const SQLEBNCR% = 10045
Global Const SQLEAAMT% = 10046
Global Const SQLENXID% = 10047
Global Const SQLEIFNB% = 10048
Global Const SQLEKBCO% = 10049
Global Const SQLEBBCI% = 10050
Global Const SQLEKBCI% = 10051
Global Const SQLEBCWE% = 10052
Global Const SQLEBCNN% = 10053
Global Const SQLEBCOR% = 10054
Global Const SQLEBCPI% = 10055
Global Const SQLEBCPN% = 10056
Global Const SQLEBCPB% = 10057
Global Const SQLEVDPT% = 10058
Global Const SQLEBIVI% = 10059
Global Const SQLEBCBC% = 10060
Global Const SQLEBCFO% = 10061
Global Const SQLEBCVH% = 10062
Global Const SQLEBCUO% = 10063
Global Const SQLEBUOE% = 10064
Global Const SQLEBWEF% = 10065
Global Const SQLEBTMT% = 10066
Global Const SQLEBEOF% = 10067
Global Const SQLEBCSI% = 10068
Global Const SQLEPNUL% = 10069
Global Const SQLEBSKERR% = 10070
Global Const SQLEBDIO% = 10071
Global Const SQLEBCNT% = 10072
Global Const SQLEMDBP% = 10073
Global Const SQLEINIT% = 10074
Global Const SQLCRSINV% = 10075
Global Const SQLCRSCMD% = 10076
Global Const SQLCRSNOIND% = 10077
Global Const SQLCRSDIS% = 10078
Global Const SQLCRSAGR% = 10079
Global Const SQLCRSORD% = 10080
Global Const SQLCRSMEM% = 10081
Global Const SQLCRSBSKEY% = 10082
Global Const SQLCRSNORES% = 10083
Global Const SQLCRSVIEW% = 10084
Global Const SQLCRSBUFR% = 10085
Global Const SQLCRSFROWN% = 10086
Global Const SQLCRSBROL% = 10087
Global Const SQLCRSFRAND% = 10088
Global Const SQLCRSFLAST% = 10089
Global Const SQLCRSRO% = 10090
Global Const SQLCRSTAB% = 10091
Global Const SQLCRSUPDTAB% = 10092
Global Const SQLCRSUPDNB% = 10093
Global Const SQLCRSVIIND% = 10094
Global Const SQLCRSNOUPD% = 10095
Global Const SQLCRSOS2% = 10096
Global Const SQLEBCSA% = 10097
Global Const SQLEBCRO% = 10098
Global Const SQLEBCNE% = 10099
Global Const SQLEBCSK% = 10100
Global Const SQLEUVBF% = 10101
Global Const SQLEBIHC% = 10102
Global Const SQLEBWFF% = 10103

Rem The severity levels are defined here for error handlers

Global Const EXINFO% = 1
Global Const EXUSER% = 2
Global Const EXNONFATAL% = 3
Global Const EXCONVERSION% = 4
Global Const EXSERVER% = 5
Global Const EXTIME% = 6
Global Const EXPROGRAM% = 7
Global Const EXRESOURCE% = 8
Global Const EXCOMM% = 9
Global Const EXFATAL% = 10
Global Const EXCONSISTENCY% = 11

Rem Length of text timestamp and text pointer
Global Const SQLTXTSLEN% = 8          ' length of text timestamp
Global Const SQLTXPLEN% = 16          ' length of text pointer

Global Const OFF_SELECT% = &H16D
Global Const OFF_FROM% = &H14F
Global Const OFF_ORDER% = &H165
Global Const OFF_COMPUTE% = &H139
Global Const OFF_TABLE% = &H173
Global Const OFF_PROCEDURE% = &H16A
Global Const OFF_STATEMENT% = &H1CB
Global Const OFF_PARAM% = &H1C4
Global Const OFF_EXEC% = &H12C

Rem Bulk Copy Definitions (bcp)

Global Const DBIN% = 1              ' transfer from client to server
Global Const DBOUT% = 2            ' transfer from server to client

Global Const BCPMAXERRS% = 1        ' SqlBcpControl parameter
Global Const BCPFIRST% = 2          ' SqlBcpControl parameter
Global Const BCPLAST% = 3           ' SqlBcpControl parameter
Global Const BCPBATCH% = 4          ' SqlBcpControl parameter
Global Const BCPKEEPNULLS% = 5      ' SqlBcpControl parameter

Rem Cursor related constants

Rem Following flags are used in the concuropt parameter in the
Rem SqlCursorOpen function

Global Const CURREADONLY% = 1   ' Read only cursor, no data modifications
Global Const CURLOCKCC% = 2     ' Intent to update, all fetched data locked
				' when dbcursorfetch is called inside a
				' transaction block
Global Const CUROPTCC% = 3      ' Optimistic concurrency control, data
				' modifications succeed only if the row
				' hasn't been updated since the last fetch
Global Const CUROPTCCVAL% = 4   ' Optimistic concurrency control based on
				' selected column values

Rem Following flags are used in the scrollopt parameter in the
Rem SqlCursorOpen function

Global Const CURFORWARD% = 0   ' Forward only scrolling
Global Const CURKEYSET% = -1   ' Keyset driven scrolling
Global Const CURDYNAMIC% = 1   ' Fully dynamic
Global Const CURINSENSITIVE% = -2  ' Server-side cursors only

Rem Any other number indicates mixed scrolling. (Keyset driven within the given
Rem number, dynamic outside)

Rem Following flags define the fetchtype in the SqlCursorFetch function

Global Const FETCHFIRST% = 1    ' Fetch first n rows
Global Const FETCHNEXT% = 2     ' Fetch next n rows
Global Const FETCHPREV% = 3     ' Fetch previous n rows
Global Const FETCHRANDOM% = 4   ' Fetch n rows beginning with given row#
Global Const FETCHRELATIVE% = 5 ' Fetch relative to previous fetch row #
Global Const FETCHLAST% = 6     ' Fetch the last n rows

Rem Following flags define the per row status as filled by SqlCursorFetch

Global Const FTCEMPTY% = &H0    ' No row available
Global Const FTCSUCCEED% = &H1  ' Fetch succeeded, (failed if not set)
Global Const FTCMISSING% = &H2  ' The row is missing
Global Const FTCENDOFKEYSET% = &H4' End of the keyset reached
Global Const FTCENDOFRESULTS% = &H8 ' End of results set reached

Rem Following flags define the operator types for the SqlCursor function

Global Const CRSUPDATE% = 1     ' Update operation
Global Const CRSDELETE% = 2     ' Delete operation
Global Const CRSINSERT% = 3     ' Insert operation
Global Const CRSREFRESH% = 4    ' Refetch given row
Global Const CRSLOCKCC% = 5     ' Lock given row (if only inside a transaction)

Rem Following define row information type requested from SqlColInfo
Global Const SQLCI_REGULAR% = 1         ' regular row
Global Const SQLCI_ALTERNATE% = 2       ' compute row
Global Const SQLCI_CURSOR% = 3          ' cursor row

Rem Following are values returned to ColInfo Usertype Type field for Cursors
Global Const CU_CLIENT& = &H1
Global Const CU_SERVER& = &H2
Global Const CU_KEYSET& = &H4
Global Const CU_MIXED& = &H8
Global Const CU_DYNAMIC& = &H10
Global Const CU_FORWARD& = &H20
Global Const CU_INSENSITIVE& = &H40
Global Const CU_READONLY& = &H80
Global Const CU_LOCKCC& = &H100
Global Const CU_OPTCC& = &H200
Global Const CU_OPTCCVAL& = &H400

Rem  Following are values returned to ColInfo Usertype Status field forCursors
Global Const CU_FILLING = &H1
Global Const CU_FILLED = &H2


Rem Remote Procedure Call function options
Global Const SQLRPCRECOMPILE% = &H1 ' recompile the stored procedure
Global Const SQLRPCRESET% = &H4     ' reset rpc processing
Global Const SQLRPCRETURN% = 1      ' return parameter

Rem The following values are passed to SqlServerEnum for searching criteria.
Global Const NETSEARCH% = 1
Global Const LOCSEARCH% = 2


Rem These constants are the possible return values from SqlServerEnum.
Global Const ENUMSUCCESS% = 0
Global Const MOREDATA% = 1
Global Const NETNOTAVAIL% = 2
Global Const OUTOFMEMORY% = 4
Global Const NOTSUPPORTED% = 8

Rem These constants are passed to SqlUpdateText for setting update type
Global Const UTTEXTPTR% = &H1
Global Const UTTEXT% = &H2
Global Const UTMORETEXT% = &H4
Global Const UTDELETEONLY% = &H8
Global Const UTLOG% = &H10


Rem These constants are used by SqlProcInfo
Global Const SERVTYPEUNKNOWN% = 0
Global Const SERVTYPEMICROSOFT% = 1


Rem State unknown in SqlColInfo
Global Const SQLUNKNOWN% = 2

Rem User defined data type for SqlGetColumnInfo
Type ColumnData
   Coltype As Integer
   Collen As Long
   Colname As String * 31
   ColSqlType As String * 31
End Type

Rem User defined data type for SqlGetAltColInfo
Type AltColumnData
   ColID As Integer
   DataType As Integer
   MaxLen As Long
   AggType As Integer
   AggOpName As String * 31
End Type

Rem User defined data type for SqlBcpColumnFormat
Type BcpColData
    FType As Integer
    FPLen As Integer
    fColLen As Long
    FTerm As String * 31
    FTLen As Integer
    TCol As Integer
End Type

Rem User defined data type for SqlDateCrack
Type DateInfo
    Year As Integer
    Quarter As Integer
    Month As Integer
    DayOfYear As Integer
    Day As Integer
    Week As Integer
    WeekDay As Integer
    Hour As Integer
    Minute As Integer
    Second As Integer
    Millisecond As Integer
End Type

Rem User defined data type for SqlColInfo
Type ColInfo
    Name As String * 31
    ActualName As String * 31
    TableName As String * 31
    CType As Integer
    UserType As Long
    MaxLength As Long
    Precision As Integer
    Scale As Integer
    VarLength As Integer
    Null As Integer
    CaseSensitive As Integer
    Updatable As Integer
    Identity As Integer
End Type

Type ProcInfo
    ServerType As Integer
    ServerMajor As Integer
    ServerMinor As Integer
    ServerRevision As Integer
    ServerName As String * 31
    NetLibName As String * 31
    NetLibConnStr As String * 256
End Type

Type SqlCursorInfo
    TotCols As Long
    TotRows As Long
    CurRow As Long
    TotRowsFetched As Long
    CursorType As Long
    Status As Long
End Type


Rem Function/Sub declarations for Visual Basic App Global module
Declare Function SqlInit Lib "VBSQL.VBX" () As String
Declare Sub SqlWinExit Lib "VBSQL.VBX" ()
Declare Function SqlLogin Lib "VBSQL.VBX" () As Integer
Declare Function SQLSETLUSER Lib "VBSQL.VBX" (ByVal Login As Integer, User As String) As Integer
Declare Function SqlSetLPwd Lib "VBSQL.VBX" (ByVal Login As Integer, Pwd As String) As Integer
Declare Function SqlSetLApp Lib "VBSQL.VBX" (ByVal Login As Integer, App As String) As Integer
Declare Function SqlSetLHost Lib "VBSQL.VBX" (ByVal Login As Integer, Host As String) As Integer
Declare Function SqlSetLNatLang Lib "VBSQL.VBX" (ByVal Login As Integer, Lang As String) As Integer
Declare Function SqlSetLSecure Lib "VBSQL.VBX" (ByVal Login As Integer) As Integer
Declare Function SQLSETLVERSION Lib "VBSQL.VBX" (ByVal Login As Integer, ByVal Version As Integer) As Integer
Declare Function SqlOpen Lib "VBSQL.VBX" (ByVal Login As Integer, Server As String) As Integer
Declare Sub SqlClose Lib "VBSQL.VBX" (ByVal SqlConn As Integer)
Declare Sub SqlFreeLogin Lib "VBSQL.VBX" (ByVal Login As Integer)
Declare Function SqlCmd Lib "VBSQL.VBX" (ByVal SqlConn As Integer, Cmd As String) As Integer
Declare Function SqlExec Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
Declare Function SqlResults Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
Declare Function SqlNextRow Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
Declare Function SqlNumCols Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
Declare Function SqlColName Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal Column As Integer) As String
Declare Function SqlColType Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal Column As Integer) As Integer
Declare Function SqlColUType Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal Column As Integer) As Long
Declare Function SqlColLen Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal Column As Integer) As Integer
Declare Function SqlDatLen Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal Column As Integer) As Long
Declare Function SqlData Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal Column As Integer) As String
Declare Function SqlColInfo Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal InfoType As Integer, ByVal Column As Integer, ByVal ComputeId As Integer, ColInf As ColInfo) As Integer
Declare Function SqlDataReady Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
Declare Sub SqlExit Lib "VBSQL.VBX" ()
Declare Function SqlSetLoginTime Lib "VBSQL.VBX" (ByVal Seconds As Integer) As Integer
Declare Function SqlSetTime Lib "VBSQL.VBX" (ByVal Seconds As Integer) As Integer
Declare Function SqlSend Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
Declare Function SqlOk Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
Declare Function SqlGetChar Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal CharNum As Integer) As String
Declare Function SqlStrCpy Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal Start As Integer, ByVal NumBytes As Integer, Buffer As String) As Integer
Declare Function SqlStrLen Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
Declare Function SqlSetOpt Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal Opt As Integer, Param As String) As Integer
Declare Function SqlClrOpt Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal Opt As Integer, Param As String) As Integer
Declare Function SqlIsOpt Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal Opt As Integer, Param As String) As Integer
Declare Sub SqlFreeBuf Lib "VBSQL.VBX" (ByVal SqlConn As Integer)
Declare Function SqlCancel Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
Declare Function SqlCanQuery Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
Declare Function SqlGetRow Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal RowNum As Long) As Integer
Declare Sub SqlClrBuf Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal RowNum As Long)
Declare Function SqlColBrowse Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal Column As Integer) As Integer
Declare Function SqlColSource Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal TabNum As Integer) As String
Declare Function SqlQual Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal TabNum As Integer, TableName As String) As String
Declare Function SqlTabBrowse Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal TabNum As Integer) As Integer
Declare Function SqlTabCount Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
Declare Function SqlTabName Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal TabNum As Integer) As String
Declare Function SqlTabSource Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal ColNum As Integer, TabNum As Integer) As String
Declare Function SqlTsNewLen Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
Declare Function SqlTsNewVal Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As String
Declare Function SqlTsPut Lib "VBSQL.VBX" (ByVal SqlConn As Integer, NewTs As String, ByVal NewTsLen As Integer, ByVal TabNum As Integer, TabName As String) As Integer
Declare Function SqlMoreText Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal Size As Long, Text As String) As Integer
Declare Function SqlTxPtr Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal Column As Integer) As String
Declare Function SqlTxTimeStamp Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal Column As Integer) As String
Declare Function SqlTxTsNewVal Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As String
Declare Function SqlTxTsPut Lib "VBSQL.VBX" (ByVal SqlConn As Integer, NewTxTs As String, ByVal Column As Integer) As Integer
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
Declare Function SqlUpdateText Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ObjName As String, TextPtr As String, TimeStamp As String, ByVal UType As Integer, ByVal Offset As Long, ByVal DelLen As Long, SrcName As String, ByVal Size As Long, Text As String) As Integer
Declare Function SqlCmdRow Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
Declare Function SqlIsCount Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
Declare Function SqlCount Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Long
Declare Function SqlCurCmd Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
Declare Function SqlCurRow Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Long
Declare Function SqlDead Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
Declare Function SqlFirstRow Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Long
Declare Function SqlGetTime Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
Declare Function SqlIsAvail Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
Declare Function SqlLastRow Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Long
Declare Function SqlMoreCmds Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
Declare Function SqlNumOrders Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
Declare Function SqlRows Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
Declare Function SqlRowType Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
Declare Function SqlNumAlts Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal ComputeId As Integer) As Integer
Declare Function SqlAltType Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal ComputeId As Integer, ByVal Column As Integer) As Integer
Declare Function SqlAltUType Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal ComputeId As Integer, ByVal Column As Integer) As Long
Declare Function SqlAltLen Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal ComputeId As Integer, ByVal Column As Integer) As Integer
Declare Function SqlADLen Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal ComputeId As Integer, ByVal Column As Integer) As Long
Declare Function SqlAData Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal ComputeId As Integer, ByVal Column As Integer) As String
Declare Function SqlAltColId Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal ComputeId As Integer, ByVal Column As Integer) As Integer
Declare Function SqlAltOp Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal ComputeId As Integer, ByVal Column As Integer) As Integer
Declare Function SqlByList Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal ComputeId As Integer) As String
Declare Function SqlNumCompute Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
Declare Function SqlUse Lib "VBSQL.VBX" (ByVal SqlConn As Integer, DataBase As String) As Integer
Declare Function SqlGetOff Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal OffType As Integer, ByVal StartFrom As Integer) As Integer
Declare Function SqlOrderCol Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal Order As Integer) As Integer
Declare Function SqlChange Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As String
Declare Function SqlGetMaxProcs Lib "VBSQL.VBX" () As Integer
Declare Function SqlName Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As String
Declare Function SQLPRTYPE Lib "VBSQL.VBX" (ByVal Token As Integer) As String
Declare Sub SqlSetAvail Lib "VBSQL.VBX" (ByVal SqlConn As Integer)
Declare Function SqlSetMaxProcs Lib "VBSQL.VBX" (ByVal MaxProcs As Integer) As Integer
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
Declare Function SqlBCPColumns Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal ColCount As Integer) As Integer
Declare Function SqlBCPControl Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal Param As Integer, ByVal Value As Long) As Integer
Declare Function SqlBCPExec Lib "VBSQL.VBX" (ByVal SqlConn As Integer, RowsCopied As Long) As Integer
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
Declare Function SqlBCPSetL Lib "VBSQL.VBX" (ByVal Loginrec As Integer, ByVal Enable As Integer) As Integer
Declare Function SqlBCPDone Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
Declare Function SqlSendCmd Lib "VBSQL.VBX" (ByVal SqlConn As Integer, Cmd As String) As Integer
Declare Function SqlGetColumnInfo Lib "VBSQL.VBX" (ByVal SqlConn As Integer, Col As ColumnData, ByVal Column As Integer) As Integer
Declare Function SqlGetAltColInfo Lib "VBSQL.VBX" (ByVal SqlConn As Integer, AltCol As AltColumnData, ByVal ComputeId As Integer, ByVal AltColumn As Integer) As Integer
Declare Function SqlOpenConnection Lib "VBSQL.VBX" (Server As String, LoginID As String, Pwd As String, WorkStation As String, Application As String) As Integer
Declare Function SqlTextUpdate1Row Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ObjName As String, ByVal Column As Integer, Text As String) As Integer
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
Declare Function SqlBCPColumnFormat Lib "VBSQL.VBX" (ByVal SqlConn As Integer, Col As BcpColData, ByVal NumCols As Integer) As Integer
Declare Function SqlTsUpdate Lib "VBSQL.VBX" (ByVal QSqlConn As Integer, ByVal USqlConn As Integer, ByVal TabNum As Integer, TabName As String) As Integer
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
Declare Function SqlCursorFetch Lib "VBSQL.VBX" (SqlCursor As Integer, ByVal FetchType As Integer, ByVal RowNum As Integer) As Integer
Declare Function SqlCursorFetchEx Lib "VBSQL.VBX" (SqlCursor As Integer, ByVal FetchType As Integer, ByVal RowNum As Long, ByVal nRows As Long, ByVal Reserved As Long) As Integer
Declare Function SqlCursorData Lib "VBSQL.VBX" (SqlCursor As Integer, ByVal BufNo As Integer, ByVal Column As Integer) As String
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
Declare Sub SqlCursorClose Lib "VBSQL.VBX" (SqlCursor As Integer)
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
Declare Function SqlCursorInfo Lib "VBSQL.VBX" (SqlCursor As Integer, Columns As Integer, Rows As Long) As Integer
Declare Function SqlCursorInfoEx Lib "VBSQL.VBX" (SqlCursor As Integer, SqlCursInf As SqlCursorInfo) As Integer
Declare Function SqlDateCrack Lib "VBSQL.VBX" (ByVal SqlConn As Integer, SqlDateInfo As DateInfo, DateTime As String) As Integer
Declare Function SQLHasRetStat Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
Declare Function SQLNumRets Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
Declare Function SQLRetData Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal RetNum As Integer) As String
Declare Function SQLRetLen Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal RetNum As Integer) As Long
Declare Function SQLRetName Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal RetNum As Integer) As String
Declare Function SQLRetStatus Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Long
Declare Function SQLRetType Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ByVal RetNum As Integer) As Integer
Declare Function SqlRpcInit Lib "VBSQL.VBX" (ByVal SqlConn As Integer, RpcName As String, ByVal Options As Integer) As Integer
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
Declare Function SqlRpcSend Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
Declare Function SqlRpcExec Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
Declare Sub SqlRPwClr Lib "VBSQL.VBX" (ByVal Login As Integer)
Declare Function SqlRPwSet Lib "VBSQL.VBX" (ByVal Login As Integer, SrvName As String, Password As String) As Integer
Declare Function SqlServerEnum Lib "VBSQL.VBX" (ByVal SearchMode As Integer, ServerBuf As String, NumEntries As Integer) As Integer
Declare Function SqlSetLPacket Lib "VBSQL.VBX" (ByVal Login As Integer, ByVal PacketSize As Integer) As Integer
Declare Function SqlGetPacket Lib "VBSQL.VBX" (ByVal SqlConn As Integer) As Integer
Declare Function SqlProcInfo Lib "VBSQL.VBX" (ByVal SqlConn As Integer, ProcInf As ProcInfo) As Integer



