edit1.text:=query1.sql.add('select ...'); gibi yazdım ama hata verdi ne yapabilirim acaba ? şimdiden tsk ederim

Kod: Tümünü seç
edit1.Text := Query1.FieldByName('AdiSoyadi').AsString;
Kod: Tümünü seç
Query1.SQL.Clear;
Query1.SQL.Add('SELECT * FROM Adresler' );
Query1.Active := True;
edit1.Text := Query1.FieldByName('AdiSoyadi').AsString;
Query1.Active := False;
Kod: Tümünü seç
procedure TForm1.editparalanChange(Sender: TObject);
var x: integer;
begin
x:=strtoint(editparalan.Text);
sorgu1.SQL.Clear;
sorgu1.SQL.Add('SELECT aadi FROM palan where 'x'=ano ' );
sorgu1.Active := True;
label1.Caption:= sorgu1.FieldByName('palan.aadi').AsString;
sorgu1.Active := False;
end;
Kod: Tümünü seç
sorgu1.SQL.Add('SELECT aadi FROM palan where ano = '+ QuotedStr( editparalan.Text ) );
Kod: Tümünü seç
x:=strtoint(editparalan.text);
query1.close;
query1.sql.clear;
query1.sql.add('select * from tablo where palan=:pal ');
query1.parameters.parambyname('pal').value:=x;
query1.open;