農(nóng)機(jī)大全網(wǎng)（www.97661a.com）最新農(nóng)機(jī)信息：dialogboxparam,如何將ACCESS數(shù)據(jù)庫(kù)導(dǎo)入到SQLSERVER，農(nóng)機(jī)新產(chǎn)品,二手農(nóng)機(jī),農(nóng)機(jī)補(bǔ)貼目錄,農(nóng)機(jī)價(jià)格查詢,農(nóng)機(jī)報(bào)價(jià)大全，更多農(nóng)機(jī)資訊請(qǐng)查看：農(nóng)機(jī)資訊

　　dialogboxparam,如何將ACCESS數(shù)據(jù)庫(kù)導(dǎo)入到SQLSERVER

正文

文章目錄

• 1、dialogboxparam如何將ACCESS數(shù)據(jù)庫(kù)導(dǎo)入到SQLSERVER？

1、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;

我用過了的?？梢杂茫?/p>

一些不必要的東西自己去掉！

返回：安防百科