你已经会了嘛! SQL用Select ... from Sheet1$ where ... 可以选出所要的EXCEL记录,其它嘛你应该知道的。 原理是你把EXCEL也作为一个数据表,用ADO方式或DAO方式打开就行了。
表名要这样写 就可以 [sheet1$]
如何实现excel文件导入SQL Server 答案正确,有源码相送.
如何实现excel文件导入SQL Server
Private Sub test() Dim cn As New ADODB.Connection Str_cn = "provider=msdasql;driver={MICROSOFT EXCEL DRIVER (*.XLS)};dbq=c:\0109.XLS" cn.Open Str_cn Strsql = "select * into Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=custom;Data Source=YourServer].[t14] from [0109$]" cn.Execute Strsql, , adCmdText cn.Close Set cn = Nothing End Sub
Private Sub test() Dim cn As New ADODB.Connection Str_cn = "provider=msdasql;driver={MICROSOFT EXCEL DRIVER (*.XLS)};dbq=c:\0109.XLS" cn.Open Str_cn Strsql = "select * into [Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=custom;Data Source=YourServer].[t14] from [0109$]" cn.Execute Strsql, , adCmdText cn.Close Set cn = Nothing End Sub
两个CONNECTION分别打开SQL和EXCEL然后导入即可,反过来也一样。
你的方法速度太慢了
TO:ltp3()
能否具体地谈谈或者发给我源代码万分感谢!
我现在出差在外地,手上没资料。最好是你自己查查资料和帮助,或则等我回去后再回复你。
To everyone:
我真的很着急啊怎么办?
SQL用Select ... from Sheet1$ where ...
可以选出所要的EXCEL记录,其它嘛你应该知道的。
原理是你把EXCEL也作为一个数据表,用ADO方式或DAO方式打开就行了。
答案正确,有源码相送.
Dim cn As New ADODB.Connection
Str_cn = "provider=msdasql;driver={MICROSOFT EXCEL DRIVER (*.XLS)};dbq=c:\0109.XLS"
cn.Open Str_cn
Strsql = "select * into Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=custom;Data Source=YourServer].[t14] from [0109$]"
cn.Execute Strsql, , adCmdText
cn.Close
Set cn = Nothing
End Sub
Dim cn As New ADODB.Connection
Str_cn = "provider=msdasql;driver={MICROSOFT EXCEL DRIVER (*.XLS)};dbq=c:\0109.XLS"
cn.Open Str_cn
Strsql = "select * into [Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=custom;Data Source=YourServer].[t14] from [0109$]"
cn.Execute Strsql, , adCmdText
cn.Close
Set cn = Nothing
End Sub
实时错误 -214721117911
[Microsoft][ODBC EXCEL 驱动程序]不能更新,数据库或对象为只读
请你告诉我为什么??
如何实现啊!! 各位大虾帮忙啊!救命!
Bardo(巴顿)
我试了将xls文件导入access的代码
用不用中文都提示说不能识别**$文件名.
怎么加事?