Jump to content

Utilizar la misma sentencia para realizar consulta diferentes en MySQL


Recommended Posts

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!!

 

Portapapeles01.jpg

Link to post
Share on other sites

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.

Link to post
Share on other sites

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!

Link to post
Share on other sites

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!!

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now


  • Crear macros Excel

  • Posts

    • Buenas tardes Haplox, es justo lo que necesitaba, funciona perfecto. Muchas gracias. Solucionado.
    • Hola a todos, Espero poder explicarme bien. Adjunto archivo y a continuación la explicación. Tengo una gran base de datos de la cual necesito pasar los datos de 2 columnas no contiguas a filas mientras éstos tengan el mismo ID. En el ejemplo, a partir de la columna L (marcado en rojo) pongo intercalado los valores de la columna K y D en la misma fila mientras el ID_FORMULA (columna A) sea igual y siempre en la primera fila del grupo (por grupo me refiero a igual valor en columna A). Aclaro que la cantidad de filas por ID no es fija. Ejemplo.xlsxPuede ser desde 2 filas hasta 7.  En el ejemplo, hay de 3, 5 y 4 filas.  Como son 900.000 filas se me ocurre que lo mejor es hacer un macro pero no sé como o tal vez haya otra forma sin macros.  Agradezco la ayuda. 
    • Yo pienso que si, y desde luego me apoyo en lo que he entendido, pero tu debes estar mas claro, sobre lo que necesitas ¡Suerte!   Saludos
    • Te dejo una solución según lo que explicas. Saludos Copia de Ejemplo.xlsm
    • José Lamento te hayas confundido con el (mal) ejemplo que puse en codigo,,,Cubo es una hoja por cierto y estoy copiando a otra, cuyo nombre está en la variable cractual, colu es un numero de columna al igual que columnacr, pero ---olvida ello y dale una mirada al adjunto por favor ...alli está lo que quiero hacer
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy