XProfan

var i% = SQLINIT(DSN=Firebird;)
messagebox(str$(i%),,4160)

window 50,50-500,500
DEF &SQL_PARAM_INPUT    1
DEF &SQL_SUCCESS        0
DEF &SQL_HANDLE_STMT    3
DEF &SQL_C_DEFAULT     99
DEF &SQL_CHAR           1
DEF &SQL_NUMERIC        2
DEF &SQL_DECIMAL        3
DEF &SQL_INTEGER        4
DEF &SQL_SMALLINT       5
DEF &SQL_FLOAT          6
DEF &SQL_REAL           7
DEF &SQL_DOUBLE         8
DEF &SQL_VARCHAR       12
DEF &SQL_DATE           9
DEF &SQL_TIME          10
DEF &SQL_TIMESTAMP     11
DEF &SQL_LONGVARCHAR   -1
DEF &SQL_BINARY        -2
DEF &SQL_VARBINARY     -3
DEF &SQL_LONGVARBINARY -4
DEF &SQL_BIGINT        -5
DEF &SQL_TINYINT       -6
DEF &SQL_BIT           -7
def SQLAllocHandle(3) !odbc32,SQLAllocHandle
def SQLFreeHandle(2) !odbc32,SQLFreeHandle
def SQLPrepare(3) !odbc32,SQLPrepare
def SQLBindParameter(10) !odbc32,SQLBindParameter
def SQLExecute(1) !odbc32,SQLExecute

proc SQLPutBlob

    parameters Exec$, DATA#
    declare stmt&, size&, ret%, error$
    SQLAllocHandle(&SQL_HANDLE_STMT, &SQLDBC, addr(stmt&))
    size& = SizeOf(Data#)
    Ret% = SQLBindParameter(stmt&, 1, &SQL_PARAM_INPUT, &SQL_BINARY, &SQL_LONGVARBINARY,
    SizeOf(Data#), 0, Data#, 0, Addr(size&))

    If LoWord(Ret%) = &SQL_SUCCESS

        Ret% = SQLPrepare(stmt&,addr(Exec$),len(Exec$))

        If LoWord(Ret%) = &SQL_SUCCESS

            Ret% = SQLExecute(stmt&)
            Case LoWord(Ret%) <> &SQL_SUCCESS : Error$ = SQLExecute

        Else

            error$ = SQLPrepare

        EndIf

    Else

        error$ = SQLBindParameter

    EndIf

    Case Len(error$) : MessageBox(error$ +  fehlgeschlagen!, ODBC-Fehler, 16)
    SQLFreeHandle(&SQL_HANDLE_STMT, stmt&)

endproc

Declare Bild#
CLS
Var datei$ = HELLOWEEN.JPG
Dim Bild#, FileSize(datei$)
BlockRead(datei$, Bild#, 0, FileSize(datei$))
var db& = sqlinit(DSN=KursDB;UID=SYSDBA;PWD=masterkey;DBNAME=D:\Dokumente\FireBird\KURSDB.GDB)
SQLPutBlob(INSERT INTO TCS (Feld1) VALUES (?), Bild#)
SQLDone
Print Blob geschrieben!
waitinput
end