Hola Amigos, buenas tardes, es posible utilizar la misma sentencia (variables y cadenas guardadas en variables) en varias consultas que debo hacer , ya que imagino debo usar la misma sentencia en cada procedimiento que realice y ya intenté con declarar variables como Public pero no me deja.  Estos código los fuí tomando del blog de @avalencia a quien agradezco por compartir  

https://abrahamexcel.blogspot.com/2019/04/excel-y-mysql-2.html

es posible realizar lo que deseo? usar la misma conexión e ir variando en cada procedimiento prácticamente la consulta SQL así como los datos de la tabla donde voy a consultar.

adjunto imagen!

Gracias!!

 

Abre la conexión con la base de datos en el evento Initialize del Userform y ciérrala en el evento Terminate.

De esta forma no es necesario estar abriendo y cerrando la base de datos, eso si, siempre que se trate de un entorno monousuario, en caso contrario debes ir con cuidado con los parámetros de la conexión para no dejar colgados al resto de usuarios.

Gracias Maestro,

te comento sí, va ser para uso multiusuario, lo que quiero es usar la misma sintaxis que se ve en la imagen que mandé, es decir, la estrofa de código es la misma para generar consultas, es posible que la estrofa de código esté en un módulo separado, así solo tenga que usar un nombre para llamar a estar estrofa de código, y no tener que poner la misma estrofa de código por cada consulta que realice en mi caso estoy llenando varios combobox pero estoy usando la misma estrofa con diferente consulta SQL 

 

Muchas gracias!

Simplemente, declara la variable como Public.

ya lo intente pero no me deja,  ? a menos que lo esté haciendo mal

Dim cnn As ADODB.Connection: Dim rst As ADODB.Recordset: Dim nCampos&, x As Integer: Dim nRegistros&, y As Long
Dim sql$, BD$, Servidor$, User$, Clave$
Set cnn = New ADODB.Connection: Set rst = New ADODB.Recordset: Let Servidor = "localhost": Let BD = "prodsumaflex"
Let User = "root": Let Clave = ""
cnn.ConnectionString = "DRIVER={MySQL ODBC 8.0 Unicode Driver};" _
     & "SERVER=" & Servidor & ";DATABASE=" & BD & ";" _
         & "UID=" & User & ";PWD=" & Clave & ";PORT=3306;OPTION=131072"
cnn.Open
Let sql = "SELECT nombre_cliente FROM clientes WHERE visible='1'"
With rst
     .CursorLocation = adUseClient
     .CursorType = adOpenKeyset
     .LockType = adLockOptimistic
     .Open sql, cnn, , , adCmdText
End With
Let nCampos = rst.Fields.Count
Let nRegistros = rst.RecordCount
With UserForm1.ComboBox2
   For y = 1 To nRegistros
    .AddItem rst.Fields(1 - 1).Value
rst.MoveNext
Next y
End With
cnn.Close
Set rst = Nothing: Set cnn = Nothing

ese es el codigo que tengo para llenar un combobox, yo intente hacer lo siguiente:

Public cnn As ADODB.Connection: public rst As ADODB.Recordset: public nCampos&, x As Integer: public nRegistros&, y As Long
public sql$, BD$, Servidor$, User$, Clave$

''''este codigo no se sipuedo dejarlo como variables públic
Set cnn = New ADODB.Connection: Set rst = New ADODB.Recordset: Let Servidor = "localhost": Let BD = "prodsumaflex"
Let User = "root": Let Clave = ""
cnn.ConnectionString = "DRIVER={MySQL ODBC 8.0 Unicode Driver};" _
     & "SERVER=" & Servidor & ";DATABASE=" & BD & ";" _
         & "UID=" & User & ";PWD=" & Clave & ";PORT=3306;OPTION=131072"
'''''


cnn.Open
Let sql = "SELECT nombre_cliente FROM clientes WHERE visible='1'"
With rst
     .CursorLocation = adUseClient
     .CursorType = adOpenKeyset
     .LockType = adLockOptimistic
     .Open sql, cnn, , , adCmdText
End With
Let nCampos = rst.Fields.Count
Let nRegistros = rst.RecordCount
With UserForm1.ComboBox2
   For y = 1 To nRegistros
    .AddItem rst.Fields(1 - 1).Value
rst.MoveNext
Next y
End With
cnn.Close
Set rst = Nothing: Set cnn = Nothing

 esa misma estrofa de código veo es la misma para todas mis consulta, por lo que no se si es posible usar de base una y solo llamar esa sentencia y por consiguiente abrir conexión, generar la consulta, realizar el proceso y luego cerrar la conexión.

ahora si no me tocará dejar la sentencia completa por cada combobox que llene

 

Gracias un saludos!!