使用VBA

Question

我通过Mysql将ms访问连接到ODBC时遇到连接错误 它从“闲置”一分钟后超时。 iIasked我的服务器提供商，他说他不能修改任何变化，因为它的共享mysql服务器，所以我试图使用自动重新链接ODBC的代码，当它即将超时像这样：

'Delete the link tables to avoid the timeout issue
Function RemoveLinkTables()
Dim TableList, TableName
On Error Resume Next
TableList = Array("table1", "table2")
For Each TableName In TableList
    CurrentDb.TableDefs.Delete TableName
Next

End Function

Function CreateLinkTables2()

   Dim Mytdf As TableDef, MyLocal As String, MySource As String, MyConnectStr As String


    'Define the ODBC connect strings
    MyConnectStr = "ODBC;DSN=CON;DESC=MySQL ODBC 3.51 Driver DSN;DATABASE=DATABASE;SERVER=********;UID=Admin;PASSWORD=*****;PORT=3306;OPTION=131075;STMT=;TIMEOUT=6000;"

    'Create the ODBC table
    'Repeat this for each table
    MySource = "T1"
    MyLocal = "Table1"
    GoSub MakeItNow

    MySource = "T2"
    MyLocal = "Table2"
    GoSub MakeItNow

Exit Function

MakeItNow:
    Set Mytdf = CurrentDb.CreateTableDef(MyLocal)
    Mytdf.Connect = MyConnectStr
    Mytdf.SourceTableName = MySource
    CurrentDb.TableDefs.Append Mytdf

    Return



End Function

连接速度有点快，但是在空闲一分钟后仍然超时...这段代码正在执行jop吗？或者我错过了一些东西：/ ...我发现太多其他代码来修复错误（其中有类似“如果连接＆gt; 0然后......”但是idk如何修改它们因为我有2个表需要处理...

我真正需要的是每隔30秒重新连接到表格，所以我不会断开连接“出现的错误是Mysql服务器已经消失”60秒后空闲

我希望每隔一分钟重新连接并刷新表链接，这样我就不会失去与mysql的连接