Question

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

Private Sub Command59_Click()

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

}

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

Answer 1

我不喜欢DAO。我喜欢ADO;）即使有some limitations in MS Access，ADO也可以访问比DAO更广泛的数据源，并且公开了Jet 4.0数据库引擎的一些功能，这些功能是不可用的。 DAO。

Dim rst As ADODB.Recordset
Dim sSQL AS String, sUrl AS String

sSQL = "SELECT *" & vbCr & _
    "FROM TableToMigrate"
Set rst = New ADODB.Recordset
rst.Open sSQL, CurrentProject.Connection, adOpenStatic
With rst
    'fill rst object
    .MoveLast
    .MoveFirst
    'proccess through the
    Do While Not rst.EOF
        'get Url and decode it
        sUrl = DecodeUrl(.Fields("Url"))
        ExportToMySQL(sUrl)
        .MoveNext
    Loop
    .Close
End With

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

从访问循环访问数据集

1 个答案: