dialogboxparam,如何將ACCESS數(shù)據(jù)庫(kù)導(dǎo)入到SQLSERVER
dialogboxparam,如何將ACCESS數(shù)據(jù)庫(kù)導(dǎo)入到SQLSERVER
正文
文章目錄
- dialogboxparam如何將ACCESS數(shù)據(jù)庫(kù)導(dǎo)入到SQLSERVER？
dialogboxparam如何將ACCESS數(shù)據(jù)庫(kù)導(dǎo)入到SQLSERVER？
var
excelx,excely,excelz:string;
excelapp,workbook:olevariant;
excelrowcount,i:integer;
begin
ifopendialog.executethen
begin
try
excelapp:=createoleobject('excel.application');
//workbook:=excelapp;
workbook:=excelapp.workbooks.open(opendialog.filename);//使用opendialog對(duì)話框指定
//excel檔路徑
excelapp.visible:=false;
excelrowcount:=workbook.worksheets[1].usedrange.rows.count;
withquery1do
begin
close;
sql.clear;
sql.add('deletefromcode');//再次導(dǎo)入的時(shí)候把以前的導(dǎo)入記錄刪除
execsql;
end;
fori:=2toexcelrowcount+1do
begin
excelx:=excelapp.cells[i,2].value;//導(dǎo)出第二列的數(shù)據(jù)
excely:=excelapp.cells[i,17].value;//導(dǎo)出第17列的數(shù)據(jù)
withquery1do
begin
close;
sql.clear;
sql.add('insertintocode(kahao,bumen)values(:a,:b)');
parameters.parambyname('a').value:=excelx;//excel檔的安防列插入到aa表的a欄位;
parameters.parambyname('b').value:=excely;//excel檔的第二列插入到aa表的b欄位;
execsql;//你要導(dǎo)出幾列自己定義
end;
end;
finally
workbook.close;
excelapp.quit;
excelapp:=unassigned;
workbook:=unassigned;
showmessage('導(dǎo)入成功！');
end;
end;
我用過(guò)了的。可以用！
一些不必要的東西自己去掉！
返回：安防百科
廣告咨詢：18215288822 采購(gòu)熱線：18215288822
聲明：農(nóng)機(jī)大全所有（圖文、音視頻）均由用戶自行上傳分享，僅供網(wǎng)友學(xué)習(xí)交流，版權(quán)歸原作者。若您的權(quán)利被侵害，請(qǐng)聯(lián)系 56325386@qq.com 刪除。
載注明出處：http://m.121vipspeaking.com/news/296621.html