崩溃,为什么我照着斑竹的做,是错的,EXCEL导入ACCESS某一列

jiangdibodanny

程序如下:
Private Sub CommandButton4_Click()
    Dim cnn As Object, SQL$
    Set cnn = CreateObject("adodb.connection")
    cnn.Open "provider=microsoft.ACE.oledb.12.0;data source=" & ThisWorkbook.Path & "\DATABASE5.ACCdb"
    SQL = "update BX5A a,[Excel 8.0;hdr=no;Database=" & [f28] & "].[sheet1$d5:S" & [a65536].End(xlUp).Row & "] b set a.测量日期20130613=b.f4 where a.ID=CStr(b.f5)"
    cnn.Execute SQL             显示错误:  (至少一个参数没有被指定值)
    MsgBox "已将实出数量更新到数据库。", vbInformation + vbOKOnly, "提示"
    cnn.Close
    Set cnn = Nothing
End Sub


ID为主键,添加的字段名如图
[F28]是文件地址


EXCEL相关信息


求助,@斑竹zhaogang1960

zhaogang1960

请上传工作簿和Access数据库分析一下

jiangdibodanny

  在这里,谢谢斑竹了

zhaogang1960

jiangdibodanny 发表于 2013-12-4 19:23
在这里,谢谢斑竹了

1. Private Sub CommandButton4_Click()
   
2.     Dim cnn As Object, SQL$
   
3.     Set cnn = CreateObject("adodb.connection")
   
4.     cnn.Open "Provider=Microsoft.Ace.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\Database5.accdb"
   
5.     SQL = "update BX5A a,[Excel 12.0;imex=0;Database=" & ThisWorkbook.FullName & "].[Sheet1$d6:e" & [d65536].End(xlUp).Row & "] b set a.测量日期20130613=b.测量值 where a.ID=b.ID"
   
6.     [E6] = "ID"
   
7.     cnn.Execute SQL
   
8.     MsgBox "已将实出数量更新到数据库。", vbInformation + vbOKOnly, "提示"
   
9.     cnn.Close
   
10.     Set cnn = Nothing
    
11. End Sub
    

复制代码

zhaogang1960

请看附件
统计数据.rar (199.06 KB, 下载次数: 15)

2013-12-4 21:57 上传

点击文件名下载附件

jiangdibodanny

zhaogang1960 发表于 2013-12-4 21:57
请看附件

成功了,谢谢斑竹,我还有一个问题,
     能在程序前加打开工作薄程序,实现不同的EXCEL一块加载吗?
如下:
Dim ExlApp As Object
Dim ExlBook As Object
Dim ExlSheet As Object
For i = 0 To ListBox1.ListCount - 1
           Set ExlApp = New Excel.Application
   
           Set ExlBook = ExlApp.Workbooks.Open(ListBox1.List(i))
   
           Set ExlSheet = ExlBook.Worksheets(1)
Dim cnn As Object, SQL$

    Set cnn = CreateObject("adodb.connection")

    cnn.Open "Provider=Microsoft.Ace.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\Database5.accdb"

    SQL = "update BX5A a,[Excel 12.0;imex=0;Database=" & ListBox1.List(i)) & "].[Sheet1$d6:e" & [d65536].End(xlUp).Row & "] b set a.测量日期20130613=b.测量值 where a.ID=b.ID"

    [E6] = "ID"

    cnn.Execute SQL

    MsgBox "已将实出数量更新到数据库。", vbInformation + vbOKOnly, "提示"

    cnn.Close

    Set cnn =Nothing
ExlBook.Close True
next i

zhaogang1960

jiangdibodanny 发表于 2013-12-5 09:55
成功了,谢谢斑竹,我还有一个问题,
     能在程序前加打开工作薄程序,实现不同的EXCEL一块加载吗?
如下: ...

导入其他工作簿数据到Access数据库，不用打开该工作簿
请上传附件，并说明导入数据所在工作表、区域

jiangdibodanny

恩,有个新问题,我想把数据库的字段名跟COMBOBOX绑定,用adodc控件没问题,转到对象时,发生错误
楼主看看是什么错误,运行没有错误显示

zhaogang1960

jiangdibodanny 发表于 2013-12-5 15:54
恩,有个新问题,我想把数据库的字段名跟COMBOBOX绑定,用adodc控件没问题,转到对象时,发生错误
楼主看看是 ...

这个不是1楼的问题吧，没有程序怎么运行？

请说明你的具体要求

jiangdibodanny

zhaogang1960 发表于 2013-12-5 16:08
这个不是1楼的问题吧，没有程序怎么运行？

请说明你的具体要求

一样的,数据库还是1楼的那个