Von ADOQuery zu ADSQuery

[Kevin]

Hallo Leute,

ich brauche Hilfe beim Umstellen von Access auf ADS.

Die folgende, von Gollum in diesem Thread gepostete TADOQuery, brauche ich dringend als TADSQUery, bekomme es aber leider nicht hin... :wall:

Code:

// folgendes Beispiel geht einem 3-Spaltigen Stringgrid aus 


var aQry:TADOQuery; 
     y:Integer; 
    sQry:String; 
... 
aQry:=TADOQuery.Create(nil); 
try 
  aQry.Connection:=ADOConnection1; 
  sQry:='INSERT INTO tabelle (Feld1, Feld2, Feld3) VALUES(:v1, :v2, :v3)'; 
  for y:=1 to StringGrid1.RowCount do 
  begin 
    aQry.SQL.Text:=sQry; 
    with aQry.Parameters do 
    begin 
      ParamValues['v1']:=StringGrid1.Cells[0, y]; 
      ParamValues['v2']:=StringGrid1.Cells[1, y]; 
      ParamValues['v3']:=StringGrid1.Cells[2, y]; 
    end; // with 
    aQry.ExecSQL; 
  end; // for y 
finally 
  aQry.Free; 
end; // try

Ein Durchsuchen der DP nach nahezu allen möglichen Suchbegriffen in Bezug auf ADS und Queries hat leider kein Ergebnis gebracht...

Ich zähl auf Euch :thuimb:

[r_kerber]

Wo hakt es denn?

[Kevin]

Hallo r_kerber,

bei aQry.Connection:=MeineADSConnection; kommt die Fehlermeldung "Undefinierter Bezeichner: 'Connection'". Und damit kann ich auch nicht testen, ob der Rest funktioniert... :gruebel:

[r_kerber]

Was hälts Du von aQry.DatabaseName?

[shmia]

Zitat:

Zitat von Kevin

Code:

// folgendes Beispiel geht einem 3-Spaltigen Stringgrid aus 

var aQry:TADOQuery; 
     y:Integer; 
    sQry:String; 
... 
aQry:=TADOQuery.Create(nil); 
try 
  aQry.Connection:=ADOConnection1; 
  sQry:='INSERT INTO tabelle (Feld1, Feld2, Feld3) VALUES(:v1, :v2, :v3)'; 
  for y:=1 to StringGrid1.RowCount do 
  begin 
    aQry.SQL.Text:=sQry; 
    with aQry.Parameters do 
    begin 
      ParamValues['v1']:=StringGrid1.Cells[0, y]; 
      ParamValues['v2']:=StringGrid1.Cells[1, y]; 
      ParamValues['v3']:=StringGrid1.Cells[2, y]; 
    end; // with 
    aQry.ExecSQL; 
  end; // for y 
finally 
  aQry.Free; 
end; // try

Du weisst die Eigenschaft SQL.Text innerhalb der Schleife zu. Das ist bestimmt nicht günstig ( :shock: )
für die Parameter-Objekte, da diese jedesmal aus der SQL-Anweisung geparst werden.
Deshalb:

Delphi-Quellcode:

aQry:=TADOQuery.Create(nil); 
try 
  aQry.Connection:=ADOConnection1; 
  aQry.SQL.Text:='INSERT INTO tabelle (Feld1, Feld2, Feld3) VALUES(:v1, :v2, :v3)'; 
  for y:=1 to StringGrid1.RowCount do 
  begin

Manchmal ist ADO nicht in der Lage, die Datentypen der Parameter korrekt zu ermitteln.
(dies hängt vom OLE-DB Provider ab; auch die VCL hat hier möglicherweise noch Bugs)
Dann muss man nachhelfen:

Delphi-Quellcode:

aQry.SQL.Text:='INSERT INTO tabelle (Feld1, Feld2, Feld3) VALUES(:v1, :v2, :v3)'; 
  aQry.Parameters.ParamByName('v1').Datatype := dtInteger;
  ...
  for y:=1 to StringGrid1.RowCount do

[Kevin]

Zitat:

Zitat von r_kerber

Was hälts Du von aQry.DatabaseName?

Ist mir ein wenig peinlich :oops: , aber bei DatabaseName weiß ich nicht, was ich eintragen soll. Ich hab eine ADSConnection, eine ADSTable und eine ADSQuery angelegt und den ALS-Alias wird ebensowenig akzeptiert...

Zudem kommt noch eine weitere Fehlermeldung: "Undefinierter Bezeichner: 'parameters'". Scheint TADSQuery auch nicht zu kennen.

Ich steh momentan ein wenig auf dem Schlauch und mit dem Rücken zur Wand. Entschuldigt bitte meine Extremblockade... :pale:

Zitat:

Zitat von shmia

Du weisst die Eigenschaft SQL.Text innerhalb der Schleife zu. Das ist bestimmt nicht günstig

Hallo shmia,

die Prozedur hat aber prima ihren Dienst verrichtet. Ich werde aber Deine Vorschläge mal mit ADO testen, obwohl ich das Vertrauen in ADO so ziemlich verloren habe und im Begriff bin zu ADS/ALS zu wechseln.

[r_kerber]

Hallo Kevin,

zunächst die Frage warum Table und Query? Eines von beiden reicht!

Und jetzt, wo Du es sagst, merke ich auch, dass AdsQuery ein wenig anders arbeitet als z.B ADSTable.
So hat's aber bei mir funktioniert:

Delphi-Quellcode:

  AdsQuery1.DatabaseName :=  AdsConnectionTest.Name;

[Kevin]

Zitat:

Zitat von r_kerber

Hallo Kevin,

zunächst die Frage warum Table und Query? Eines von beiden reicht!

Die Query schreibt doch lediglich die Daten des StringGrids in eine Table. Dazu brauche ich doch beides, oder nicht?

Zitat:

Zitat von r_kerber

Delphi-Quellcode:

  AdsQuery1.DatabaseName :=  AdsConnectionTest.Name;

Ja, das sieht doch gleich viel besser aus. :thuimb: Nun hängt er halt an den undefinierten 'Parameters' und 'ParamValues'... :?

[r_kerber]

Zitat:

Zitat von Kevin

Die Query schreibt doch lediglich die Daten des StringGrids in eine Table. Dazu brauche ich doch beides, oder nicht?

In eine Tabelle ja, aber nicht unbedingt in ADSTable.

Zitat:

Zitat von Kevin

Nun hängt er halt an den undefinierten 'Parameters' und 'ParamValues'...

Wie sieht Dein SQL-Statement aus?

[Kevin]

Zitat:

Zitat von r_kerber

Zitat:

Zitat von Kevin

Die Query schreibt doch lediglich die Daten des StringGrids in eine Table. Dazu brauche ich doch beides, oder nicht?

In eine Tabelle ja, aber nicht unbedingt in ADSTable.

In was für eine Tabelle denn sonst?

Zitat:

Zitat von r_kerber

Zitat:

Zitat von Kevin

Nun hängt er halt an den undefinierten 'Parameters' und 'ParamValues'...

Wie sieht Dein SQL-Statement aus?

Im Prinzip so wie das Beispiel oben:

Code:

  aQry:=TADSQuery.Create(nil);
  try
    aQry.DatabaseName:=DataModule2.ADSConnection.Name;
    aQry.SQL.Text :='INSERT INTO Import '+
          '(Feld1, Feld2, Feld3, Feld4, Feld5, '+
          ... //gekürzt   
          'Feld36)'+
          ' VALUES(:v1, :v2, :v3, :v4, :v5, :v6, :v7, :v8, :v9, :v10, '+
          ':v11, :v12, :v13, :v14, :v15, :v16, :v17, :v18, :v19, :v20, '+
          ':v21, :v22, :v23, :v24, :v25, :v26, :v27, :v28, :v29, :v30, '+
          ':v31, :v32, :v33, :v34, :v35, :v36)';
    for y:=1 to ImportGrid.RowCount -1 do
    begin
      with aQry.Parameters do
      begin
        ParamValues['v1']:=ImportGrid.Cells[0, y];
        ParamValues['v2']:=ImportGrid.Cells[1, y];
        ParamValues['v3']:=ImportGrid.Cells[2, y];
        ParamValues['v4']:=ImportGrid.Cells[3, y];
        ParamValues['v5']:=ImportGrid.Cells[4, y];
        ParamValues['v6']:=ImportGrid.Cells[5, y];
        ParamValues['v7']:=ImportGrid.Cells[6, y];
        ParamValues['v8']:=ImportGrid.Cells[7, y];
        ParamValues['v9']:=ImportGrid.Cells[8, y];
        ParamValues['v10']:=ImportGrid.Cells[9, y];
        ParamValues['v11']:=ImportGrid.Cells[10, y];
        ParamValues['v12']:=ImportGrid.Cells[11, y];
        ParamValues['v13']:=ImportGrid.Cells[12, y];
        ParamValues['v14']:=ImportGrid.Cells[13, y];
        ParamValues['v15']:=ImportGrid.Cells[14, y];
        ParamValues['v16']:=ImportGrid.Cells[15, y];
        ParamValues['v17']:=ImportGrid.Cells[16, y];
        ParamValues['v18']:=ImportGrid.Cells[17, y];
        ParamValues['v19']:=ImportGrid.Cells[18, y];
        ParamValues['v20']:=ImportGrid.Cells[19, y];
        ParamValues['v21']:=ImportGrid.Cells[20, y];
        ParamValues['v22']:=ImportGrid.Cells[21, y];
        ParamValues['v23']:=ImportGrid.Cells[22, y];
        ParamValues['v24']:=ImportGrid.Cells[23, y];
        ParamValues['v25']:=ImportGrid.Cells[24, y];
        ParamValues['v26']:=ImportGrid.Cells[25, y];
        ParamValues['v27']:=ImportGrid.Cells[26, y];
        ParamValues['v28']:=ImportGrid.Cells[27, y];
        ParamValues['v29']:=ImportGrid.Cells[28, y];
        ParamValues['v30']:=ImportGrid.Cells[29, y];
        ParamValues['v31']:=ImportGrid.Cells[30, y];
        ParamValues['v32']:=ImportGrid.Cells[31, y];
        ParamValues['v33']:=ImportGrid.Cells[32, y];
        ParamValues['v34']:=ImportGrid.Cells[31, y];
        ParamValues['v35']:=ImportGrid.Cells[32, y];
        ParamValues['v34']:=ImportGrid.Cells[33, y];
        ParamValues['v35']:=ImportGrid.Cells[34, y];
        ParamValues['v36']:=ImportGrid.Cells[35, y];
      end; // with
      aQry.ExecSQL;
    end; // for y
  finally
    aQry.Free;
  end; // try
end;

[r_kerber]

Zitat:

Zitat von Kevin

In was für eine Tabelle denn sonst?

Die Datenbak-Tabelle selbst, als irgendeinname.adt. Der Unterschied zwischen AdsTable und AdsQuery besteht nur darin, dass Du in der Table eine Eigenschaft mit dem Tabellennamen hast und in der Query diesen eben in SQL-Statement eingibst.

Zitat:

Zitat von Kevin

Im Prinzip so wie das Beispiel oben:

Zum einen solte es z.B. so gehen:

Delphi-Quellcode:

  AdsQuery1.Params.ParamByName('wert').Value := 1.0;

In der OH habe ich unter TQuery folgende gefunden:

Delphi-Quellcode:

Query2.SQL.Clear;

Query2.SQL.Add('INSERT INTO COUNTRY (NAME, CAPITAL, POPULATION)');
Query2.SQL.Add('VALUES (:Name, :Capital, :Population)');

Query2.Params[0].AsString := 'Liechtenstein';
Query2.Params[1].AsString := 'Vaduz';
Query2.Params[2].AsInteger := 420000;
Query2.ExecSQL;

Vielleicht hilft Dir das weiter.

[Kevin]

Hallo r_kerber,

vielen Dank, das SQL-Statement werde ich gleich mal ausprobieren. :thuimb:

Zitat:

Zitat von r-kerber

Die Datenbak-Tabelle selbst, als irgendeinname.adt.

Oops, ich wußte nicht, daß man ohne TTTable oder TQuery direkt in eine Tabelle schhreiben kann. Wie spreche ich diese denn im Code an? Zudem hab ich hier keine *.adt, nur eine *.add, die Datenbank.

[r_kerber]

Zitat:

Zitat von Kevin

Oops, ich wußte nicht, daß man ohne TTTable oder TQuery direkt in eine Tabelle schhreiben kann. Wie spreche ich diese denn im Code an? Zudem hab ich hier keine *.adt, nur eine *.add, die Datenbank.

Entweder AdsTable oder AdsQuery. Du brauchst eines von beiden, aber nicht beides!

Zitat:

Zitat von Kevin

Zudem hab ich hier keine *.adt, nur eine *.add, die Datenbank.

Dann eben den Tabellennamen, den Du in der Datenbank vergeben hast!

[Kevin]

Ok, verstehe, ich dachte schon, ich hab da was wichtiges übersehen... Aber ein wenig verwirrst Du mich dann doch. Wo hab ich denn in dem Codeschnipsel ein TTable benutzt? Steh ich nun so dermaßen auf der Leitung? :oops: Vielleicht ist es ja das, was mich so irritiert...?! :gruebel:

[r_kerber]

Im Code-Schnipsel nicht!

Zitat:

Zitat von Kevin

Ich hab eine ADSConnection, eine ADSTable und eine ADSQuery angelegt und den ALS-Alias wird ebensowenig akzeptiert...

[Kevin]

Alles klar, klassisches Aneinandervorbeischreiben :?

War ein wenig unklar von mir formuliert und ich hab da auch garnicht mehr dran gedacht, sorry.

Ich benutze für diese Prozedur TQuery um das Grid in die Tabelle zu schreiben, und durch TTable steppe ich dann zur Bearbeitung satzweise durch.

Meinst Du nun, ich sollte zum Durchsteppen TQuery mit einem neuen Statement (select * from table) bestücken? Wäre das besser, sinnvoller oder einfach nur sauberer? Ich lerne gern dazu :thuimb:

[r_kerber]

Ich würde empfehlen entweder Query oder Table zu verwenden. Möglichst nicht mischen. Aber das ist meine persönliche Meinung.

[Kevin]

Ok, werd ich mal berücksichtigen. Hat es denn, außer, daß es Deine persönliche Meinung ist, Nachteile, wenn man es trotzdem macht?

[Kevin]

Zitat:

Zitat von Kevin

Ok, werd ich mal berücksichtigen. Hat es denn, außer, daß es Deine persönliche Meinung ist, Nachteile, wenn man es trotzdem macht?

@r_kerber
Ich pushe wirklich nur ungern, aber die Frage war durchaus ernst gemeint :zwinker:

[HaJo]

Guten Morgen,

ich mische mich nur ungern ein - aber mit zwei verschiedenen DB-Komponenten dieselbe Datenmenge zu bearbeiten ist nicht ratsam - oder einfach schlechter Stil.

Das meint wohl r_Kerber :-)


Gruß, Jochen

[Kevin]

Moin HaJo,

ist ja kein Problem! Ich möchte ja dazu lernen und werde das auch berücksichtigen, da ich ja sauber programmieren möchte :thuimb: Wollte halt nur wissen, ob es, außer daß es unsauber ist, auch Probleme macht oder gar grundsätzlich falsch ist...

[HaJo]

Hi Kevin,

sowohl als auch.
Es kann Dir bei zunehmender Größe des Projektes z.B. passieren, das eine automatisierte Routine deine Tabelle ändert - zur Laufzeit krigt die Query-Komponente das dann nicht mehr mit.
Ist aber nur ein hypothetisches Beispiel <lach>

Deswegen bei Transfer-Routinen bitte nur mit einer Komponenten-Art - entweder Query oder Tabelle arbeiten :-)

Gruß, Jochen - und lieben Gruß an r_kerber :-)

[Kevin]

Ok, danke Jochen :thuimb: Wie gesagt, ich werde es ja sowieso berücksichtigen. Will ja sauber bleiben... :zwinker:

[HaJo]

OK, Dito Kevin :-D - und viel Glück

Gruß, Jochen

[Kevin]

Alles klar, danke :-D