请问如何编写VB代码从excel导入表到access,100分酬谢!

Question

请问如何编写VB代码从excel导入表到access,代码请尽量详细,谢谢!

Answer 1

Dim strConn As String, SqlCmd As String
Dim A() As String
Dim I As Integer, N As IntegerN = dgXls.Columns.Count - 1   'dgxls是一个datagrid控件
ReDim A(N)
For I = 0 To N
    A(I) = dgXls.Columns(I)
Next
AdoMdb.Recordset.AddNew   'ADOMdb是一个ADODC控件
For I = 0 To N
    AdoMdb.Recordset(I) = A(I)
Next
AdoMdb.Recordset.UpdateBatch
AdoMdb.Refresh

Answer 2

我要的是在程序里面选择某个excel文件,名字是不定的

Answer 3

SQL SERVER 与ACCESS、EXCEL的数据转换
http://www.microsoft.com/china/community/Column/31.mspx

Answer 4

我要的是在vb程序里,点击按扭选择某个excel文件,即可将里面的某个表导入到已有的access数据库中,与 sql server 数据库无关. 不能用access数据库本身的导入功能,只能用代码实现.

Answer 5

http://www.csdn.net/develop/Read_Article.asp?Id=14952

Answer 6

我看过的李洪根大虾的代码
    如何將 Excel 的文件导入 Access文件？ 
 
　下面我已將程序代码做成模块，只要导入必要之参数即可！此一模块共有四个参数：
1、sSheetName：要导出资料的文件名称 (Sheet name)，例如 Sheet1
2、sExcelPath：要导出资料的 Excel 档案路径名称 (Workbook path)，例如 C:\book1.xls
3、sAccessTable：要导入的 Access Table 名称，例如 TestTable
4、sAccessDBPath：要导入的 Access 档案路径名称，例如 C:\Test.mdb在声明中加入以下：Private Sub ExportExcelSheetToAccess(sSheetName As String, _
sExcelPath As String, sAccessTable As String, sAccessDBPath As String)
Dim db As Database
Dim rs As Recordset
Set db = OpenDatabase(sExcelPath, True, False, "Excel 5.0")
Call db.Execute("Select * into [;database=" & sAccessDBPath & "]." & _
sAccessTable & " FROM [" & sSheetName & "$]")
MsgBox "Table exported successfully.", vbInformation, "Yams"
End Sub
使用范例如下：將 C:\book1.xls 中的 Sheet1 导入 C:\Test.mdb 成为 TestTableExportExcelSheetToAccess "Sheet1", "C:\book1.xls", "TestTable", "C:\Test.mdb"