Hallo,
zunächst möchte ich Herrn Jaenicke für seine Antwort auf meine Frage zum Thema 'Create Tables' vom 11.09.23 danken.
Ich habe mein Problem vollständig gelöst, wenn auch mit Schwierigkeiten.
Nun habe ich aber ein neues Problem. Siehe Pfeil auf die Zeile s := 'CREATE TABLE Extend '
Ich möchte den TableName (hier z.B. Extend ) nicht statisch innerhalb des kompletten Strings schreiben ,sondern als z.B.als Übergabe von Edit.Text.
Dies geht aber nicht, denn wenn ich die procedure aufrufe wird mir zwar RunTime eine neue Tabelle erzeugt,allerdings dann mit dem Namen Extend.
Geht das überhaupt mit
SQL und wenn ja wie ?
Delphi-Quellcode:
(* Create Tables on RunTime *)
(* TEIL3 --- TEIL3 --- TEIL3 *)
(* ----------------------------------------- *)
procedure TForm3.BitBtn2Click(Sender: TObject);
(* ----------------------------------------- *)
VAR s , Extend :
STRING;
begin
Extend := Edit1.Text;
--> s := '
CREATE TABLE Extend '
+ '
('
+ '
ID1 INTEGER NOT NULL PRIMARY KEY, '
+ '
Stock CHAR(35), '
+ '
AktDatum DATE, '
+ '
StockOPEN NUMERIC(15,2), '
+ '
StockHigh NUMERIC(15,2), '
+ '
StockLOW NUMERIC(15,2), '
+ '
StockCLOSE NUMERIC(15,2) '
+ '
);';
with Datamodule2
do
begin
If IBD.Connected = True
Then IBD.Close;
IBD.Params.Clear;
IBD.Params.Values['
user_name'] := '
SYSDBA';
IBD.Params.Values['
password'] := '
masterkey';
IBD.DatabaseName := g_DBPfad;
IBD.Open;
//neue Transaktion starten
if not IBT.InTransaction
then IBT.StartTransaction;
//SQL-String setzen
IBSQL.SQL.Clear;
IBSQL.SQL.Add(s);
//SQL Anweisung ausführen
IBSQL.ExecQuery;
IBT.Commit;
IBD.Connected := false;
end;
end;
Danke , Wolfgang