谢谢大力,我是像下面这样写的,可是执行时要不提示表已经存在,要不完成后,sql server数据库中却找不到相应的数据表,不知道是怎么回事?
我觉得说不定sql server不像jet一样支持select * into 的用法或者是数据对象DAO,现在我就是在试分别打开两个记录集,再用循环导入的方法。
public import()
Dim ado As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim str, sql As String
Dim db As Database
str = "Provider=sqloledb;Network Library=DBMSSOCN;Data Source=192.168.12.180,1433;Initial Catalog=database;User ID=sa;Password=ty"
ado.CursorLocation = adUseClient
ado.Open str
sql = "drop table user"
rs.Open sql, ado, adOpenStatic, adLockOptimistic, adCmdText
Set db = OpenDatabase(E:\import.xls, True, False, "Excel 8.0")
Call db.Execute("Select * into [;database=database].user FROM ["sheet1"$]")
end sub