EXCEL导入SQL的问题
strsql1 = "SELECT * into 设备告警记录报表 from openrowset('Microsoft.Jet.OleDb.4.0','Excel 8.0;DataBase=" & filepath & ";HDR=Yes;IMEX=1',sheet1$)"
SQLConn As String = "Persist Security Info=False;Integrated Security=SSPI;database=pay;server=localhost;Connect Timeout=30"
'建立数据库连接对象
SQLcnn = New SqlConnection(SQLConn)
'打开数据库连接
SQLcnn.Open()
Dim SqlComm As SqlCommand = New SqlCommand(strsql1, SQLcnn)
cn.Open()
Return SqlComm.ExecuteNonQuery()
可是最后一行报错如下：
链接服务器 "(null)" 的 OLE DB 访问接口 "Microsoft.Jet.OleDb.4.0" 报错。提供程序未给出有关错误的任何信息。 无法初始化链接服务器 "(null)" 的 OLE DB 访问接口 "Microsoft.Jet.OleDb.4.0" 的数据源对象。
[解决办法]
http://download.csdn.net/source/2638415
自己写过一个
