witam mam taki oto kod:
procedure TForm3.brejestrujClick(Sender: TObject);
var
i : Integer;
ListItem : TListItem;
SQLQuery : String;
begin
Form4.ListView.Items.Clear;
SQLQuery :='Select * from pracownik,kalendarz where pracownik.id_pracownika=kalendarz.id_pracownika';
Form2.SQLDataSet.CommandText := SQLQuery ;
Form2.SQLDataSet.Open(); // odczytaj dane
for i := 1 to Form2.SQLDataSet.RecordCount do
begin
{ dodaj kolejne wartości }
ListItem := Form4.ListView.Items.Add;
ListItem.Caption := Form2.SQLDataSet.FieldValues['nazwisko_prac'];
ListItem.SubItems.Add(Form2.SQLDataSet.FieldValues['imie_prac']);
ListItem.SubItems.Add(Form2.SQLDataSet.FieldValues['stanowisko']);
Form2.SQLDataSet.Next;
end;
Form2.SQLDataSet.Close;
Form4.ShowModal;
end;
Program sie kompiluje ladnie, jednak gdy wywoluje ta procedure wyswietla mi blad [0x0005]: Operation Not Supported. Poprzez prace krokowa jestem w stanie stwierdzic ze blad powstaje przy "for i := 1 to Form2.SQL.RecordCount do
Program dziala gdy select pobiera dane tylko z jednej tabeli.
Samo zapytanie jest poprawne i zwraca mi rekordy.
Prosze o pomoc.