Tabellenspalten von FreeTables in DataDictionary kopieren

[joachimd]

Zitat von Ascuriah:

ps: ich werde sie empfehlen^^

Danke. aber in den Newsgroups und foren sind wir eigentlich alle per Du
Übrigens gibt es ab Montag eine Europa-Tour mit dem ADS ADS TecDays. Da kann man eine Menge lernen - ebenso wie in meinem Buch

[DeddyH]

Zitat von joachimd:

Übrigens gibt es ab Montag eine Europa-Tour mit dem ADS ADS TecDays. Da kann man eine Menge lernen - ebenso wie in meinem Buch

[OT] Diese Werbung wurde Ihnen präsentiert von Delphi-PRAXiS - eine Perle der Natur [/OT]

[Ascuriah]

Tach Zusammen

Da ich noch eine weitere Frage zu selbigem Thema habe, dachte ich mir das hier zu posten statt einen neuen Thread zu öffnen.

Oben genannte und gelöste Problematik möchte ich nun in einem kleinen Delphi Programm lösen. Man klickt auf einen Button und die Datensätze sollen aus der alten Freetable in das Dictionary kopiert werden und über ein DBGrid dann angezeigt werden.

Hier der Code des ButtonClick Events:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
    QuellConnection.ConnectPath := 'C:\ADS\OLAP Dictionary\OLAP_DICTIONARY.ADD';
    sInsert := 'insert into test_olap (test_key)'+
    'select kbu_key from [C:\ag32ads\AFLDaten\K1\M13\01.01.2007-31.12.2007\agf_kbu]';
    AdsQuery1.SQL.Add(sInsert);
    AdsQuery1.ExecSQL;
    AdsQuery1.Active := true;

end;

die Fehlermeldung lautet:

nur hab ich die exec funktion doch eingebaut, aseh wohl den wald vor lauter bäumen schon wieder nicht.
mfg

[DeddyH]

Und wenn Du die letzte Zeile einmal weglässt? Es macht ja keinen Sinn, ein INSERT-Query nach Ausführung auf aktiv zu setzen.

[Ascuriah]

Ja sehr geil hat mal wieder funktioniert!

danke danke

[Ascuriah]

Moin Moin Liebe Delphi Gemeinde

Bei meinem vorher ja schon genannten Projekt möchte ich nun den Quellpfad der Daten über eine selectdirectory() prozedur lösen.
Hier mein Code:

Delphi-Quellcode:

procedure TForm1.BtnQuellPfadClick(Sender: TObject);               //Auswahl des Quell-Verzeichniss
begin
    SelectDirectory('Quellordner auswählen','C:\ag32ads\',QuellPfad);
    Edit1.Text := QuellPfad;
    //str := QuellPfad;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    AdsQuery1.SQL.Clear;
    sInsert := ' insert into test_olap (test_key) select ' +
    ' kbu_key from [ ' + Edit1.Text + ' \agf_kbu] ';
    AdsQuery1.SQL.Add(sInsert);
    AdsQuery1.ExecSQL;
end;

(alle Variablen sind ordnungsgemäß deklariert, sieht man hier nur ned^^)

wenn ich den Pfad fest in das Select Statement einbau funktionierts, wenn ich ihm aber nur den Pfad in einem String übergebe den er oben ausgewählt hat rödelt er recht lang (15-20sec) und man meint es klappt und dann kommt folgender Fehler:

Wäre super wenn mir jemand seine Idee mitteilen könnte

[Bummi]

nimm mal das erste Leetrzeichen raus bei:

' \agf_kbu] '