救急！！关于Adoquery.SQL

Question

1.我有两个库文件：record.mdb 和 qsearch.mdb 。
2.用adoquery1 连接 record.mdb 使用sql查询出一组数据。现在程序能正确运行。程序代码如下：
  Adoquery1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;'+
                              'Data Source=f:\testado\record.mdb'+
                              'Persist Security Info=False';
  AdoTable1..ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;'+
                              'Data Source=f:\testado\qsearch.mdb'+
                              'Persist Security Info=False';
  AdoTable1.TableName:='telephone';
  Adoquery1.Close;
  Adoquery1.SQL.Clear;
  Adoquery1.Parameters.Clear;
  Adoquery1.Parameters.AddParameter.Name:='Param1';
  Adoquery1.Parameters.ParamByName('Param1').DataType:=ftFloat;
  Adoquery1.Parameters.AddParameter.Name:='Param2';
  Adoquery1.Parameters.ParamByName('Param2').DataType:=ftFloat;
  Adoquery1.SQL.Text:='select * from Telephone where ENDDT BETWEEN Param1 and Param2';
  Adoquery1.Parameters.ParamByName('Param1').Value:=37230;
  Adoquery1.Parameters.ParamByName('Param2').Value:=38236;
  Adoquery1.Open;3.现在我想把查询的结果，添加到另一个库文件(qsearch.mdb)中。
  我使用Insert Into 添加到上面的SQL.Text中，一直调试通不过。现征求正确的程序代码。
  

Answer 1

你把Adoquery1.Open改成adoquery1.execsql试试，还有我觉得你的使用adoquery的方法好复杂啊，没必要这样吧，晕

Answer 2

用两个Adoconnection,对第一个查询出的数据，循环，一条一条插入到第二个表中

Answer 3

  Adoquery1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;'+
                              'Data Source=f:\testado\record.mdb'+
                              'Persist Security Info=False';
  AdoTable1..ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;'+
                              'Data Source=f:\testado\qsearch.mdb'+
                              'Persist Security Info=False';
  AdoTable1.TableName:='telephone';
  Adoquery1.Close;
  Adoquery1.SQL.Clear;
  Adoquery1.SQL.Text:='select * from Telephone where ENDDT BETWEEN :Param1 and :Param2';
  Adoquery1.Parameters.ParamByName('Param1').Value:=37230;
  Adoquery1.Parameters.ParamByName('Param2').Value:=38236;
  Adoquery1.Open;OK!

Answer 4

Insert Into 怎么写？？？

Answer 5

没有冒号，程序能运行。我是想问，Insert Into 的用法

Answer 6

TAdoQuery
Open方法只能进行数据库的查询操作
ExecSQL方法能执行全部的SQL语句

Answer 7

这样好了，你把Query得出的结果赋值给变量，再通过insert完成