Andy,

Seguindo a conexão que o Kerplunk sugeriu, você prosseguiu e testou assim?

Dim RSAux As New ADODB.Recordset

Set RSAux = Cn.Execute(seuSQL)

 

Kerplunk,

Vendo sua sugestão, fiquei com uma dúvida, faço minha conexão como voce exemplificou, faz muito tempo, e uso ADO e comandos sql conforme acima.

Minha dúvida: faço referência somente à esta bibioteca: Microsoft ActiveX Data Objects X.X Library, as outras duas não. Tudo funciona, preciso setar as outras duas porque?

Agradeço,

Susana

 

Eu uso dessa forma, e até agora não observei casos de lentidão; vê se ajuda:

 

Dim pConexao As ADODB.Connection
Dim pRs As ADODB.Recordset
Dim strTemp As String
Dim TempArray() As String
Dim i As Long
Dim ValorAntigo As String
Dim ValorAntigoNaLista As Boolean

On Error Resume Next

ValorAntigo = cmbBancoDados.Text
cmbBancoDados.Clear
ValorAntigoNaLista = False

Set pConexao = New ADODB.Connection
pConexao.Open "DRIVER={MySQL ODBC 3.51 Driver};user=" & txtNomeUsuario & ";password=" & txtPassword & ";server=" & txtHost & ";option=20499"

If pConexao.State = 1 Then
       Set pRs = New ADODB.Recordset
       pRs.Open " Databases", pConexao, adOpenForwardOnly, adLockReadOnly, adCmdText
       If Not pRs.EOF Then
           strTemp = Trim$(pRs.GetString(adClipString, , "", vbCrLf))

        If strTemp <> "" Then
           TempArray = Split(strTemp, vbCrLf)
           For i = 0 To UBound(TempArray)
                If Trim$(TempArray(i)) <> "" And LCase$(Trim$(TempArray(i))) <> "mysql" And LCase$(Trim$(TempArray(i))) <> "temp" Then
                     cmbBancoDados.AddItem Trim$(TempArray(i))
                     If Trim$(TempArray(i)) = ValorAntigo Then ValorAntigoNaLista = True
                End If
           Next i
        End If
     End If
End If

Andy.Garcia

 

Também estou com problema de lentidão. Você conseguiu resolver o problema?

No meu caso tenho uma tabela com 270.000 registros. Lento assim não!!! Estou tentando migrar de Access para MySQL justamente por causa da lentidão. Não sei o que fazer. Alguém em algum banco de dados com este número de registros? Poderia passar um modelo de conexão pra nós?

 

Estou num Do While e dentro dele executo um "select" e é este comando que demora...

 

Obrigado.