AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Datenbanken Delphi Benutzeradministration !?
Thema durchsuchen
Ansicht
Themen-Optionen

Benutzeradministration !?

Ein Thema von dor557 · begonnen am 17. Mär 2007 · letzter Beitrag vom 20. Mär 2007
 
Benutzerbild von dor557
dor557

Registriert seit: 23. Okt 2004
Ort: Walldorf
197 Beiträge
 
Delphi 10.1 Berlin Starter
 
#8

Re: Benutzeradministration !?

  Alt 20. Mär 2007, 03:39
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
Angehängte Grafiken
Dateityp: jpg ausgabe1_800.jpg (66,8 KB, 10x aufgerufen)
Sascha Nickel
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 04:35 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz