dbbind -
dbclose -
dbcmd -
dbdata -
dbdatlen -
dbexit -
dbfreelogin -
dbinit -
dblogin -
dbnextrow -
dbopen -
dbresults -
dbretdata -
dbrpcexec -
dbrpcinit -
dbrpcparam -
dbrpcsend -
dbsetlname -
dbsqlexec -
dbsqlok -
dbuse -
DBCURSOR
DBPROCESS
LOGINREC
BINARYBIND
BUF_FULL
CHARBIND
DATETIMEBIND
DBFAIL
DBRPCRETURN
DBSETAPP
DBSETHOST
DBSETID
DBSETLANG
DBSETPWD
DBSETUSER
DBSUCCEED
INTBIND
MORE_ROWS
NO_MORE_RESULTS
NO_MORE_ROWS
NTBSTRINGBIND
REG_ROW
SQLBINARY
SQLCHAR
SQLDATETIME
SQLDATETIMN
SQLFLT8
SQLFLTN
SQLIMAGE
SQLINT1
SQLINT2
SQLINT4
SQLINTN
SQLMONEYN
SQLTEXT
SQLVARBINARY
SQLVARCHAR
STRINGBIND
VARYBINBIND
VARYCHARBIND
function dbbind(proc: DBPROCESS; Column, VarType, VarLen: Integer; VarAddr: Pointer):Integer;
procedure dbclose(proc: DBPROCESS);
function dbcmd(proc: DBPROCESS; cmd: PChar): Integer;
function dbdata(proc: DBPROCESS; column: Integer): Pointer;
function dbdatlen(proc: DBPROCESS; column: Integer): Integer;
procedure dbexit;
procedure dbfreelogin(login: LOGINREC);
function dbinit: PChar;
function dblogin: LOGINREC;
function dbnextrow(proc: DBPROCESS): Integer;
function dbopen(login: LOGINREC; ServerName: PChar): DBPROCESS;
function dbresults(proc: DBPROCESS): Integer;
function dbretdata(proc: DBPROCESS; column: Integer): Pointer;
function dbrpcexec(proc: DBPROCESS): Integer;
function dbrpcinit(proc: DBPROCESS; ProcName: PChar; Options: Integer): Integer;
function dbrpcparam(proc: DBPROCESS; paramname: PChar; status: Byte; ptype: Integer; maxlen, datalen: Integer;
value: Pointer): Integer;
function dbrpcsend(proc: DBPROCESS): Integer;
function dbsetlname(login: LOGINREC; val: PChar; item: Integer): Integer;
function dbsqlexec(proc: DBPROCESS): Integer;
function dbsqlok(proc: DBPROCESS): Integer;
function dbuse(proc: DBPROCESS; DBName: PChar): Integer;
DBCURSOR = Integer
since delphi does have these I used
DBPROCESS = Integer
Import routines and some constants for MS SQL server.
16-bit only... Use Freely, but I warranty nothing.
Ed Lyk 1997-08-27
elyk@sprynet.com
LOGINREC = Integer
these are actually near pointers.
BINARYBIND = 5
BUF_FULL = -3
CHARBIND = 4
DATETIMEBIND = 7
DBFAIL = 0
DBRPCRETURN = 1
DBSETAPP = 4
DBSETHOST = 1
integers and seems to work fine.
DBSETID = 5
DBSETLANG = 6
DBSETPWD = 3
DBSETUSER = 2
DBSUCCEED = 1
INTBIND = 3
MORE_ROWS = -1
NO_MORE_RESULTS = 2
NO_MORE_ROWS = -2
NTBSTRINGBIND = 11
REG_ROW = MORE_ROWS
SQLBINARY = $2d
SQLCHAR = $2f
SQLDATETIME = $3d
SQLDATETIMN = $6f
SQLFLT8 = $3e
SQLFLTN = $6d
SQLIMAGE = $22
SQLINT1 = $30
SQLINT2 = $34
SQLINT4 = $38
SQLINTN = $26
SQLMONEYN = $6e
SQLTEXT = $23
SQLVARBINARY = $25
SQLVARCHAR = $27
STRINGBIND = 10
VARYBINBIND = 13
VARYCHARBIND = 12