BDE改寫ADO

發文回覆瀏覽次數：914

推到 Plurk!

推到 Facebook!

答題得分者是：allenchan

iii928
一般會員

發表：19
回覆：10
積分：5
註冊：2004-06-04

發送簡訊給我

#1 引用回覆回覆

發表時間：2004-12-08 16:17:07

IP:211.78.xxx.xxx 未訂閱

各位大哥好：你弟有一個問題要發問，以下是我原本沒問題的程式碼，但是我現在要改成ADO元件，不知道該怎麼做呢? 謝謝指教~

while not Query1.Eof do
   begin
   with Query2 do
   begin
   Query2.close;
   Query2.sql.clear;
   Query2.sql.add('INSERT INTO PriTable(Nummer,Code,Company,Rate,Contact_Person,Sales,Tel,Address) VALUES(:Vnummer,:VCode,:VCompany,:VRate,:VContact_Person,:Vsalesrep,:VTel,:Vaddress)');
   Query2.Prepare;
   Query2.ParamByName('VNummer').AsString:= Query1.fieldbyname('Nummer').AsString;
   Query2.ParamByName('VCode').AsString:= Query1.fieldbyname('Membernr').AsString;
   Query2.ParamByName('VCompany').AsString:= Query1.fieldbyname('AltName').AsString;
   Query2.ParamByName('VRate').AsString:= Query1.fieldbyname('Pkz').AsString;
   Query2.ParamByName('VContact_Person').AsString:= Query1.fieldbyname('Name').AsString;
   Query2.ParamByName('Vsalesrep').AsString:= Query1.fieldbyname('salesrep').AsString;
   Query2.ParamByName('VTel').AsString:= Query1.fieldbyname('Telefon').AsString;
   Query2.ParamByName('Vaddress').AsString:= Query1.fieldbyname('Address').AsString;
   Query2.ExecSQL;       end;
   Query1.Next;
   end;

這是我改寫的，不過一直發生錯誤

While not TempQuery1.Eof Do
       Begin
         With TempQuery2 Do
           Begin
             TempQuery2.Close;
             TempQuery2.SQL.Clear;
             SQLSTR:='INSERT INTO PriTable(Nummer,Code,Company,Rate,Contact_Person,';
             SQLSTR:=SQLSTR 'Sales,Tel,City,ZIP,Address) VALUES(:Vnummer,:VCode,:VCompany,:VRate,';
             SQLSTR:=SQLSTR ':VContact_Person,:Vsalesrep,:VTel,:VCity,:VZip,:Vaddress)';
             TempQuery2.Parameters.ParamByName('VNummer').Value:=TempQuery1.fieldbyname('Nummer').AsString;
             TempQuery2.Parameters.ParamByName('VCode').Value:= TempQuery1.fieldbyname('Membernr').AsString;
             TempQuery2.Parameters.ParamByName('VCompany').Value:= TempQuery1.fieldbyname('AltName').AsString;
             TempQuery2.Parameters.ParamByName('VRate').Value:= TempQuery1.fieldbyname('Pkz').AsString;
             TempQuery2.Parameters.ParamByName('VContact_Person').Value:= TempQuery1.fieldbyname('Name').AsString;
             TempQuery2.Parameters.ParamByName('Vsalesrep').Value:= TempQuery1.fieldbyname('salesrep').AsString;
             TempQuery2.Parameters.ParamByName('VTel').Value:= TempQuery1.fieldbyname('Telefon').AsString;
             TempQuery2.Parameters.ParamByName('VCity').Value:= TempQuery1.fieldbyname('ORT').AsString;
             TempQuery2.Parameters.ParamByName('VZip').Value:= TempQuery1.fieldbyname('PLZ').AsString;
             TempQuery2.Parameters.ParamByName('Vaddress').Value:= TempQuery1.fieldbyname('Address').AsString;
             TempQuery2.ExecSQL;               End;
         TempQuery1.Next;
       End;

發表人 - cashxin2002 於 2004/12/08 16:27:56

cashxin2002
版主

發表：231
回覆：2555
積分：1937
註冊：2003-03-28

發送簡訊給我

#2 引用回覆回覆

發表時間：2004-12-08 16:30:55

IP:202.62.xxx.xxx 未訂閱

您好﹗ 請注意程式碼部分的縮排﹐以利用觀察程式碼﹐謝謝﹗ http://delphi.ktop.com.tw/topic.php?TOPIC_ID=57538 小弟先幫您做縮排的動作了﹐以后請記得出錯信息是什么﹖ <><>========================= 我是您的朋友﹐有您真好﹗ =========================

------
忻晟

allenchan
資深會員

發表：10
回覆：306
積分：283
註冊：2004-01-06

發送簡訊給我

#3 引用回覆回覆

發表時間：2004-12-08 23:28:53

IP:61.62.xxx.xxx 未訂閱

While not TempQuery1.Eof Do
Begin
 With TempQuery2 Do
   Begin
     TempQuery2.Close;
     TempQuery2.SQL.Clear;
     SQLSTR:='INSERT INTO PriTable(Nummer,Code,Company,Rate,Contact_Person,';
     SQLSTR:=SQLSTR 'Sales,Tel,City,ZIP,Address) VALUES(:Vnummer,:VCode,:VCompany,:VRate,';
     SQLSTR:=SQLSTR ':VContact_Person,:Vsalesrep,:VTel,:VCity,:VZip,:Vaddress)';
     TempQuery2.sql.add(SQLSTR);
     TempQuery2.Prepared := True;
     TempQuery2.Parameters.ParamByName('VNummer').Value:=TempQuery1.fieldbyname('Nummer').AsString;
     TempQuery2.Parameters.ParamByName('VCode').Value:= TempQuery1.fieldbyname('Membernr').AsString;
     TempQuery2.Parameters.ParamByName('VCompany').Value:= TempQuery1.fieldbyname('AltName').AsString;
     TempQuery2.Parameters.ParamByName('VRate').Value:= TempQuery1.fieldbyname('Pkz').AsString;
     TempQuery2.Parameters.ParamByName('VContact_Person').Value:= TempQuery1.fieldbyname('Name').AsString;
     TempQuery2.Parameters.ParamByName('Vsalesrep').Value:= TempQuery1.fieldbyname('salesrep').AsString;
     TempQuery2.Parameters.ParamByName('VTel').Value:= TempQuery1.fieldbyname('Telefon').AsString;
     TempQuery2.Parameters.ParamByName('VCity').Value:= TempQuery1.fieldbyname('ORT').AsString;
     TempQuery2.Parameters.ParamByName('VZip').Value:= TempQuery1.fieldbyname('PLZ').AsString;
     TempQuery2.Parameters.ParamByName('Vaddress').Value:= TempQuery1.fieldbyname('Address').AsString;
     TempQuery2.ExecSQL;       End;
 TempQuery1.Next;
End;

發表人 - allenchan 於 2004/12/09 00:00:17

系統時間：2024-07-02 23:04:41

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！