将一个Excel文件里的记录导入到SQLserver里去?

Question

请问怎么能得到我所选的Excel文件的sheel的名字?请问有没有一种更简单的方法,把我所选的这个Excel文件直接导成SQLserver指定数据库里的表?(比如说用DTS)该如何在VB里用代码实现?
(谢谢各位)

Answer 1

将Excel的数据导入SQL server :-- ======================================================SELECT * into newtableFROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',  'Data Source="c:\book1.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...[Sheet1$] 实例:SELECT * into newtableFROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',  'Data Source="c:\Finance\account.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...xactions

Answer 2

将SQL SERVER中查询到的数据导成一个Excel文件-- ======================================================T-SQL代码：EXEC master..xp_cmdshell 'bcp 库名.dbo.表名out c:\Temp.xls -c -q -S"servername" -U"sa" -P""'参数：S 是SQL服务器名；U是用户；P是密码说明：还可以导出文本文件等多种格式 实例:EXEC master..xp_cmdshell 'bcp saletesttmp.dbo.CusAccount out c:\temp1.xls -c -q -S"pmserver" -U"sa" -P"sa"'  EXEC master..xp_cmdshell 'bcp "SELECT au_fname, au_lname FROM pubs..authors ORDER BY au_lname" queryout C:\ authors.xls -c -Sservername -Usa -Ppassword'

Answer 3

在VB6中应用ADO导出EXCEL文件代码： Dim cn  As New ADODB.Connectioncn.open "Driver={SQL Server};Server=WEBSVR;DataBase=WebMis;UID=sa;WD=123;"cn.execute "master..xp_cmdshell 'bcp "SELECT col1, col2 FROM 库名.dbo.表名" queryout E:\DT.xls -c -Sservername -Usa -Ppassword'"-------------------------------------------------------------------------------------------------

Answer 4

用Microsoft.Jet.OLEDB.4.0 方式打开文件    Dim oConn As New ADODB.Connection
    Dim oRS As New ADODB.Recordset
    oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
     "Data Source=C:\Book1.xls;" & _
     "Extended Properties=""Excel 8.0;"""
    oRS.Open "Select * from [Sheet1$]", oConn, adOpenStatic '打开Sheet1，也
可以是定义的名称，或一个Range。
    ..
    ..
    ..
    oRS.Close
    oConn.Close
参考:
http://support.microsoft.com/default.aspx?scid=http://support.microsoft.com:80/support/kb/articles/Q278/9/73.asp&NoWebContent=1
dim adoConnection as new adodn.connection
adoConnection.Open "Provider=SQLOLEDB.1;Persist Security Info=True;User
ID=sa;Initial Catalog=YourDataBaseName;Data Source=YourServerName"
    '注意字段类型的匹配、一致、兼容
    'adoConnection.Execute "SELECT * INTO YourTableName FROM
OPENROWSET('MSDASQL.1', 'driver=Microsoft Excel Driver
(*.xls);DBQ=e:\temp\book2.xls','select * from [sheet1$]')"
    '可在 SQL Server Query Analyzer 中执行 SQL:
    ' SELECT * INTO YourTableName FROM OPENROWSET('MSDASQL.1',
'driver=Microsoft Excel Driver (*.xls);DBQ=e:\temp\book2.xls','select * from
[sheet1$]')
    adoConnection.Execute "INSERT INTO YourTableName SELECT * FROM
OPENROWSET('MSDASQL.1', 'driver=Microsoft Excel Driver
(*.xls);DBQ=e:\temp\book2.xls','select * from [sheet1$]')"

Answer 5

http://www.csdn.net/develop/read_article.asp?id=18623

Answer 6

Public Sub OpenSchemaX()   Dim cnn1 As ADODB.Connection
   Dim rstSchema As ADODB.Recordset
   Dim strCnn As String
      
   Set cnn1 = New ADODB.Connection
      strCnn = "Provider=sqloledb;" & _
      "Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; "
   cnn1.Open strCnn
      
   Set rstSchema = cnn1.OpenSchema(adSchemaTables)
   
   Do Until rstSchema.EOF
      Debug.Print "Table name: " & _
         rstSchema!TABLE_NAME & vbCr & _
         "Table type: " & rstSchema!TABLE_TYPE & vbCr
      rstSchema.MoveNext
   Loop
   rstSchema.Close
   
   cnn1.Close
   
End Sub该范例在 OpenSchema 方法的 Criteria 参数中指定 TABLE_TYPE 查询约束。因此，只返回在 Pubs 数据库中指定的 Views 的纲要信息。然后该范例显示这些表的名称和类型。Public Sub OpenSchemaX2()   Dim cnn2 As ADODB.Connection
   Dim rstSchema As ADODB.Recordset
   Dim strCnn As String
      
   Set cnn2 = New ADODB.Connection
      strCnn = "Provider=sqloledb;" & _
      "Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; "
   cnn2.Open strCnn
      
   Set rstSchema = cnn2.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "VIEW"))      Do Until rstSchema.EOF
         Debug.Print "Table name: " & _
            rstSchema!TABLE_NAME & vbCr & _
            "Table type: " & rstSchema!TABLE_TYPE & vbCr
         rstSchema.MoveNext
      Loop
   rstSchema.Close
   
   cnn2.Close
   
End Sub