将excel中的数据导入到数据库表中?

Question

在VB开发环境中需要通过一个按钮,实现把一个保存好的EXCEL表格中的数据导入到SQL Server数据库中的一张表中.怎么实现啊?
      各位高手给妹妹帮帮忙吧!  
    有一点急哦...

Answer 1

Function exportExcelToAccess(ByVal sSheetName As String, _
ByVal sExcelPath As String, ByVal sAccessTable As String, ByVal sAccessDBPath As String)''''''''''' ADO 方式
Dim Cn As ADODB.Connection
Set Cn = New ADODB.Connection
Cn.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & sExcelPath & ";Extended Properties = Excel 8.0;"
Cn.OpenCall Cn.Execute("Select * into [;database=" & sAccessDBPath & "]." & _
        sAccessTable & " FROM [" & sSheetName & "$]")
'Set Cn = Nothing'MsgBox "Table exported successfully!", vbInformationEnd Function调用实例:
exportExcelToAccess "Sheet1", App.Path & "\middle\info.xls", "info", App.Path & "\db\db1.mdb"