Einzelnen Beitrag anzeigen

Dieter11

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

Re: Kopieren aus DBGrid1 in DBGrid

  Alt 23. Apr 2009, 22:52
Meinst Du so:
Delphi-Quellcode:

     ADOQuery_Preisliste.Active := False;
     ADOQuery_Preisliste.SQL.Clear;

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

       AdoQuery_Artikel.SQL.Text := 'INSERT INTO Preisliste(ID_Artikel, Bezeichnung) VALUES( :ID, :Bezeichnung)';
       AdoQuery_Artikel.Parameters.ParseSQL(AdoQuery_Artikel.SQL.Text, true);
       AdoQuery_Artikel.Parameters.ParamValues['ID'] := AdoQuery_Artikel.FieldValues['id'];
       AdoQuery_Artikel.Parameters.ParamValues['Bezeichnung'] := AdoQuery_Artikel.FieldValues['Bezeichnung'];

       AdoQuery_Artikel.ExecSQL;

       ADOQuery_Preisliste.Open;

  end;
Auch hier habe ich, beim 1. Klick auf irgendeine Zeile im GRID beim ShowMessage: CurrentID: 1
anschliessend die Meldung: "Ein Parameterobjekt ..... " (wie oben)
und beim nächsten Klick auf eine Zeile die Meldung: Could not convert variant of type (Null) into type (Integer).

Die Felder ID sind Integer und Bezeichnung ist String bzw. Text
  Mit Zitat antworten Zitat