麻烦大家了！！！excel查询 引用access里面的数据。

zhaogang1960

waini13142962 发表于 2014-7-14 08:51
麻烦您看看我26楼的问题，我也是怕麻烦到您，所以问一下您是否在线。麻烦您了

不考虑只读模式这个条件：

1. Sub Macro1()
   
2.     Dim cnn As Object, SQL$
   
3.     Set cnn = CreateObject("ADODB.Connection")
   
4.     cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\B.mdb"
   
5.     SQL = "DELETE FROM 主线"
   
6.     cnn.Execute SQL
   
7.     SQL = "INSERT INTO 主线 SELECT * FROM [MS Access;pwd=;Database=" & ThisWorkbook.Path & "\A.mdb;].主线"
   
8.     cnn.Execute SQL
   
9.     cnn.Close
   
10.     Set cnn = Nothing
    
11.     MsgBox "ok"
    
12. End Sub
    
13. 
    

复制代码

zhaogang1960

请测试附件
联接.rar (41.12 KB, 下载次数: 43)

2014-7-14 16:14 上传

点击文件名下载附件

zhaogang1960

waini13142962 发表于 2014-7-14 13:11
版主大大，我把“数据源”里“主线”的数据插入一些列，列的顺序也更改过，我改了一下代码，发现不行，详 ...

1. Sub GetValue()
   
2.     Dim cnn As Object, SQL$
   
3.     Set cnn = CreateObject("adodb.connection")
   
4.     cnn.Open "Provider=Microsoft.Jet.Oledb.4.0;data Source=" & ThisWorkbook.Path & "\数据源.mdb"
   
5.     SQL = "select 顾客,用途,产品名称,图号,规格,材料,数量,[单重(Kg)],[总重(Kg)],单价,总价,来源号,顾客订单号,产品要求,交货状态,签订日期,计划纳期 from [Excel 8.0;Database=" & ThisWorkbook.FullName & ";].[Sheet4$a1:a" & [a65536].End(xlUp).Row & "] a left join 主线 b on a.工号=b.工号"
   
6.     Range("a1").CurrentRegion.Offset(1, 1).ClearContents
   
7.     Range("b2").CopyFromRecordset cnn.Execute(SQL)
   
8.     cnn.Close
   
9.     Set cnn = Nothing
   
10. End Sub
    

复制代码

zhaogang1960

字段名要写全，含有括号、空格等药用方括号括起来：
[单重(Kg)],[总重(Kg)]

请测试附件
求助12.rar (32.59 KB, 下载次数: 41)

2014-7-14 16:33 上传

点击文件名下载附件

waini13142962

zhaogang1960 发表于 2014-7-14 16:02
这个题目的目的是什么我不清楚，猜一猜：
在Excel中用VBA让B数据库的主线表同A数据库的主线表保持一致？ ...

嗯嗯 就是保持一致的意思，只读模式是指B数据库的主线表同A数据库的主线表保持一致，但是不对A数据库产生影响。

waini13142962

zhaogang1960 发表于 2014-7-14 16:33
字段名要写全，含有括号、空格等药用方括号括起来：
[单重(Kg)],[总重(Kg)]

谢谢您的耐心解答，真的麻烦您了，要不是您的耐心讲解，我都不知道怎么办，我还一些问题想想让您帮忙解决一下，不知道您是否有时间。

waini13142962

zhaogang1960 发表于 2014-7-14 16:33
字段名要写全，含有括号、空格等药用方括号括起来：
[单重(Kg)],[总重(Kg)]

您有没有发现 这次好像不能像21楼的附件一样，输入工号，自动显示类容，删除工号，后面的内容也自动删除，而是要按一下按钮才会显示,删除。您这个自动显示显示是怎么实现的啊，我昨天新建工作表把您的代码放进去尝试了无数次都无法实现，只有在您帮我做的表格里面才会实现。

youngyang

初学中，帮不上楼主

waini13142962

youngyang 发表于 2014-7-14 23:16
初学中，帮不上楼主

呵呵呵，来捧场也是非常欢迎的

waini13142962

zhaogang1960 发表于 2014-7-14 16:33
字段名要写全，含有括号、空格等药用方括号括起来：
[单重(Kg)],[总重(Kg)]

大大，您一般什么时候在线啊