我的excel VBA应用程序有问题。我使用excel VBA连接到MySQL,以从数据库中获取一些值。该查询是“左外部联接”,该联接将表1的不存在的数据与表2连接起来。表1具有26000行,而表2具有320000行。我的查询的更多详细信息可以在下面的链接中找到。
直到今天早上,VBA代码都运行良好。早上,我收到“在向程序发送命令时出现问题”警告。但是,我只是忽略了警告并执行了程序。有效。停止程序后,我决定修复上述错误。我只是针对Microsoft网站的错误做了“修复”解决方案,并且我的程序停止执行上述查询。我对将会发生的事情一无所知。
编辑:
Private Sub CommandButton1_Click()
Start
End Sub
Function Start()
Dim f1, f2, f3, Increment
Dim oConn As ADODB.Connection
Dim rsPass As ADODB.Recordset
Dim sql As String
Dim strBatchName, obj, res
Set oConn = New ADODB.Connection
oConn.Open "ramesh"
sql = "My Left outer join query goes here"
Set obj = oConn.Execute(sql)
Do Until obj.EOF
Sleep 1000
f1 = obj.Fields(0).Value
f2 = obj.Fields(1).Value
f3 = obj.Fields(2).Value
Increment = GetMaximumID
Search f1:=f1, f2:=f2, f3:=f3,
Increment:=Increment
obj.MoveNext
Loop
oConn.Close
End Function
Function GetMaximumID() As Integer
Dim oConn As ADODB.Connection
Dim rsPass As ADODB.Recordset
Dim sql As String
Dim Increment, obj
Set oConn = New ADODB.Connection
oConn.Open "ramesh"
sql = "SELECT max(id) FROM AutoIncrementor"
Set obj = oConn.Execute(sql)
Increment = obj.Fields(0).Value
oConn.Close
GetMaximumID = Increment
End Function
Function Search goes here
好吧,似乎兼容性问题是造成此问题的原因。我使用的是Microsoft Professional Plus2010。我重新安装了Office,并按照以下链接中提到的大多数步骤进行操作。
http://www.jkp-ads.com/Articles/StartupProblems.asp。
作为最终解决方案,我执行了以下步骤。
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句