Hmm....
So weit so gut. Nu wollte ich erstmal die alten Komponenten von
IB durch die neuen ersetzen und musste mit ENTSEETZEN feststellen das mein "Database create" script mit den komponenten nicht mehr geht
unter den
IB componenten habe ich folgenden code geschrieben :
Delphi-Quellcode:
IBScript.Script.LoadFromFile(InstallPath+'\new.sql');
IBScript.Script.Strings[8] := 'CREATE DATABASE '''+ EditDBOrt.Text + '\' + EditDBName.text+'''';
IBScript.Script.Strings[9] := 'USER '''+EditUsername.text+''' PASSWORD '''+ EditPassword.Text+'''';
// IBScript.Script.Strings[13] := 'CONNECT '''+ EditDBOrt.Text + '\' + EditDBName.text+''' ''USER '''+EditUsername.text+''' PASSWORD '''+ EditPassword.Text+'''';
IBScript.Script.SaveToFile(InstallPath+'\ausgabe.sql');
refresh;
if IBScript.ValidateScript then
begin
IBScript.ExecuteScript;
if FileExists(EditDBOrt.Text + '\' + EditDBName.text) then
if MessageDlg('Datenbank wurde erstellt. Sollen nun die Daten aus der alten Datenbank kopiert werden ??',mtConfirmation, [mbYes,mbNo],0) = mrNo then close;
end;
// DeleteFile(InstallPath+'\ausgabe.sql');
// DeleteFile(InstallPath+'\new.sql');
IBScript.Destroy;
IBDB.Connected := false;
IBDB.Params.Clear;
IBDB.DatabaseName := EditDBOrt.Text + '\' + EditDBName.text;
IBDB.Params.Add('user_name='+EditUsername.text);
IBDB.Params.Add('password='+EditPassword.text);
IBDB.Connected := true;
Ich habe dann allerdings die Neuen komponenten eingefügt und umbenannt.
musste also die Frage ob IBScript.ValidateScript true ist rausnehmen gibt es da namlich nicht mehr.
nun kann ich das script-File nicht mehr verwenden. Meldung ist wie in Ausgabe1 angezeigt.
an der stelle die er bezeichnet ist folgender Script Code :
SET TERM ^ ;
so nun was ist daran falsch ??? oder wie kann ich dieses script so bearbeiten das er das macht was er soll ???
Script wurde mit IBExpert erstellt.
danke für Hilfe oder Tipps..
Gruss Sascha