interbaseread.script

来自「pas脚本编译,编译写好的脚本,运用了fastscript控件」· SCRIPT 代码 · 共 29 行

var
    db:Tibdatabase;
    ts:TIBTransaction;
    qy:TIBQuery;
Begin
    db:=tibdatabase.create(nil);
    ts:=tibtransaction.create(nil);
    qy:=tibquery.create(nil);

    db.Params.Add('user_name=SYSDBA');
    db.Params.Add('password=masterkey');
    db.databasename:='c:\aisino.gdb';
    db.loginprompt:=false;
    db.connected:=true;

    ts.defaultdatabase:=db;
    ts.active:=true;

    qy.database:=db;
    qy.transaction:=ts;
    ts.active:=true;
    qy.close;
    qy.sql.clear;
    qy.sql.add('insert into test(id,name) values(''223'',''ScriptTools'')');
    qy.ExecSQL;
    qy.transaction.commit;
    msgbox('成功',0);
End.