Witam.
Prosze o zerkniecie. Podczas wykonywania procedury wyswietla mi błąd Invalid field type. Cały dzien próbuje na wszelkie sposoby to naprawić jednak nie mogę. Czy pomijam coś oczywistego w tym kodzie?
Procedura ma za zadanie wyswietlac wybrany przeze mnie rekord. Zapytanie jest poprawne poniewaz zaserwowalem je konsoli mysql i zwrocila rezultat. Wynik jest = 1 Wejsciowo. Błąd występuje tam gdzie gwiazdka, jednak usuwając te linie przechodzi linie nizej do instrukcji if.... Prosze o pomoc. Połączenie z baza nawiazane. Probowalem tez wylaczac i wlaczac.
pozdrawiam.
procedure UzupelnijBaza(zapytanie : String; wynik,rekord : Integer);
var
i : integer;
begin
if (wynik = 1) then
begin
// Wykonaj zapytanie i umiesc wyniki w zdeklarowanym polu
DM.SQLUzupelnianie.CommandText := Zapytanie;
DM.SQLUzupelnianie.Open(); <b>*</b>
if ((DM.SQLUzupelnianie.RecordCount > 0) AND (DM.SQLUzupelnianie.RecordCount >= rekord)) then
begin
for I := 0 to DM.SQLUzupelnianie.RecordCount do
begin
if (I = rekord) then
begin
// Wyswietl szukany rekord
formNowyPacjent.StatusBar.SimpleText := Zapytanie;
formNowyPacjent.read01.Text := DM.SQLUzupelnianie.FieldValues['Lekarz_Nazwisko'];
// DM.SQLUzupelnianie.Next;
end;
end;
end
else
begin
// Brak propozycji
end;
end;
DM.SQLUzupelnianie.Close();
end;