Mam taki kod:
...
MySQL.Connected := true;
SQL.CommandText := 'SELECT * FROM tabela WHERE id=...;
SQL.Open;
...
w zmiennej Item mam wartosc, jest to liczba. Jak wstawic wartosc tej zmiennej w to zapytanie?
Mam taki kod:
...
MySQL.Connected := true;
SQL.CommandText := 'SELECT * FROM tabela WHERE id=...;
SQL.Open;
...
w zmiennej Item mam wartosc, jest to liczba. Jak wstawic wartosc tej zmiennej w to zapytanie?
Podstawy Delphi... :>
IntToStr(...)
Przykład edycji rekordu wyciągnięty z mojego programu, ale jest tam pokazane 'id' jak zrobić.
procedure TForm1.Button1Click(Sender: TObject);
var
id:integer;
begin
id:=IBQuery1.Fields[0].AsInteger;
with IBQuery1, SQL do
begin
Close;
Clear;
Add('UPDATE Nazwa_tabeli SET Imie =:imie, Nazwisko =:nazwisko, Data_Ur=:data_ur, Adres=:adres, Telefon=:telefon WHERE id = '+IntToStr(id));
ParamByName('imie').AsString := Edit1.Text;
ParamByName('nazwisko').AsString := Edit2.Text;
ParamByName('data_ur').AsString := Edit3.Text;
ParamByName('adres').AsString := Edit14.Text;
ParamByName('telefon').AsString := Edit5.Text;
ExecSQL;
IBTransaction1.Commit;
end;
end;