Ado Query

[pazartesi1]

kod şöyle gelişiyor

var
ExcelDosya : String;
var i : integer;
Sonuc:Boolean;
begin
Sonuc:=form4.Table1.FindKey([form4.Edit1.Text]);// rakam mesela 1040
IF Sonuc = true then
begin
ExcelDosya := 'C:\A.xls';// tek bir excel dosyamız var
DataSource10.DataSet := AdoQuery1;
DBGrid9.DataSource := DataSource10;
AdoConnection1.LoginPrompt := False;
AdoConnection1.ConnectionString :=
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ ExcelDosya + ';Extended properties=Excel 8.0';
AdoQuery1.Connection := AdoConnection1;
AdoQuery1.SQL.Clear;
AdoQuery1.SQL.Add( 'Select * from [1040$]');// sorun burda excel dosyanın içinde 100 sayfa var
AdoQuery1.Active := True;



AdoQuery1.SQL.Add( 'Select * from [1040$]');// 1040 a göre doğru ama yaklaşık 100 rakam daha var 1140 form4.Edit1.Text girilince neolacak

Sonuc:=form4.Table1.FindKey([form4.Edit1.Text]);// rakam mesela 1040
IF Sonuc = true then

AdoQuery1 e bunu nasıl anlatacağım ¿

[pazartesi1]

biraz kurcalayınca oldu daha önceden hiç düşünmediğim bir şey

AdoQuery1.SQL.Add( 'Select * from ['+edit15.text+'$]');