[i_kt]

скрипт простейший:

Код:

UpDate SETUP Set  FieldValue='' Where FieldName='EMAIL_FROM';
UpDate SETUP Set  FieldValue='' Where FieldName='EMAIL_TO';
UpDate SETUP Set  FieldValue='' Where FieldName='SMTP_HOST';
UpDate SETUP Set  FieldValue='' Where FieldName='SMTP_PASSWORD';
UpDate SETUP Set  FieldValue='' Where FieldName='SMTP_USER';
UpDate SETUP Set  FieldValue='C:\temp\' Where FieldName='FN_PATH';
COMMIT;

код:

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin

 IBDatabase1.Connected:=False;
 IBDatabase1.DatabaseName:='C:\DB.GDB';
 IBDatabase1.Params.Clear;
 IBDatabase1.Params.Add('user_name=SYSDBA');
 IBDatabase1.Params.Add('password=masterkey');
 IBDatabase1.Params.Add('lc_ctype=WIN1251');
 IBDatabase1.Connected:=True;

 IBDatabase1.DefaultTransaction:=IBTransaction1;
 IBTransaction1.DefaultDatabase:=IBDatabase1;
 IBQuery1.Database:=IBDatabase1;

 if IbTransaction1.InTransaction then IbTransaction1.Commit;

 IbTransaction1.StartTransaction;
 IbQuery1.Active:=false;
 IbQuery1.Sql.Clear;
 IbQuery1.SQL.LoadFromFile('C:\Menu.sql');
 IbQuery1.ExecSql;
 IbTransaction1.Commit;

end;