delphi 匯入Excel到資料庫

procedure tfrmchanpin_daoru.btn2click(sender: tobject);

// uses comobj; //
// excel 匯入到資料庫 //
// 高文傑 2009.6.22 //
var n1:string;
i,j:integer;
filename:string;
myfloat:double;
opendialog:topendialog;
begin
opendialog:=topendialog.create(nil);
opendialog.filter:='excel檔案|*.xls';
if not opendialog.execute then begin
opendialog.free;
exit;
end;
filename := opendialog.filename;
//自適應寬度 
j:=2; //假定標題在第一行
try 
with qry1 do
begin
n1:='insert into xcm_chanpin_info(dl_dm,xl_dm,cp_dm,cp_name,cp_jldw,cp_jj,cp_sj,cp_iszengpin)'
+'values(:dl_dm,:xl_dm,:cp_dm,:cp_name,:cp_jldw,:cp_jj,:cp_sj,:cp_iszengpin)';
close;
sql.clear;
sql.add(n1);
begin
for i:=1 to 8 do begin //共8列
if i=1 then begin
//檢查大類是否存在
qry2.close;
qry2.prepared;
qry2.open;
if qry2.eof then begin
mmo1.lines.add('匯入第'+inttostr(j)+'行時,產品大類不存在,請檢查');
opendialog.free;
exit;
end; 
end;
if i=2 then begin
//檢查小類是否存在
qry2.close;
qry2.prepared;
qry2.open;
if qry2.eof then begin
mmo1.lines.add('匯入第'+inttostr(j)+'行時,產品小類不存在,請檢查');
opendialog.free;
exit;
end;
end;
if i=3 then begin
//檢查產品編號是否已經存在
qry2.close;
qry2.prepared;
qry2.open;
if not qry2.eof then begin
mmo1.lines.add('匯入第'+inttostr(j)+'行時,產品編號重複,請檢查');
opendialog.free;
exit;
end;
end;
if i=6 then begin
//檢查產品進**式是否正確
mmo1.lines.add('匯入第'+inttostr(j)+'行時,產品進**式錯誤,請檢查');
opendialog.free;
exit;
end;
end;
if i=7 then begin
//檢查產品建議零售**式是否正確
mmo1.lines.add('匯入第'+inttostr(j)+'行時,產品建議零售**式錯誤,請檢查');
opendialog.free;
exit;
end;
end;
if i=8 then begin
//檢查贈品格式是否正確
mmo1.lines.add('匯入第'+inttostr(j)+'行時,產品建議零售**式錯誤,請檢查');
opendialog.free;
exit;
end; 
end; 
end; 
execsql;
mmo1.lines.add('匯入第'+inttostr(j)+'行成功');
j:=j+1;
end;
mmo1.lines.add('匯入完畢,共匯入'+inttostr(j-2)+'行資料'); 
end;
except
mmo1.lines.add('匯入第'+inttostr(j)+'行時,資料庫錯誤或有重複編號,請檢查'); 
opendialog.free;
end;
opendialog.free;
end;

將excel中的資料匯入到oracle資料庫中

1 右鍵 新建 microsoft excel 2 新增資料 列名和資料對應 3 檔案 f 另存為 a 儲存型別為 製表符分隔，起名為text.txt 名字隨便起，但一定是txt型別 儲存到d 4 連入sql plus 資料庫已經建好表的，此步驟省略 以system 123使用者登入 如果是遠端資料...

Excel資料匯入到Grid

方法一 string strcon provider microsoft.jet.oledb.4.0 data source strsource extended properties excel 8.0 string query select from sheet1 sheet1表示表 oledb...

Excel資料匯入到Access

下面是asp的全部程式，需要做的是建乙個test.mdb資料庫和乙個test.xls的excel 查詢excel準備匯入到access sql select from sheet1 要匯入的excel資料裡面的表的名稱，後面一定要加 set rs conn2.execute sql while no...