Hallo.
Ich bin dabei ein Kleines Tool zu schreiben damit ich ein Update der Software von der version 2 auf 3 machen kann.
Gleichzeitig muss ich auch die
DB aus dem
Paradox in das
FB format exportieren.
Das eigene an sich funktioniert ! d.h. Das convertieren der daten. aber jetzt Folgendes Problem :
Ich Starte ein Script mit der IBScript Komponente. dieses wird korrekt ausgeführt.
Aber !! Sobald man auf JA zum Convert klickt dann bekomme ich die Meldung das die Tabelle FAHRER die in dem
SQL Script erstellt wurde nicht zu finden ist.
warum das ?? Wenn ich die Anwendung dann neu starte geht es !! was is da los ?? Habe die Procedure mal hier eingefügt villeicht hat jemand von euch eine Idee !!
Delphi-Quellcode:
if MessageDlg('Fehler beim öffnen der Datenbank. Soll an der angegebenen Stelle die datenbank erstellt werden ?',mtError, [mbYes,mbNo,mbCancel],0) = mrYes then
begin
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.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 convertiert werden ??',mtInformation, [mbYes,mbNo],0) = mrNo then close;
end;
IBDB.Params.Clear;
IBDB.DatabaseName := EditDBOrt.Text + '\' + EditDBName.text;
IBDB.Params.Add('user_name='+EditUsername.text);
IBDB.Params.Add('password='+EditPassword.text);
IBDB.Open;
end;
Danke für Jeden rat !
Gruss Sascha