BDE改寫ADO |
答題得分者是:allenchan
|
iii928
一般會員 發表:19 回覆:10 積分:5 註冊:2004-06-04 發送簡訊給我 |
各位大哥好:
你弟有一個問題要發問,以下是我原本沒問題的程式碼,但是我現在要改成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 發送簡訊給我 |
|
allenchan
資深會員 發表:10 回覆:306 積分:283 註冊:2004-01-06 發送簡訊給我 |
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 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |