VB中如何用SQL语言将其他类型数据文件（如Excel）导如Sql Server

Question

SELECT * 
FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
  'Data Source="c:\book1.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...[Sheet1$]

Answer 1

上面的语句就能显示　EXCEL数据，你可以用操作SQL中的表一样，干　什么都行

Answer 2

但是我是要导入数据库呀，而不是显示，不知道Sql Server支不支持select * into这种sql语言

Answer 3

SELECT * into 新表名
FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
  'Data Source="c:\book1.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...[Sheet1$]

Answer 4

谢谢大力，我是像下面这样写的，可是执行时要不提示表已经存在，要不完成后，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