Einzelnen Beitrag anzeigen

Dieter11

Registriert seit: 18. Nov 2008
35 Beiträge
 
#23

Re: Kopieren aus DBGrid1 in DBGrid

  Alt 23. Apr 2009, 23:12
Du meinst:
Delphi-Quellcode:
     ADOQuery_Preisliste.Active := False;
     ADOQuery_Preisliste.SQL.Clear;

     currentID := AdoQuery_Artikel.FieldValues['id'];
     ShowMessage('CurrentID: ' + IntToStr(CurrentID));

     ADOQuery_Preisliste.SQL.Text := 'INSERT INTO Preisliste(ID_Artikel, Bezeichnung) VALUES( :ID, :Bezeichnung)';
     ADOQuery_Preisliste.Parameters.ParseSQL(ADOQuery_Preisliste.SQL.Text, true);

     ADOQuery_Preisliste.Parameters.ParamValues['ID'] := AdoQuery_Artikel.FieldValues['id'];
     ADOQuery_Preisliste.Parameters.ParamValues['Bezeichnung'] := AdoQuery_Artikel.FieldValues['Bezeichnung'];

     ADOQuery_Preisliste.ExecSQL;

     ADOQuery_Preisliste.Open;
  end;
Ergebnis:
- ShowMessage zeigt wieder den 1. Datensatz
- der 1. Datensatz wird kopiert
- folgende Fehlermeldung wird angezeit: ADOQuery_Preisliste: CommandText gibt keine Ergebnismenge zurück

[edit=mkinzler]Delphi-Tag gefixt Mfg, mkinzler[/edit]
  Mit Zitat antworten Zitat