adoquery

[farzad_az_shiraz]

سلام
من میخوام به وسیله adoquery اطلاعاتم را توی edit.text بریزم.

edit.text:=adoquery( 'lname')
این دستور به من error ،lname not found را میده.
همچنین دستوران زیر :



adoquery1.sql.clear;
adoquery1.sql.add('select * from bimar where id=:a')
adoquery1.parametrs.parambyname('a').value:=edit1. text;
edit2.text:=adoquery1.paramvalues['lname']3
adoquery1.open;

این دستور هم به من error ،lname not found را میده.
پیشاپیش تشکر میکنم ولی بگید کجای این دستورات ایراد داره.راستی من با adotable این کارو کردم ولی میخوام با adoquery باشه.
بازم ممنونم

[JAFO_IRAN]

سلام

فرض میکنیم فیلد lname وجود داره، لطفا کد زیر رو هم آزمایش کنید:



Edit1.Text := ADOQuery1.FiedByName('lname').AsString;


ارادت

[nice boy]

دستورات زیر رو امتحان کن

datamodule3.ADOQuery1.Active:=false;
datamodule3.ADOQuery1.SQL.Clear;
datamodule3.ADOQuery1.SQL.Add('select * from bimar where id=:a'); datamodule3.ADOQuery1.Parameters.ParamValues['a']:=edit1.Text;
datamodule3.ADOQuery1.Active:=true;
edit2.Text :=datamodule3.ADOQuery1.Fields[2].Value;

البته یادت باشه اینجا فرض شده که lname فیلد شماره 3 جدول است (فیلدها از صفر شروع می شود)

[delphiprog3000]

سلام.

امیدوارم این کارتو راه بندازه.




with ClientDataSet2 do
begin
Close;
CommandText:='select * from tbllogin where [user] like'+QuotedStr('%'+txtsearch_id.Text+'%')';
open;
if not IsEmpty then
begin
txtuser3.Text:=FieldValues['user'];
end;
end;

[farzad_az_shiraz]

سلام
ممنون از لطف همگیتون
JAFO-IRAN عزیز ممنون ولی این کد جواب نمیده چون قبلا تستش کردم.
nice boy ممنون کدی که شما داده بودید جواب داد .
delphiprog300 از شما هم ممنونم.