vbsql.bas

c语言编程软件vc6.0中文绿色版_vc6.0官方下载

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
Global Const ENUMINVALIDPARAM& = 16

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 Long
   Collen As Long
   Colname As String
   ColSqlType As String
End Type

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

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

Rem User defined data type for SqlDateCrack
Type DateInfo
    Year As Long
    Quarter As Long
    Month As Long
    DayOfYear As Long
    Day As Long
    Week As Long
    WeekDay As Long
    Hour As Long
    Minute As Long
    Second As Long
    Millisecond As Long
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 Long
    UserType As Long
    MaxLength As Long
    Precision As Long
    Scale As Long
    VarLength As Long
    Null As Long
    CaseSensitive As Long
    Updatable As Long
    Identity As Long
End Type

Type ProcInfo
    ServerType As Long
    ServerMajor As Long
    ServerMinor As Long
    ServerRevision As Long
    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.OCX" () As String
Declare Sub SqlWinExit Lib "VBSQL.OCX" ()
Declare Function SqlLogin Lib "VBSQL.OCX" () As Long
Declare Function SqlSetLUser Lib "VBSQL.OCX" (ByVal Login As Long, User As String) As Long
Declare Function SqlSetLPwd Lib "VBSQL.OCX" (ByVal Login As Long, Pwd As String) As Long
Declare Function SqlSetLApp Lib "VBSQL.OCX" (ByVal Login As Long, App As String) As Long
Declare Function SqlSetLHost Lib "VBSQL.OCX" (ByVal Login As Long, Host As String) As Long
Declare Function SqlSetLNatLang Lib "VBSQL.OCX" (ByVal Login As Long, Lang As String) As Long
Declare Function SqlSetLSecure Lib "VBSQL.OCX" (ByVal Login As Long) As Long
Declare Function SqlSetLVersion Lib "VBSQL.OCX" (ByVal Login As Long, ByVal Version As Long) As Long
Declare Function SqlSetLFallback Lib "VBSQL.OCX" (ByVal Login As Long, State As String) As Long
Declare Function SqlOpen Lib "VBSQL.OCX" (ByVal Login As Long, Server As String) As Long
Declare Sub SqlClose Lib "VBSQL.OCX" (ByVal SqlConn As Long)
Declare Sub SqlFreeLogin Lib "VBSQL.OCX" (ByVal Login As Long)
Declare Function SqlCmd Lib "VBSQL.OCX" (ByVal SqlConn As Long, Cmd As String) As Long
Declare Function SqlExec Lib "VBSQL.OCX" (ByVal SqlConn As Long) As Long
Declare Function SqlResults Lib "VBSQL.OCX" (ByVal SqlConn As Long) As Long
Declare Function SqlNextRow Lib "VBSQL.OCX" (ByVal SqlConn As Long) As Long
Declare Function SqlNumCols Lib "VBSQL.OCX" (ByVal SqlConn As Long) As Long
Declare Function SqlColName Lib "VBSQL.OCX" (ByVal SqlConn As Long, ByVal Column As Long) As String
Declare Function SqlColType Lib "VBSQL.OCX" (ByVal SqlConn As Long, ByVal Column As Long) As Long
Declare Function SqlColUType Lib "VBSQL.OCX" (ByVal SqlConn As Long, ByVal Column As Long) As Long
Declare Function SqlColLen Lib "VBSQL.OCX" (ByVal SqlConn As Long, ByVal Column As Long) As Long
Declare Function SqlDatLen Lib "VBSQL.OCX" (ByVal SqlConn As Long, ByVal Column As Long) As Long
Declare Function SqlData Lib "VBSQL.OCX" (ByVal SqlConn As Long, ByVal Column As Long) As String
Declare Function SqlColInfo Lib "VBSQL.OCX" (ByVal SqlConn As Long, ByVal InfoType As Long, ByVal Column As Long, ByVal ComputeId As Long, ColInf As ColInfo) As Long
Declare Function SqlDataReady Lib "VBSQL.OCX" (ByVal SqlConn As Long) As Long
Declare Sub SqlExit Lib "VBSQL.OCX" ()
Declare Function SqlSetLoginTime Lib "VBSQL.OCX" (ByVal Seconds As Long) As Long
Declare Function SqlSetTime Lib "VBSQL.OCX" (ByVal Seconds As Long) As Long
Declare Function SqlSend Lib "VBSQL.OCX" (ByVal SqlConn As Long) As Long
Declare Function SqlOk Lib "VBSQL.OCX" (ByVal SqlConn As Long) As Long
Declare Function SqlGetChar Lib "VBSQL.OCX" (ByVal SqlConn As Long, ByVal CharNum As Long) As String
Declare Function SqlStrCpy Lib "VBSQL.OCX" (ByVal SqlConn As Long, ByVal Start As Long, ByVal NumBytes As Long, Buffer As String) As Long
Declare Function SqlStrLen Lib "VBSQL.OCX" (ByVal SqlConn As Long) As Long
Declare Function SqlSetOpt Lib "VBSQL.OCX" (ByVal SqlConn As Long, ByVal Opt As Long, Param As String) As Long
Declare Function SqlClrOpt Lib "VBSQL.OCX" (ByVal SqlConn As Long, ByVal Opt As Long, Param As String) As Long
Declare Function SqlIsOpt Lib "VBSQL.OCX" (ByVal SqlConn As Long, ByVal Opt As Long, Param As String) As Long
Declare Sub SqlFreeBuf Lib "VBSQL.OCX" (ByVal SqlConn As Long)
Declare Function SqlCancel Lib "VBSQL.OCX" (ByVal SqlConn As Long) As Long
Declare Function SqlCanQuery Lib "VBSQL.OCX" (ByVal SqlConn As Long) As Long
Declare Function SqlGetRow Lib "VBSQL.OCX" (ByVal SqlConn As Long, ByVal RowNum As Long) As Long
Declare Sub SqlClrBuf Lib "VBSQL.OCX" (ByVal SqlConn As Long, ByVal RowNum As Long)
Declare Function SqlColBrowse Lib "VBSQL.OCX" (ByVal SqlConn As Long, ByVal Column As Long) As Long
Declare Function SqlColSource Lib "VBSQL.OCX" (ByVal SqlConn As Long, ByVal TabNum As Long) As String
Declare Function SqlQual Lib "VBSQL.OCX" (ByVal SqlConn As Long, ByVal TabNum As Long, TableName As String) As String
Declare Function SqlTabBrowse Lib "VBSQL.OCX" (ByVal SqlConn As Long, ByVal TabNum As Long) As Long
Declare Function SqlTabCount Lib "VBSQL.OCX" (ByVal SqlConn As Long) As Long
Declare Function SqlTabName Lib "VBSQL.OCX" (ByVal SqlConn As Long, ByVal TabNum As Long) As String
Declare Function SqlTabSource Lib "VBSQL.OCX" (ByVal SqlConn As Long, ByVal ColNum As Long, TabNum As Long) As String
Declare Function SqlTsNewLen Lib "VBSQL.OCX" (ByVal SqlConn As Long) As Long
Declare Function SqlTsNewVal Lib "VBSQL.OCX" (ByVal SqlConn As Long) As String
Declare Function SqlTsPut Lib "VBSQL.OCX" (ByVal SqlConn As Long, NewTs As String, ByVal NewTsLen As Long, ByVal TabNum As Long, TabName As String) As Long
Declare Function SqlMoreText Lib "VBSQL.OCX" (ByVal SqlConn As Long, ByVal Size As Long, Text As String) As Long
Declare Function SqlTxPtr Lib "VBSQL.OCX" (ByVal SqlConn As Long, ByVal Column As Long) As String
Declare Function SqlTxTimeStamp Lib "VBSQL.OCX" (ByVal SqlConn As Long, ByVal Column As Long) As String
Declare Function SqlTxTsNewVal Lib "VBSQL.OCX" (ByVal SqlConn As Long) As String
Declare Function SqlTxTsPut Lib "VBSQL.OCX" (ByVal SqlConn As Long, NewTxTs As String, ByVal Column As Long) As Long
Declare Function SqlWriteText Lib "VBSQL.OCX" (ByVal SqlConn As Long, ObjName As String, TextPtr As String, ByVal TextPtrLen As Long, TimeStamp As String, ByVal Logging As Long, ByVal Size As Long, Text As String) As Long
Declare Function SqlUpdateText Lib "VBSQL.OCX" (ByVal SqlConn As Long, ObjName As String, TextPtr As String, TimeStamp As String, ByVal UType As Long, ByVal Offset As Long, ByVal DelLen As Long, SrcName As String, ByVal Size As Long, Text As String) As Long
Declare Function SqlCmdRow Lib "VBSQL.OCX" (ByVal SqlConn As Long) As Long
Declare Function SqlIsCount Lib "VBSQL.OCX" (ByVal SqlConn As Long) As Long
Declare Function SqlCount Lib "VBSQL.OCX" (ByVal SqlConn As Long) As Long
Declare Function SqlCurCmd Lib "VBSQL.OCX" (ByVal SqlConn As Long) As Long
Declare Function SqlCurRow Lib "VBSQL.OCX" (ByVal SqlConn As Long) As Long
Declare Function SqlDead Lib "VBSQL.OCX" (ByVal SqlConn As Long) As Long
Declare Function SqlFirstRow Lib "VBSQL.OCX" (ByVal SqlConn As Long) As Long
Declare Function SqlGetTime Lib "VBSQL.OCX" (ByVal SqlConn As Long) As Long
Declare Function SqlIsAvail Lib "VBSQL.OCX" (ByVal SqlConn As Long) As Long
Declare Function SqlLastRow Lib "VBSQL.OCX" (ByVal SqlConn As Long) As Long
Declare Function SqlMoreCmds Lib "VBSQL.OCX" (ByVal SqlConn As Long) As Long
Declare Function SqlNumOrders Lib "VBSQL.OCX" (ByVal SqlConn As Long) As Long
Declare Function SqlRows Lib "VBSQL.OCX" (ByVal SqlConn As Long) As Long
Declare Function SqlRowType Lib "VBSQL.OCX" (ByVal SqlConn As Long) As Long
Declare Function SqlNumAlts Lib "VBSQL.OCX" (ByVal SqlConn As Long, ByVal ComputeId As Long) As Long
Declare Function SqlAltType Lib "VBSQL.OCX" (ByVal SqlConn As Long, ByVal ComputeId As Long, ByVal Column As Long) As Long
Declare Function SqlAltUType Lib "VBSQL.OCX" (ByVal SqlConn As Long, ByVal ComputeId As Long, ByVal Column As Long) As Long
Declare Function SqlAltLen Lib "VBSQL.OCX" (ByVal SqlConn As Long, ByVal ComputeId As Long, ByVal Column As Long) As Long
Declare Function SqlADLen Lib "VBSQL.OCX" (ByVal SqlConn As Long, ByVal ComputeId As Long, ByVal Column As Long) As Long
Declare Function SqlAData Lib "VBSQL.OCX" (ByVal SqlConn As Long, ByVal ComputeId As Long, ByVal Column As Long) As String
Declare Function SqlAltColId Lib "VBSQL.OCX" (ByVal SqlConn As Long, ByVal ComputeId As Long, ByVal Column As Long) As Long
Declare Function SqlAltOp Lib "VBSQL.OCX" (ByVal SqlConn As Long, ByVal ComputeId As Long, ByVal Column As Long) As Long
Declare Function SqlByList Lib "VBSQL.OCX" (ByVal SqlConn As Long, ByVal ComputeId As Long) As String
Declare Function SqlNumCompute Lib "VBSQL.OCX" (ByVal SqlConn As Long) As Long
Declare Function SqlUse Lib "VBSQL.OCX" (ByVal SqlConn As Long, DataBase As String) As Long
Declare Function SqlGetOff Lib "VBSQL.OCX" (ByVal SqlConn As Long, ByVal OffType As Long, ByVal StartFrom As Long) As Long
Declare Function SqlOrderCol Lib "VBSQL.OCX" (ByVal SqlConn As Long, ByVal Order As Long) As Long
Declare Function SqlChange Lib "VBSQL.OCX" (ByVal SqlConn As Long) As String
Declare Function SqlGetMaxProcs Lib "VBSQL.OCX" () As Long
Declare Function SqlName Lib "VBSQL.OCX" (ByVal SqlConn As Long) As String
Declare Function SqlPrType Lib "VBSQL.OCX" (ByVal Token As Long) As String
Declare Sub SqlSetAvail Lib "VBSQL.OCX" (ByVal SqlConn As Long)
Declare Function SqlSetMaxProcs Lib "VBSQL.OCX" (ByVal MaxProcs As Long) As Long
Declare Function SqlBCPColfmt Lib "VBSQL.OCX" (ByVal SqlConn As Long, ByVal FColumn As Long, ByVal FType As Long, ByVal FPLen As Long, ByVal FCLen As Long, FTerm As String, ByVal FTLen As Long, ByVal TCol As Long) As Long
Declare Function SqlBCPColumns Lib "VBSQL.OCX" (ByVal SqlConn As Long, ByVal ColCount As Long) As Long
Declare Function SqlBCPControl Lib "VBSQL.OCX" (ByVal SqlConn As Long, ByVal Param As Long, ByVal Value As Long) As Long
Declare Function SqlBCPExec Lib "VBSQL.OCX" (ByVal SqlConn As Long, RowsCopied As Long) As Long
Declare Function SqlBCPInit Lib "VBSQL.OCX" (ByVal SqlConn As Long, TblName As String, HFile As String, ErrFile As String, ByVal Direction As Long) As Long
Declare Function SqlBCPSetL Lib "VBSQL.OCX" (ByVal loginrec As Long, ByVal Enable As Long) As Long
Declare Function SqlBCPDone Lib "VBSQL.OCX" (ByVal SqlConn As Long) As Long
Declare Function SqlSendCmd Lib "VBSQL.OCX" (ByVal SqlConn As Long, Cmd As String) As Long
Declare Function SqlGetColumnInfo Lib "VBSQL.OCX" (ByVal SqlConn As Long, Col As ColumnData, ByVal Column As Long) As Long
Declare Function SqlGetAltColInfo Lib "VBSQL.OCX" (ByVal SqlConn As Long, AltCol As AltColumnData, ByVal ComputeId As Long, ByVal AltColumn As Long) As Long
'Declare Function SqlOpenConnection Lib "VBSQL.OCX" Alias "_SqlOpenConnection@20" (Server As String, LoginID As String, Pwd As String, WorkStation As String, Application As String) As Long
Declare Function SqlOpenConnection Lib "VBSQL.OCX" (Server As String, LoginID As String, Pwd As String, WorkStation As String, Application As String) As Long
Declare Function SqlTextUpdate1Row Lib "VBSQL.OCX" (ByVal SqlConn As Long, ObjName As String, ByVal Column As Long, Text As String) As Long
Declare Function SqlTextUpdateManyRows Lib "VBSQL.OCX" (ByVal QSqlConn As Long, ByVal USqlConn As Long, ObjName As String, ByVal Column As Long, Text As String) As Long
Declare Function SqlBCPColumnFormat Lib "VBSQL.OCX" (ByVal SqlConn As Long, Col As BcpColData, ByVal NumCols As Long) As Long
Declare Function SqlTsUpdate Lib "VBSQL.OCX" (ByVal QSqlConn As Long, ByVal USqlConn As Long, ByVal TabNum As Long, TabName As String) As Long
'Declare Function SqlCursorOpen Lib "VBSQL.OCX" (ByVal SqlConn As Long, Statement As String, ByVal ScrollOpt As Long, ByVal ConCurOpt As Long, ByVal nRows As Long, PStat As Long) As Long
Declare Function SqlCursorOpen Lib "VBSQL.OCX" (ByVal SqlConn As Long, Statement As String, ByVal ScrollOpt As Long, ByVal ConCurOpt As Long, ByVal nRows As Long) As Long
Declare Function SqlCursorFetch Lib "VBSQL.OCX" (SqlCursor As Long, ByVal FetchType As Long, ByVal RowNum As Long) As Long
Declare Function SqlCursorFetchEx Lib "VBSQL.OCX" (SqlCursor As Long, ByVal FetchType As Long, ByVal RowNum As Long, ByVal nRows As Long, ByVal Reserved As Long) As Long
Declare Function SqlCursorRowStatus Lib "VBSQL.OCX" (SqlCursor As Long, ByVal Row As Long, ByRef Status As Long) As Long
Declare Function SqlCursorData Lib "VBSQL.OCX" (SqlCursor As Long, ByVal BufNo As Long, ByVal Column As Long) As String
Declare Function SqlCursor Lib "VBSQL.OCX" (SqlCursor As Long, ByVal OpType As Long, ByVal BufNo As Long, Table As String, Statement As String) As Long
Declare Sub SqlCursorClose Lib "VBSQL.OCX" (SqlCursor As Long)
Declare Function SqlCursorColInfo Lib "VBSQL.OCX" (SqlCursor As Long, ByVal Column As Long, Colname As String, Coltype As Long, Collen As Long, UserType As Long) As Long
Declare Function SqlCursorInfo Lib "VBSQL.OCX" (SqlCursor As Long, Columns As Long, Rows As Long) As Long
Declare Function SqlCursorInfoEx Lib "VBSQL.OCX" (SqlCursor As Long, SqlCursInf As SqlCursorInfo) As Long
Declare Function SqlDateCrack Lib "VBSQL.OCX" (ByVal SqlConn As Long, SqlDateInfo As DateInfo, DateTime As String) As Long
Declare Function SqlHasRetStat Lib "VBSQL.OCX" (ByVal SqlConn As Long) As Long
Declare Function SqlNumRets Lib "VBSQL.OCX" (ByVal SqlConn As Long) As Long
Declare Function SqlRetData Lib "VBSQL.OCX" (ByVal SqlConn As Long, ByVal RetNum As Long) As String
Declare Function SqlRetLen Lib "VBSQL.OCX" (ByVal SqlConn As Long, ByVal RetNum As Long) As Long
Declare Function SqlRetName Lib "VBSQL.OCX" (ByVal SqlConn As Long, ByVal RetNum As Long) As String
Declare Function SqlRetStatus Lib "VBSQL.OCX" (ByVal SqlConn As Long) As Long
Declare Function SqlRetType Lib "VBSQL.OCX" (ByVal SqlConn As Long, ByVal RetNum As Long) As Long
Declare Function SqlRpcInit Lib "VBSQL.OCX" (ByVal SqlConn As Long, RpcName As String, ByVal Options As Long) As Long
Declare Function SqlRpcParam Lib "VBSQL.OCX" (ByVal SqlConn As Long, ParamName As String, ByVal Status As Long, ByVal ParamType As Long, ByVal MaxLen As Long, ByVal DataLen As Long, Value As String) As Long
Declare Function SqlRpcSend Lib "VBSQL.OCX" (ByVal SqlConn As Long) As Long
Declare Function SqlRpcExec Lib "VBSQL.OCX" (ByVal SqlConn As Long) As Long
Declare Sub SqlRPwClr Lib "VBSQL.OCX" (ByVal Login As Long)
Declare Function SqlRPwSet Lib "VBSQL.OCX" (ByVal Login As Long, SrvName As String, Password As String) As Long
Declare Function SqlServerEnum Lib "VBSQL.OCX" (ByVal SearchMode As Long, ServerBuf As String, NumEntries As Long) As Long
Declare Function SqlSetLPacket Lib "VBSQL.OCX" (ByVal Login As Long, ByVal PacketSize As Long) As Long
Declare Function SqlGetPacket Lib "VBSQL.OCX" (ByVal SqlConn As Long) As Long
Declare Function SqlProcInfo Lib "VBSQL.OCX" (ByVal SqlConn As Long, ProcInf As ProcInfo) As Long