ODCZYTYWANIE TABELI - Delphi MySQL

Odpowiedz Nowy wątek
2011-01-30 11:30
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!


repeat
showmessage(<font color="blue">'Szacunek Ludzi Ulicy'</font color=blue>);
until <font color="red"> Nie ma warunku zakończenia </font color = red>
edytowany 6x, ostatnio: Legalnl, 2011-01-30 13:57

Pozostało 580 znaków

2011-01-30 14:28
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;
edytowany 3x, ostatnio: maciejmt, 2011-01-30 14:30

Pozostało 580 znaków

Odpowiedz
Liczba odpowiedzi na stronę

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