请教如何通过用Excel操作修改ACCESS数据库

eyeshen

各位家人好：
       刚学习用Excel操作ACCESS数据库，还有些不太懂，特意来请教。我的想法就是已经知道ACCESS的某数据的主键，想修改该主键对应的相关数据。详见附件。例如：

编号，姓名，分数，缺考
2        小明     78       否

我要修改ACEESS里面对应数据下面的分数、缺考情况。
操作数据库例子.rar (16.55 KB, 下载次数: 92)

2011-10-25 16:47 上传

点击文件名下载附件

eyeshen

在线求解。顺便翻翻旧帖

zhaogang1960

请测试
Sub Macro1()
    Dim cnn As Object
    Dim SQL As String
    Set cnn = CreateObject("adodb.connection")
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\db.mdb"
    SQL = "update 考试情况 set 分数 =0,缺考='是' where 编号 in(Select 编号 from [Excel 8.0;Database=" & ThisWorkbook.FullName & "].[Sheet1$] where 操作='取消')"
    cnn.Execute SQL
    cnn.Close
    Set cnn = Nothing
End Sub

eyeshen

看了一下别人的贴，是不是下面这个意思？
   
    myVal = #2010-12-8#
    Fs="分数"
    Qk="缺考"
    Set cnn = CreateObject("ADODB.Connection")
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\db.mdb"

    SQL = "UPDATE RtData SET 分数 = ‘0’, 缺考='否' WHERE 编号 = 2"
    cnn.Execute SQL
    cnn.Close

eyeshen

zhaogang1960 发表于 2011-10-25 17:20
请测试
Sub Macro1()
    Dim cnn As Object

很好，能运行。就是有些怕这句话 [Excel 8.0;Database=" & ThisWorkbook.FullName & "].[Sheet1$]，每次看见这种指向的语句都是很彷徨。我直接写个循环语句也可以吧？

万分感谢

zhaogang1960

eyeshen 发表于 2011-10-25 17:32
很好，能运行。就是有些怕这句话 [Excel 8.0;Database=" & ThisWorkbook.FullName & "].[Sheet1$]，每次 ...

当然可以，请参考：

1. Sub Macro2()
   
2.     Dim cnn As Object
   
3.     Dim arr, i&
   
4.     arr = [a1].CurrentRegion
   
5.     Set cnn = CreateObject("adodb.connection")
   
6.     cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\db.mdb"
   
7.     For i = 2 To UBound(arr)
   
8.         If arr(i, 5) = "取消" Then cnn.Execute "update 考试情况 set 分数=0,缺考='是' where 编号=" & arr(i, 1)
   
9.     Next
   
10.     cnn.Close
    
11.     Set cnn = Nothing
    
12. End Sub

复制代码

eyeshen

zhaogang1960 发表于 2011-10-25 17:38
当然可以，请参考：
Sub Macro2()
    Dim cnn As Object

很给力，版主好强啊

danysy

好东西，学习

qinhuan66

好好学习天天向上

liw0311041

为什么我用不了呢？