【搞定】sql的问题,导入数据功能**

kd_xjx

想把去年的数据导入到今年来; SQL语句好用,DataBaseURL肯定对,
在query.Execute;发生错误   提示: 无效的连接字符串类型:Exception  .  


var
    query : TQuery;
    yearFrom ,yearTo : String;
begin
    yearFrom := CBFrom.Text.Trim();
    yearTo := CBTo.Text.Trim();

    query := TQuery.Create(nil);

    try
        query.ConnectionString := 'DataBaseURL = Biz:\GJDLSCJYYYXT\SJK.Database';
        query.CommandText := 'insert into T_TRADECOMPT(TheYear,ComptID,OrganizeID,ComptName,SuperiorComptID,ComptType,Flag,Module,ContractID,BranchName,ContractType)     select '
          + yearTo
          + ',ComptID,OrganizeID,ComptName,SuperiorComptID,ComptType,Flag,Module,ContractID,BranchName,ContractType  from T_TRADECOMPT where TheYear =' + yearFrom;
        query.Execute;

   //调试下,query.CommandText 的语句,用SQLPLUS试验,好用!!
    {insert into T_TRADECOMPT(TheYear,ComptID,OrganizeID,ComptName,SuperiorComptID,
    ComptType,Flag,Module,ContractID,BranchName,ContractType)
      select 2008,ComptID,OrganizeID,ComptName,SuperiorComptID,ComptType,Flag,
      Module,ContractID,BranchName,ContractType
      from T_TRADECOMPT
      where TheYear =2007
    }
    finally
        query.Free;
    end;

    DataSetBrokerCFWH.DataSet.Refresh;

atiger

你的意思，query.CommandText 后面的SQL语句在数据库执行是正常的，是吧

对了，你用的是啥类型的数据库，把'DataBaseURL = Biz:\GJDLSCJYYYXT\SJK.Database' 这个串都修改为大写看看

kd_xjx

肯定能执行, //调试下,query.CommandText 的语句,用SQLPLUS试验,好用!!   下面的语句就是调试状态下拿到的 query.CommandText 的内容
大写后还是报那个错误,
数据库就是按向导建的,没有什么选择呀?

atiger

那你别这么复杂，直接把SQL语句写出来，就是把调试出现的SQL写到query.CommandText 后面 ，看看执行是否ok

或者在信息层创建一个数据集，连接到这个数据库上，把这个SQL语句放进去，然后测试数据集看看是否ok

kd_xjx

直接写了,还是那个错误
在数据集上放INSERT语句就提示错误.是不是在数据集上只能放SELECT语句??

atiger

Sorry,数据集的SQL只能是从数据表中取数据的SQL，insert，delete等都不能用

知道原因了
把这个串的 'DataBaseURL = Biz:\GJDLSCJYYYXT\SJK.Database'  等号前后的空格删除看看

kd_xjx

结帖. OK好用了.谢谢

atiger

好，不客气