如何在Delphi中實作將Excel中資料匯入資料庫
uj5u.com熱心網友回復：
excel 匯入資料庫??/ 我只有匯出來。。。excel 匯入資料庫 要驗證資料吧
uj5u.com熱心網友回復：
const
cnnstr = 'Provider=Microsoft.Jet.OLEDB.4.0; Data Source=%s; Extended Properties=Excel 8.0; Persist Security Info=False ';
procedure btnLoadExcelClick(Sender: TObject);
var
filename : String;
s_1 : String;
s_2 : String;
s_3 : String;
begin
try
ADOQuery1.Close;
ADOQuery1.ConnectionString := Format(cnnstr,[filename]);
// Sheet1 為Excel檔案作業簿名
ADOQuery1.SQL.Text := 'SELECT * FROM [Sheet1$]';
ADOQuery1.Open;
ADOQuery1.First;
while not ADOQuery1.Eof do
begin
s_1 := ADOQuery1.Fields.Fields[0].AsString;
s_2 := ADOQuery1.Fields.Fields[1].AsString;
s_3 := ADOQuery1.Fields.Fields[2].AsString;
ADOQuery1.Next;
end;
finally
ADOQuery1.Close;
end;
end;
// 這個是從Excel取值，剩下的寫入資料庫，樓主就自己搞定咯，insert 或者update
uj5u.com熱心網友回復：
建議使用第三廣控制元件，一是速度快，二是不使用Ole。uj5u.com熱心網友回復：
excel匯入資料庫首先要看你的excel資料格式是否符合標準。如果你的excel資料是按列排好的，或者第一行是列名，或者第一行就是資料都行。如果符合上述條件，那么可以直接用2樓的方法匯入。
如果不符合，那就只能讀取單個cell資料填寫了。
當然，也可以在excel中寫vba匯入sql，或者sql中直接匯入excel。
uj5u.com熱心網友回復：
XLSReadWrite4轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/131913.html
標籤：數據庫相關