从访问中循环访问访问数据集[重复]答案

【问题标题】：looping through the accessdata set from access [duplicate]从访问中循环访问访问数据集[重复]
【发布时间】：2013-12-01 19:54:04
【问题描述】：

我有一个访问数据库。数据库有一个表。表包含几个字段，包括 url 字段。我创建了一个表单来将 ms 访问数据迁移到 oracle。然后我添加了一个按钮来将数据保存到 oracle。但是在保存 url 之前，需要将一些字符替换为适当的字符。

Private Sub Command59_Click()

    accesstableDataSet = currentAccessSheet.gettable('tableToMigrate')
    foreach ( record in accestableDataSet){
        rowUrl = record.url
        url = doencode(rowUrl)
        exportToMysql(url)

}

如何通过写入访问表单按钮来执行上述操作？

【问题讨论】：

当您说“替换为适当的字符”时，您能更具体一点吗？你能给我们举一些例子吗？
'(' to '+%28' and 'space' to '+' ..........
使用 DAO 循环：stackoverflow.com/questions/5864160/…
rinjan（或 HK1），请提供作为答案并选择已接受的答案。这样可以更好地帮助其他人。
Smandoli 或 HK1，我可以将评论标记为答案吗？

标签： vba ms-access

【解决方案1】：

我不喜欢 DAO。我喜欢ADO ;) 即使有some limitations in MS Access，ADO 也提供对比 DAO 更广泛的数据源的访问，并公开了 DAO 不提供的 Jet 4.0 数据库引擎的一些功能。

暗淡为 ADODB.Recordset Dim sSQL AS 字符串，sUrl AS 字符串 sSQL = "SELECT *" & vbCr & _ “从表迁移” 设置 rst = 新 ADODB.Recordset rst.Open sSQL、CurrentProject.Connection、adOpenStatic 与第一 '填充第一个对象 .MoveLast .MoveFirst '通过不在时做 rst.EOF '获取Url并解码 sUrl = DecodeUrl(.Fields("Url")) ExportToMySQL(sUrl) .MoveNext 环形。关闭结束于

我假设您知道如何编写 DecodeUrl 和 ExportToMySQL 函数/过程；）

【讨论】：