我想用savedialog和query导出一个表里面的一些数据，正文里面的代码已经可以正确导出数据了，可是数据库类型和名称都不对，请帮我指正！

Question

这是我的代码：
procedure Ttest_querybyrq.Button2Click(Sender: TObject);
var
p_text1,p_text2,tablename1:string;
begin
  savedialog1.Filter:='dbf files (*.dbf)|*.dbf';
  if savedialog1.Execute then
  begin
    with query1 do
    begin
    Close;
    sql.Clear;
    sql.Add (' select * into :tablename1 from dc where JYRQ>=:p_text1 and JYRQ<=:p_text2 order by jyrq');
  //  sql.Add ('create table tablename1 select * from dc where jyrq>=:p_text1 and jyrq<=:p_text2 order by jyrq');
    ParamByName('tablename1').asstring:=ExtractFileName(SaveDialog1.FileName);
    ParamByName('p_text1').asstring:=combobox1.text;
    ParamByName('p_text2').Asstring:=combobox2.text;
    query1.ExecSQL;
    showmessage('数据导出完毕！');
    end;
  end;
end;
导出名字的代码我不会写，帮我改一下好吗？谢谢！

Answer 1

你应该先创建一个空的数据库文件，再连接到这个文件。
在程序里把Tablename1写成dc就可以了