如何用VB6将Excel的数据导入到SQL?

Public adoCon As New ADODB.Connection
Public adoRs As New ADODB.Recordset
Private Sub Command1_Click(Index As Integer)
    Select Case Index


    Case 1
                Adodc1.RecordSource = "select * from ShortageData order by IA"
                Adodc1.Refresh
                If Adodc1.Recordset.RecordCount > 0 Then
               ' MsgBox Adodc1.Recordset.RecordCount
                    Adodc1.Recordset.MoveLast
               
               adoCon.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=ShortageReport;Data Source=mat326\sa"

                '怎样将Excel导入?从这我不会,可以指点吗?
               ' Set adoRs = adoCon.Execute("insert into ShortageData values(.......???怎么写?,,,,,)")
               
               
                adoCon.Close
                End If

    Case Else[local]1[/local]

    End Select
End Sub
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=ShortageReport;Data Source=huamat326\sa"
End Sub

用另一ADODC连接Excel

我用CommonDialog打开再用Adodc连接的,关键是我不知道怎样将数据Inster到SQL,可以帮忙看看附件,帮我写一下代码吗?

[ 本帖最后由 yuk_yu 于 2010-6-30 08:42 编辑 ]

其实很简单 用个循环就搞定了
例如 Records1是读的Excel中的数据
     cmd 是连SQL的Command对象
     do until records1.EOF
         INSERT INTO 表(字段名1,字段名2,字段名3,...)" & _
                        " VALUES ( " & records1.fields(0).value & "," & records1.fields(1).value & "," ...
         records1.MoveNext
     LOOP

最快的是BCP,DTS

用DTS或BCP要求安装SQL,至少有一个express
如果SQL SERVER在本机,则一句Openrowset也可以搞定.
如果在远程,则可以先传到服务器,再openrowset.

谢谢!

版主,有实例吗?