Nach Script Fehler mit zugriff !!!

[dor557]

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