<textarea class="delphi" rows="10" cols="60" name="code"> procedure TForm1.N2Click(Sender: TObject); var s:string; begin OpenDialog1.execute; s:=extractfilename(OpenDialog1.FileName); Query1.close; Query1.SQL.clear; Query1.SQL.add('select * from s' ); Query1.Open; end; </textarea>
放了Tquery,Tdatasouse,Topendialog控件各一个，为何找不到从opendialog中选择的table?

'select * from "YourChosedParadoxTable.db" '

或
'select * from ''YourChosedParadoxTable.db'' '

------
Kevin

===================引 用 文 章===================
'select * from "YourChosedParadoxTable.db" '

或
'select * from ''YourChosedParadoxTable.db'' '
我的意思是怎样将变量s的值赋给sql语句中的表名。

s:=extractfilename(OpenDialog1.FileName);

s:= 'Select * from ''' s ''' ' ;
Query1.close;
Query1.SQL.clear;
Query1.SQL.add(S) ;
Query1.Open;

------
Kevin