請問如何從EXCEL轉資料到資料表？ |
|
缺席
|
|
funging
一般會員   發表：13 回覆：41 積分：10 註冊：2002-10-28 發送簡訊給我 |
|
|
FrederickPau
資深會員  發表：4 回覆：161 積分：268 註冊：2002-11-04 發送簡訊給我 |
|
|
funging
一般會員 發表：13 回覆：41 積分：10 註冊：2002-10-28 發送簡訊給我 |
|
|
funging
一般會員 發表：13 回覆：41 積分：10 註冊：2002-10-28 發送簡訊給我 |
|
|
ccchen
版主 發表：61 回覆：940 積分：1394 註冊：2002-04-15 發送簡訊給我 |
|
|
shpeng
初階會員 發表：6 回覆：67 積分：49 註冊：2002-12-21 發送簡訊給我 |
|
|
funging
一般會員 發表：13 回覆：41 積分：10 註冊：2002-10-28 發送簡訊給我 |
我利用adotable1去讀取我的excel檔，然後我把它當成一個table
要insert到mysql資料表，語法如下：
try
while not adotable1.Eof do
begin
with DM_NTIS.qr_NTIS do
begin
close;
sql.clear;
sql.add('INSERT INTO TEACHER(TEA_ID,TEA_CNAME,TEA_CTID,DEP_ID)VALUES(:VTEACHNO,:VCNAME,:VCTID,:VDEP)');
Prepare;
ParamByName('VTEACHNO').AsString:= ADOTable1.Fields[0].Value;
ParamByName('VCNAME').AsString:= ADOTable1.Fields[1].Value;
ParamByName('VCTID').AsString:= ADOTable1.Fields[2].Value;
ParamByName('VDEP').AsString:= ADOTable1.Fields[3].Value;
ExecSQL;
end;
adotable1.Next;
ShowMessage('教師資料匯入成功');
end; except
showmessage('教師資料無法轉入');
end; 此語法可以成功轉入，但是就是有一個問題，連excel空白的值也會insert，結果造成錯誤，想請問一下，有沒有可以解決的方法！謝謝！^^
|
|
funging
一般會員 發表：13 回覆：41 積分：10 註冊：2002-10-28 發送簡訊給我 |
發表時間：2002-12-17 23:01:26
IP:139.175.xxx.xxx 未訂閱
系統時間：2024-05-15 1:39:31
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |