哭天喊地求帮忙---vba 处理 access 表1与表2内容 update

shore0707

小弟目的：表2中和表1中姓名一样的电话号码复制到表1中，请大侠多多帮忙。

我的代码不知道错在哪？

Sub 运行()
    Dim mydata As String, myTable As String, SQL As String
    Dim myDb As DAO.Database
    mydata = ThisWorkbook.Path & "\数据.mdb"
    myTable = "表1"
    '建立与数据库的连接
    Set myDb = OpenDatabase(mydata, True, False, ";pwd=thb")
    '表2中和表1中姓名一样的电话号码复制到表1中。
    SQL = "update " & myTable & " set 表1.电话号码=表2.电话号码 from 表1,表2 where 表1.姓名=表2.姓名"
    myDb.Execute SQL
        '关闭数据库连接并释放变量
    myDb.Close
    Set myDb = Nothing
    MsgBox "已经更新成功"
End Sub

表处理.rar (17.44 KB, 下载次数: 65)

2012-2-5 23:43 上传

点击文件名下载附件

zhaogang1960

使用ADO如何？

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 & "\数据.mdb"
   
5.     SQL = "delete from 表1 where 姓名 in (select 姓名 from 表2)"
   
6.     cnn.Execute SQL
   
7.     SQL = "insert into 表1 select * from 表2"
   
8.     cnn.Execute SQL
   
9.     cnn.Close
   
10.     Set cnn = Nothing
    
11. End Sub
    

复制代码

shore0707

zhaogang1960 发表于 2012-2-6 00:42
使用ADO如何？

那么，我表1中如果还有字段，如地址啊，不想更新怎么办啊！
你这条 SQL = "delete from 表1 where 姓名 in (select 姓名 from 表2)"表1
是不是把我整条删除了！

表1

姓名          电话号码       地址
张三         123               浙江省
李四         223               杭州市
王五         323               浙江省

zhaogang1960

shore0707 发表于 2012-2-6 12:30
那么，我表1中如果还有字段，如地址啊，不想更新怎么办啊！
你这条 SQL = "delete from 表1 where 姓名 ...

1. Sub Macro1()
   
2.     Dim cnn As Object, rs 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 b.* from 表1 a,表2 b where a.姓名=b.姓名"
   
6.     Set rs = cnn.Execute(SQL)
   
7.     Do While Not rs.EOF And Not rs.BOF
   
8.         SQL = "update 表1 set 电话号码 ='" & rs.Fields(1) & "' where 姓名='" & rs.Fields(0) & " '"
   
9.         cnn.Execute SQL
   
10.         rs.MoveNext
    
11.     Loop
    
12.     rs.Close
    
13.     cnn.Close
    
14.     Set rs = Nothing
    
15.     Set cnn = Nothing
    
16.     MsgBox "已更新"
    
17. End Sub
    

复制代码

fendou1

你加这个号码41213784  他比我厉害

shore0707

fendou1 发表于 2012-2-6 13:09
你加这个号码41213784  他比我厉害

41213784 是什么号码

shore0707

zhaogang1960 发表于 2012-2-6 13:08

万分感谢！
还有个问题打开有密码的 数据.mdb 怎么写啊！

zhaogang1960

shore0707 发表于 2012-2-6 23:40
万分感谢！
还有个问题打开有密码的 数据.mdb 怎么写啊！

    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\数据.mdb;jet oledb:database password=123456"