| 发表于:2007-03-08 17:40:305楼 得分:0 |
dim inexstr as string = "provider=microsoft.jet.oledb.4.0;data source= " & strexcelname & ";extended properties= " "excel 8.0;hdr=yes;imex=1 " " " dim inexoledbcon as new oledb.oledbconnection(inexstr) dim inexolead as new oledb.oledbdataadapter( "select * from [sortdata$] ", inexoledbcon) dim inexds as new dataset inexolead.fill(inexds) dim inexdataad as dbdataadapter inexdataad.selectcommand.commandtext = "updatesql " dim inexcom as new sqlclient.sqlcommandbuilder(inexdataad) inexdataad.updatecommand = inexcom.getdeletecommand inexdataad.update(inexds) inexdataad.selectcommand.commandtext = "updatesql " 报错没有 “有没 创建实例” | | |
|