Hola a todos.

Estoy haciendo una conexión a una BD externa alojada en un servidor de internet usando lo siguiente:

Public Conexion As Connection

Conexion.ConnectionString = "driver={MySQL ODBC 3.51 Driver};server=<servidor>uid=<usuario>;pwd=;databa se=<base_datos>;connection="
Else

Conexion.Open

Cuando ejecuta conexion.open, se queda "pensando" varios segundos, ¿hay alguna forma de crear un ProgressBar, ya que comono hay ningún bucle no se como ponerlo si es que hay alguna forma.

Gracias.

Puedes usar un timer, has algo así, aunque no es muy elegante le dará una idea al usuario de que esta trabajando el programa

Option Explicit
Dim i As Integer

Dim cn As ADODB.Connection

Private Sub Command1_Click()
on error goto SinConexion
Set cn = New ADODB.Connection

ProgressBar1.Min = 0
ProgressBar1.Max = 100
ProgressBar1.Value = 0
Timer1.Enabled = True
Timer1_Timer
Screen.MousePointer = vbHourglass

cn.Open "Provider=SQLOLEDB.1;Password=william;Persist Security Info=True;User ID=williamjsg;Initial Catalog=SIGA;Data Source=SERVERPRIN\SERVER"

Screen.MousePointer = vbDefault

SinConexion:
if err.number<>0 then msgbox err.description,vbCritical

End Sub

Private Sub Timer1_Timer()
If ProgressBar1.Value < 100 And cn.State = adStateClosed Then
i = i + 1
ProgressBar1.Value = i * 10
Else
Timer1.Enabled = False
ProgressBar1.Value = 100
End If
End Sub

Agrega un progressbar, un timer, y un Boton "b", y prueba con este codigo, Uso una conexion via texto.
Espero que te sirva...

'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '
Option Explicit


Dim cn As New ADODB.Connection


Dim strCn As String


Dim n As Integer


Private Sub b_Click()
On Error GoTo ErroRMsg


Set cn = New ADODB.Connection
ProgressBar1.Min = 1
ProgressBar1.Max = 1

strCn = "Provider=SQLOLEDB.1;Password= sa ;" & _
"Persist Security Info=True;User ID= sa ;" & _
"Initial Catalog= BD ;Data Source= Servidor"


If Timer1.Enabled = True Then
Timer1.Enabled = False
Else
n = 0
ProgressBar1.Value = 1
Timer1.Enabled = True
End If


cn.Open strCn


Exit Sub
ErroRMsg:
MsgBox "Ocurrio un error " & vbCrLf & _
Err.Number & Err.Description


End Sub


Private Sub Timer1_Timer()


n = n + 1
ProgressBar1.Value = n * 10


If cn.State = adStateOpen Then Timer1.Enabled = False: ProgressBar1.Value = 100: MsgBox "ya entre"


If ProgressBar1.Value >= 100 Then
ProgressBar1.Value = 1
n = 1
End If

End Sub


Edited by: nasaret