نمایش نتیجه یک select !!!!!!!!!!!!!!!!!

سلام میخوام با کد نویسی رکوردی رو بازیابی کنم که table اون در اسکیوال 2005 موجوده و در یک DBGrig نمایش بده. از یک ADOQuery,ADOConnection,DataSource استفاده کردم .
این کد رو هم نوشتم اما چیزی نشون نمیده. error هم نمیده

procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.sql.Clear;
ADOQuery1.sql.Add( 'Select Top(1)* From Forms' );
ADOQuery1.active:=true;
ADOQuery1.open;
ADOQuery1.ExecSQL;
end;

لطفا کمک کنید.....................

با سلام
دوست عزیز من درست متوجه نشدم مشکل شما کجاست.
اما تا جایی که فهمیدم کمکتون میکنم :
1- برای گرفتن query نیازی به دستور execsql نیست و باید از همان open استفاده کنید :

کد:

---

with adoquery1 do
begin
close;
sql.clear;
sql.add('query string');
open;
end;

---

2- من در دستوراتی که نوشتید اثری از connection string نمیبینم.
شما برای اتصال به پایگاه داده یا باید connection string را مستقیما به query وصل کنید یا با استفاده از ado connection این کار را انجام دهید :

کد:

---

adoquery1.connectionstring:='connection string';

---

* خود دلفی قابلیت ساخت connection string را دارد اما اگر نتوانستید بسازید می توانید از سایت زیر استفاده کنید :

کد:

---

www.connectionstring.com

---

3- شما باید از datasource به صورت زیر استفاده کنید :

کد:

---

datasource1.dataset:=adoquery1;
dbgrid1.datasource:=datasource1;

---

بازم اگر سوالی بود در خدمتم :20:
با تشکر

ممنون مشکلم حل شد الان برای Insert کردن مشکل دارم
کدم اینه:

procedure TForm1.Insert_ButtonClick(Sender: TObject);
begin
ADOConnection1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select * from forms');
ADOCommand1.CommandText:='Insert into [Forms] ([ID],[Status]) Values (:ID,:Status)';
ADOCommand1.Parameters.ParamByName('ID').Value:= Edit2.Text;
ADOCommand1.Parameters.ParamByName('Status').Value := 'OK';
ADOCommand1.Execute;
ADOQuery1.Active:=true;
ADOConnection1.Open;
end;

خطا میده میگه: explicit value نمیتونه وارد کنه چون
IDENTITY_INSERT is set to OFF

با سلام
شما با همان adoquery می توانید دستورات sql را اجرا کنید.
به این صورت :

کد:

---

with adoquery1 do
  begin
    Close;
    sql.Clear;
    SQL.Add('sql command');
    ExecSQL;
  end;

---

با تشکر

کار راحتتری هم هست.

کد:

---

dataset.insert

---

الیته چون من تا حالا از ADOQuery استفاده نکردم مطمدن نیستم که اون هم این پارامتر رو داره یانه

موفق باشی.