怎么在VB中把excel中的数导入到数据库中

怎么在VB中把excel中的数导入到数据库中

---

直接在vb中调用数据库的导入功能进行导入。

---

自己百度一下,代码海了去了,方法有好多

---

参考
http://blog.sina.com.cn/s/blog_4a384544010004zk.html

---

'判断数据库中表是否存在
  '在
  删除表
  '如果不在
  Adodc1.RecordSource = "select * into test from [excel 8.0;database=" & App.Path & "\boox1.xls].[sheet1$]"
============
这个最简单了

---

以前做的：


数据量大了就慢死人

你看看
Private Sub Command3_Click()
'找出EXCEL文件位置
CommonDialog1.ShowOpen
Dim data_jbxx As String
data_jbxx = CommonDialog1.FileName
If data_jbxx <> "" Then
    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据.MDB;Persist Security Info=False;Jet OLEDB:Database password=密码"
    Adodc1.RecordSource = "select * from 表名 "
    Adodc1.Refresh
    Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
    xlApp.Visible = False '设置EXCEL不可见
    Set xlBook = xlApp.Workbooks.Open(data_jbxx) '打开EXCEL工作簿
    Set xlsheet = xlBook.Worksheets(1) '打开EXCEL工作表
    'xlsheet