问题[ms-access-2007](dba)

有人可以看一下这段代码并提供有关我做错了什么的提示吗？这段代码几乎是从一本参考书上摘下来的，作为一个关于如何使用 VBA ADO 对象的例子。这是代码：
Sub TestMyADODB() Dim mySQL As String Dim myConnection As DAO.Connection Dim myRecordSet As DAO.Recordset Set myConnection = CurrentProject.Connection ' Crash here mySQL = mySQL & "UPDATE Amplifier " mySQL = mySQL & "SET Amplifier.lngCategory = 405, Amplifier.lngSubType = 3 " mySQL = mySQL & "WHERE (((Amplifier.lngPartIndex)=9))" myRecordSet.OpenRecordset mySQL Debug.Print "DONE" myRecordSet.Close Set myRecordSet = Nothing Set myConnection = Nothing

此外，我尝试使用ADODB 对象，结果，编译器不允许该代码。我发现我需要添加对 MS dll 的引用，我这样做了，结果仍然相同。然后我开始从 VBA 收到一个错误，指出我不能使用现在“过时”的 DAO，我必须使用 ADO。剩下的是 10 个小时的宝贵时间，试图从网络上的多篇文章中揭开 ADO DAO 问题的神秘面纱。底线是，如果我使用 DAO，我的 Access 2007 就会崩溃，编译器将拒绝使用 ADO。我正在为这个问题而烦恼，我需要帮助！欣赏
PS：mySQL 字符串已经在 Access 查询中测试过并且功能正常。

我不好意思问这个问题，因为我只是暂时使用 Access 前端，但我被要求将 access 2007 数据库迁移到带有 php 前端的 mysql。我已将数据移至 mysql 并正在处理 ~400 份表格、报告等，但希望用户在我开发新系统时能够访问该系统。

我对访问没有什么经验，虽然我已经能够连接到 mysql 表，但表单似乎没有更新它们的数据源。

有没有办法将整个访问前端更新为新表？还是我错过了一些非常简单明了的东西。我在谷歌上进行了大量搜索，并且阅读了我正在输入此内容的页面上出现的所有“类似问题”，但无法找到似乎适用的答案。

感谢您提供的任何帮助或链接。

我有具有以下格式的 Access 表：

--------------------------------------
|Name |Math|Science|Reading|Civics|
--------------------------------------
|Mike | A  |  C    |  A    | B    |
|John | B  |  A    |  A    | B    |
|Randy| A  |  C    |  A    | A    |
|Sasha| B  |  C    |  D    | A    |
|Max  | A  |  C    |  A    | A    |
|Jenn | A  |  A    |  A    | C    |
-----------------------------------

是否有我可以使用的任何 Access Sql 代码或 Access VBA 脚本，以便我可以按以下格式转换（或在查询/结果集中输出）上表？

 --------------------
|   Name      |Grade|
---------------------
|Mike Math    | A   |
|Mike Science | c   | 
|Mike Reading | A   |
|Mike Civics  | B   |
|John Math    | B   |
|John Science | A   | 
|John Reading | A   |
|John Civics  | B   |
|Randy Math   | A   |
 etc... 

到目前为止我发现的是以下 2 个线程，它们显示了如何在 Access 中使用 VBA 将所有字段名称引入数组或只是基本输出。这是我要完成的工作的开始（因为本质上我需要将字段名称引入第一列）。如果我能弄清楚，我会发回。

https://stackoverflow.com/questions/11548697/how-to-list-fields-name-in-table-in-access-using-sql

http://forums.asp.net/t/1143922.aspx

我想知道我是否可以做类似...

For each fieldname in table (where fieldname != Name)
Begin 
select 
Name + ' ' + Subject as Name, 
(select Grade from table where Name = Name and Subject = Subject) as Grade
End