农机大全网（nongjidaquan.com）最新农机信息：dialogboxparam,如何将ACCESS数据库导入到SQLSERVER，农机新产品,二手农机,农机补贴目录,农机价格查询,农机报价大全，更多农机资讯请查看：农机资讯

　　dialogboxparam,如何将ACCESS数据库导入到SQLSERVER

正文

文章目录

• 1、dialogboxparam如何将ACCESS数据库导入到SQLSERVER？

1、dialogboxparam如何将ACCESS数据库导入到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对话框指定

//excel档路径

excelapp.visible:=false;

excelrowcount:=workbook.worksheets[1].usedrange.rows.count;

withquery1do

begin

close;

sql.clear;

sql.add('deletefromcode');//再次导入的时候把以前的导入记录删除

execsql;

end;

fori:=2toexcelrowcount+1do

begin

excelx:=excelapp.cells[i,2].value;//导出第二列的数据

excely:=excelapp.cells[i,17].value;//导出第17列的数据

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;//你要导出几列自己定义

end;

end;

finally

workbook.close;

excelapp.quit;

excelapp:=unassigned;

workbook:=unassigned;

showmessage('导入成功！');

end;

end;

我用过了的。可以用！

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

返回：安防百科