ODCZYTYWANIE TABELI - Delphi MySQL

0

Siemano, ostatnio zaczynam się bawić w MySQL w delphi, używam dbexpress. Udało mi sie połączyć ze zdalną bazą danych. Moge normalnie tworzyć tabele, dodawać rekordy itp. Problem mam z odczytaniem, wykorzystuje Rozdział 17

var
  i : Integer;
  ListItem : TListItem;
begin
  lv.Items.Clear;
  SQLDataSetAdd.CommandText := 'SELECT * FROM towary';
  form1.SQLDataSetadd.Open;
 
  for I := 1 to SQLDataSetAdd.RecordCount do
  begin
  { dodaj kolejne wartości }
    ListItem := lv.Items.Add;
    ListItem.Caption := SQLDataSetAdd.FieldValues['id'];
    ListItem.SubItems.Add(SQLDataSetAdd.FieldValues['towar']);
    ListItem.SubItems.Add(SQLDataSetAdd.FieldValues['sztuk']);
    ListItem.SubItems.Add(SQLDataSetAdd.FieldValues['cena'] + ' zł');
    ListItem.SubItems.Add(SQLDataSetAdd.FieldValues['data']);
    SQLDataSetAdd.Next;
  end;

  SQLDataSetAdd.Close;
end;

wywala mi błąd w form1.SQLDataSetadd.Open;
user image

jednak nie rozumiem dlaczego ;( Czy ktoś może wie? z treści komunikatu nie dowiedziałem się jak rozwiązać problem.

Pozdrawiam!

0

Nie używać FieldValues lecz od razu Cast'ować używać FieldByName('Pole').As....

Q.SQL.Text := ''
Q.Open;
while not Q.Eof do
begin
  lblAAA.Caption := Q.FieldByName('Costam').AsString;
  Q.Next;
end;
Q.Close;

1 użytkowników online, w tym zalogowanych: 0, gości: 1