Saltar al contenido
Te enseño 7 de los trucos que me permitieron trabajar 2 horas menos al día >>>

completar textbox de vba excel desde sql server

pepe1970

Por pepe1970
en Macros y programación VBA

Recommended Posts

AlexanderS Aficionado

AlexanderS

publicado
publicado

Hola @pepe1970, debes ser mas especifico con tu consulta, adjuntar con archivo de ejemplo con el progreso que tengas e indicar de una forma más exacta donde está el problema.

Saludos.

pepe1970 Novato

pepe1970

publicado
  • Autor
publicado

soy nuevo en vba excel y sql server lo que quiero es algo asi una sequencia que me permita buscar en una tabla de sql server y me complete unos textbox en un userform con vba excel. encontre este scrip pero no se como modificarlo para realizar lo que necesito.

  

 string query = "SELECT * FROM Befit_CobrosPendientes WHERE Cancelado = @Cancelado";
            SqlCommand Command = new SqlCommand(query, Conexion);

            Command.Parameters.AddWithValue("@IdCobro", Convert.ToInt32(txtBusqueda.Text));

            SqlDataReader reader = Command.ExecuteReader();

            while (reader.Read())
            {
                txt6Mas.Text = reader["Cancelado"].ToString();
            }
AlexanderS Aficionado

AlexanderS

publicado
publicado

@pepe1970 es muy difícil poder darte una respuesta adecuada con tan poca información, por lo que voy a tratar de explicarte de forma general como son los pasos a seguir para conectar excel a un SQL Server y traer datos a un textbox en un formulario.

Lo primero que debemos hacer es conectarnos al servidor SQL, para esto debemos abrir la coneccion mediante el siguiente código:

*Debes copiar el código entero dentro de un módulo 

Public miConexion As New ADODB.Connection
Public rs As New ADODB.Recordset

Sub Conecta()
Dim ConnectionString As String, BD As String

On Error GoTo salir

BD = "NOMBRE DE LA BASE DE DATOS"  '<<<<<<<<  Coloca el nombre de la base de datos de SQL

'En "Data Source=" debe ir la dirección IP del servidor SQL

ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Initial Catalog=" & BD & ";Data Source=10.10.0.130"

If miConexion.State = 1 Then miConexion.Close
Set cnn = New ADODB.Connection
    miConexion.Open ConnectionString
    miConexion.CommandTimeout = 900
Exit Sub
salir:
MsgBox err.Description & vbCrLf & vbCrLf & "Imposible conectar con la Base de Datos" & vbCrLf & _
"Detalles de la conexón:" & vbCrLf & ConnectionString, vbExclamation, "Error de Conexión"
    
End Sub

 Debes modificar el nombre de la base de datos "BD" , la ruta de tu base "Data Source" e ingresar el Usuario y contraseña para conectarse a la BD

Con esto abres una conección al servidor SQL, ahora imaginando que tienes un formulario creado con 2 textbox, siendo el textbox1 el que utilizaras para buscar y el textbox2 donde obtendras el resultado, podemos utilizar el siguiente ejemplo:

*En mi ejemplo usare una hipotética tabla llamada "Clientes" donde tendré un campo numérico llamado "DNI" con los DNI de los clientes y otro llamado "Nombre" con los nombres de los clientes. 

Private Sub CommandButton1_Click()
Dim SQL As String

Call Conecta '<<<< Abrimos la conección al SQL

Set rs = New ADODB.Recordset

SQL = "SELECT [Nombre] FROM Clientes where [DNI] = " & CDbl(TextBox1) '<<< Cadena SQL

rs.Open SQL, miConexion, 3, 3, adCmdText '<<<< Se realiza la consulta al servidor SQL

If rs.EOF = False Then '<<< Comprobamos que la consulta nos traiga resultados

Me.TextBox2 = rs.Fields("Nombre") '<<< Pasamos los resultados al Textbox

End If

End Sub

Como verás necesitarás al menos un mínimo conocimiento de las cadenas de consulta en SQL, por lo que te recomiendo buscar sobre el tema.

Esto es un muy resumido ejemplo de como realizar la conexión al SQL y realizar una pequeña consulta, espero al menos te de una idea de lo que debes buscar de ahora en adelante.

Saludos. 

pepe1970 Novato

pepe1970

publicado
  • Autor
publicado
Hace 39 minutos , AlexanderS dijo:

@pepe1970 es muy difícil poder darte una respuesta adecuada con tan poca información, por lo que voy a tratar de explicarte de forma general como son los pasos a seguir para conectar excel a un SQL Server y traer datos a un textbox en un formulario.

Lo primero que debemos hacer es conectarnos al servidor SQL, para esto debemos abrir la coneccion mediante el siguiente código:

*Debes copiar el código entero dentro de un módulo 


Public miConexion As New ADODB.Connection
Public rs As New ADODB.Recordset

Sub Conecta()
Dim ConnectionString As String, BD As String

On Error GoTo salir

BD = "NOMBRE DE LA BASE DE DATOS"  '<<<<<<<<  Coloca el nombre de la base de datos de SQL

'En "Data Source=" debe ir la dirección IP del servidor SQL

ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Initial Catalog=" & BD & ";Data Source=10.10.0.130"

If miConexion.State = 1 Then miConexion.Close
Set cnn = New ADODB.Connection
    miConexion.Open ConnectionString
    miConexion.CommandTimeout = 900
Exit Sub
salir:
MsgBox err.Description & vbCrLf & vbCrLf & "Imposible conectar con la Base de Datos" & vbCrLf & _
"Detalles de la conexón:" & vbCrLf & ConnectionString, vbExclamation, "Error de Conexión"
    
End Sub

 Debes modificar el nombre de la base de datos "BD" , la ruta de tu base "Data Source" e ingresar el Usuario y contraseña para conectarse a la BD

Con esto abres una conección al servidor SQL, ahora imaginando que tienes un formulario creado con 2 textbox, siendo el textbox1 el que utilizaras para buscar y el textbox2 donde obtendras el resultado, podemos utilizar el siguiente ejemplo:

*En mi ejemplo usare una hipotética tabla llamada "Clientes" donde tendré un campo numérico llamado "DNI" con los DNI de los clientes y otro llamado "Nombre" con los nombres de los clientes. 


Private Sub CommandButton1_Click()
Dim SQL As String

Call Conecta '<<<< Abrimos la conección al SQL

Set rs = New ADODB.Recordset

SQL = "SELECT [Nombre] FROM Clientes where [DNI] = " & CDbl(TextBox1) '<<< Cadena SQL

rs.Open SQL, miConexion, 3, 3, adCmdText '<<<< Se realiza la consulta al servidor SQL

If rs.EOF = False Then '<<< Comprobamos que la consulta nos traiga resultados

Me.TextBox2 = rs.Fields("Nombre") '<<< Pasamos los resultados al Textbox

End If

End Sub

Como verás necesitarás al menos un mínimo conocimiento de las cadenas de consulta en SQL, por lo que te recomiendo buscar sobre el tema.

Esto es un muy resumido ejemplo de como realizar la conexión al SQL y realizar una pequeña consulta, espero al menos te de una idea de lo que debes buscar de ahora en adelante.

Saludos. 

muchas gracias lo pruebo y te comento

  • 2 weeks later...
pepe1970 Novato

pepe1970

publicado
  • Autor
publicado
En 10/10/2019 at 13:22 , pepe1970 dijo:

muchas gracias lo pruebo y te comento

hola  realizo la conexion y al intentar traer el dato desde sql al texbox me da un error en la linea del texbox 

 

 

En el textbox de mi formulario indico que al cambiar realice la instruccion sql  y contecte con mi servidor y si esta conectado ejecute el query1 que se encuentra en el modulo 1 que muestro mas abajo

Private Sub TextBox10_Change()
Dim SQL As String
Dim Connected As Boolean


 SQL = "SELECT Remito FROM pedidos_recibidos where Remito = " & CDbl(TextBox10) '<<< Cadena SQL
    
    Connected = Connect("10.0.0.145", "usuario1", "123456", "administracion")
 
    If Connected Then
        
        Call Query1(SQL)
        Call Disconnect
    Else
        
        MsgBox "Could Not Connect!"
    End If
   
    
   
End Sub

 

esta es la funcion en el modulo 1

 

 

 

 

Function Query1(SQL As String)
Dim rs As ADODB.Recordset


rs.Open SQL, CN
rs.Open "SELECT * FROM pedidos_recibidos", CN

If rs.State = False Then '<<< Comprobamos que la consulta nos traiga resultados
TextBox33 = rs.Fields("Mes") '<<< Pasamos los resultados al Textbox Aca me arroja el error de variable no creada 

End If


           
End Function

AlexanderS Aficionado

AlexanderS

publicado
publicado

Hola @pepe1970, cuando programas dentro de un formulario se entiende que "Textbox33" es un control dentro de este formulario. Pero como en tu caso estás tratando de hacer una referencia a un "Textbox33" dentro de un módulo que está fuera del formulario, por lo que función "Query1" trata al "Textbox33" como una variable no declarada.

Siempre es aconsejable que manejes las instrucciones que hacen referencia a controles de formulario dentro del mismo formulario, si aún así por alguna razón tienes que tenerlo en un módulo aparte debes colocar el nombre del formulario antes del nombre del control:

Userfrom1.TextBox33 = ""

Saludos

pepe1970 Novato

pepe1970

publicado
  • Autor
publicado

Me arroja error en esta linea perdon por las preguntas pero soy nuevo en vba

 

Function Query1(SQL As String)
Dim rs As ADODB.Recordset


Set rs = New ADODB.Recordset

rs.Open SQL, CN
rs.Open "SELECT * FROM pedidos_recibidos", CN                                     aca me arroja el error

If rs.State = False Then '<<< Comprobamos que la consulta nos traiga resultados
UserForm2.TextBox33 = rs.Fields("Mes") '<<< Pasamos los resultados al Textbox

End If


           
End Function
 

AlexanderS Aficionado

AlexanderS

publicado
publicado

A simple vista creo que el error esta en que abres 2 veces la conexión.

Hace 22 horas, pepe1970 dijo:

rs.Open SQL, CN
rs.Open "SELECT * FROM pedidos_recibidos", CN 

La segunda te da el error ya que la conexión ya estaba abierta e intentas volver a abrirla.

Saludos

pepe1970 Novato

pepe1970

publicado
  • Autor
publicado
En 22/10/2019 at 10:31 , AlexanderS dijo:

A simple vista creo que el error esta en que abres 2 veces la conexión.

La segunda te da el error ya que la conexión ya estaba abierta e intentas volver a abrirla.

Saludos

Estoy intentando trabajar con dos tablas diferentes y una misma conexion, a una le pido unos datos para completar un formulario y ese formulario una vez completado lo envio a otra tabla, no se como trabajar con las dos tablas y una misma conexion.

aca detallo lo que tengo se estoy intentando conectar dos veces pero no se como poner la instruccion para conectar una sola vez

 

muchas gracias

 

aca intento que al colocar el nro de rto en el textbox10 seleccione de la tabla pedidos recibidos donde dice remito se conecte y ejecute el query 

Private Sub TextBox10_Change()
Dim SQL As String
Dim Connected As Boolean


 SQL = "SELECT Remito FROM pedidos_recibidos where Remito = " & TextBox10 & ""
    
    Connected = Connect("10.0.0.145", "usuario1", "123456", "administracion")     
 
    If Connected Then
        
        Call Query1(SQL1)
        Call Disconnect
    Else
        
        MsgBox "Could Not Connect!"
    End If
   
    
   
End Sub

 

 

Estes es el query con el  que intento  traer los datos al textbox desde la tabla predidos_recibidos

Function Query1(SQL As String)
Dim rs As ADODB.Recordset


Set rs = New ADODB.Recordset

rs.Open SQL, CN
rs.Open "SELECT * FROM pedidos_recibidos", CN

If rs.State = False Then '<<< Comprobamos que la consulta nos traiga resultados
UserForm2.TextBox33 = rs.Fields("Mes") '<<< Pasamos los resultados al Textbox

End If
 

este el que envia a la tabla pedidos_cerrados los datos del formulario una vez completo

Private Sub CommandButton1_Click()

Dim SQL As String
    Dim Connected As Boolean
 
    
    SQL = "insert into pedidos_cerrados (Fecha_recep,Rto_nro,Cliente,Ciudad,Zona,Estado,Direccion,Mes,Año,Destino,Fecha_prep_ped,Hora_recep_ped,Hora_fin_ped,Tipo_recep,Tipo_entrega,kilos_real,Cajas_total,Mtrs_cubicos,Pallets,Lineas,Unidades,Cajas_originales,Kilos_aforados,Kilos_a_facturar) values('" & TextBox9 & "','" & TextBox10 & "','" & TextBox35 & "','" & TextBox3 & "','" & TextBox5 & "','" & ComboBox5 & "','" & TextBox1 & "','" & TextBox33 & "','" & TextBox34 & "','" & TextBox32 & "','" & TextBox36 & "','" & TextBox52 & "', '" & TextBox37 & "', '" & TextBox53 & "', '" & ComboBox9 & "'," & TextBox13 & "," & TextBox29 & ",'" & TextBox30 & "','" & TextBox11 & "','" & TextBox12 & "','" & TextBox38 & "','" & TextBox54 & "','" & TextBox28 & "','" & TextBox51 & "');"

 
    
    Connected = Connect("10.0.0.145", "usuario1", "123456", "administracion")
 
    If Connected Then
        
        Call Query(SQL)
        Call Disconnect
    Else
        
        MsgBox "Could Not Connect!"
    End If
   
    'Limpiar cajas de texto
    UserForm2.TextBox9.Value = ""
    UserForm2.TextBox10.Value = ""
    UserForm2.TextBox35.Value = ""
    
    UserForm2.TextBox1.Value = ""
    UserForm2.TextBox3.Value = ""
    UserForm2.TextBox2.Value = ""
    UserForm2.TextBox4.Value = ""
    UserForm2.TextBox5.Value = ""
    UserForm2.TextBox6.Value = ""
    UserForm2.TextBox7.Value = ""
    UserForm2.TextBox8.Value = ""
    UserForm2.TextBox9.Value = ""
    UserForm2.TextBox11.Value = ""
    UserForm2.TextBox12.Value = ""
    UserForm2.TextBox13.Value = ""
    UserForm2.TextBox33.Value = ""
    UserForm2.TextBox34.Value = ""
    UserForm2.ComboBox3.Value = ""
    
    UserForm2.ComboBox9.Value = ""
    UserForm2.ComboBox4.Value = ""
    
    UserForm2.TextBox19.Value = ""
    UserForm2.TextBox20.Value = ""
    UserForm2.TextBox21.Value = ""
    UserForm2.TextBox22.Value = ""
    UserForm2.TextBox23.Value = ""
    UserForm2.TextBox24.Value = ""
    UserForm2.TextBox25.Value = ""
    UserForm2.TextBox26.Value = ""
    UserForm2.TextBox27.Value = ""
    UserForm2.TextBox51.Value = ""
    UserForm2.TextBox38.Value = ""
    UserForm2.TextBox37.Value = ""
    UserForm2.TextBox36.Value = ""
    UserForm2.TextBox54.Value = ""
    UserForm2.TextBox52.Value = ""
    UserForm2.TextBox53.Value = ""
    UserForm2.TextBox32.Value = ""
    UserForm2.TextBox31.Value = ""
    
      
   
End Sub

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

Ir al listado de temas

  • 109 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • Sí
      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Mantenimiento de la comunidad
      Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR

  • Archivos

  • Estadísticas de descargas

    • Archivos
      187
    • Comentarios
      97
    • Revisiones
      28
    Más información sobre "Un juego del Rabino en Excel"
    Última descarga
    Un juego del Rabino en Excel
    Por pegones1

    1    1

  • Crear macros Excel

  • Mensajes

    • Abraham Valencia
      Problema (¿Macro?) para guardar Excel en SharePoint

      Por Abraham Valencia · publicado

      Hola nuevamente. Por eso la importancia de lo que mencionas tú como "ruta relativa". Tal cual comentas, y aún sin llegar a algunos detalles importantes para ayudarte, en realidad tal cual te comenté le día miércoles, pues sí podías hacer como comentabas, era cosa de obtener los Id de Windows (como tú los llamas) y la ruta de OneDrive en casa usuario y eso sí se puede obtener con VBA y luego pasarlo a PQ, pero medio que te cerraste en que "PQ no puede trabajar con rutas relativas", cosa cierta pero siempre hay formas. Si SAP puede o no guardar en OneDrive o SharePoint, pues si está mapeado en la PC ¡claro que se puede! Pero bueno, creo que si te es útil tu propia propuesta ¡avanza con eso!
    • njnsp
      Problema (¿Macro?) para guardar Excel en SharePoint

      Por njnsp · publicado

      Perdona @Abraham Valencia pero he estado liado estos días. En realidad todo el problema se reduce a estos dos problemas: Problema 1: El script que "fabrica" SAP y que luego "pego" en la macro, no es capaz de  guardar archivos en SharePoint. He estado buscando, y en realidad muchas personas tienen ese problema (no poder guardar un Excel en SAP a través de VBA). Eso muy probablemente sean problemas de permisos, que no puedo cambiar (no soy administrador de nada). Como no puedo solucionarlo así, paso al plan B, que es guardar en Excel que me genera SAP en el ordenador de cada usuario que ejecute la plantilla (y que sí está guardada en SharePoint), para después con PowerQuery llamar a ese Excel (el export). Para ello, pretendo guardar el export, en la ruta relativa "C:\..\..\..\OneDrive - NombreEmpresa\Documentos\SAP\SAP GUI" donde los \..\..\..\ saltan las rutas personales de cada usuario (tipo C:\users\IDusuario\). Eso lo hace bien, y el archivo se guarda en la ruta de cada usuario que lo usa, pero surge el problema 2 Problema 2: PowerQuery no trabaja con rutas relativas del tipo  "C:\..\..\..\OneDrive - NombreEmpresa\Documentos\SAP\SAP GUI" necesita que sea del tipo fija "C:\users\IDusuario\OneDrive - NombreEmpresa\Documentos\SAP\SAP GUI" pero claro, IDusuario es diferente para cada usuario.   Pero escribiendo todo esto, creo que he dado con una posible solución, no grabar el export en una ruta de usuario, sino en una en la raiz de C:, que siempre será igual para todos los usuarios, del tipo C:\Sap\export.xlsx que seria igual en todos los ordenadores. Asi sí podría decirle a PowerQuery que vaya siempre a la ruta C:\Sap\ que existirá en todos los ordenadores. Mañana intentaré hacer pruebas, aunque mi solución ideal seria que se pudiera guardar en el SharePoint. Saludos.
    • DiegoPC
      Planilla Mercado Pago

      Por DiegoPC · publicado

      Hola La opción brindada por @torquemada es correcta, funciona, pero hay algunos inconvenientes que (desde mi punto de vista) no la convierten en mi primera elección. Los inconvenientes son: Tendrías que ir columna por columna haciendo los reemplazos, claro que no se harían a mano sino que utilizarías la opción reemplazar o la opción texto en columnas, aun asi demorará un poquito y será trabajoso. Cada vez que descargues otro listado, tendrás que volver a realizar los reemplazos. Me parece una mejor propuesta lo siguiente: Descarga los movimientos a un archivo de Excel Desde tu control de pagos (otro archivo) cargas los movimientos del archivo descargado mediante Power Query Power Query hará los reemplazos y reconocerá todo correctamente (sin que tengas que hacer nada especial) Cuando descargues los movimientos un día posterior, solamente tendrás que hacer clic en "Actualizar" y todo funcionará en automático
    • Victor7
      Ayuda con Congelar Fecha Captura

      Por Victor7 · publicado

      Hola a todos, Efectivamente, me temo que tal como trabajan las funciones =HOY() y/o =AHORA() (volátiles), sólo con macros puedes obtener soluciones. Un recurso pedestre podría ser, cada vez que quieras que se fije un dato, te sitúes en esa celda y pulses F2, F9 e INTRO.  Pero claro, puede ser un inconveniente si hay que hacerlo repetitivamente en muchas ocasiones,.............. en fin, lo comento sólo como posibilidad. Saludos,
    • Abraham Valencia
      Problema (¿Macro?) para guardar Excel en SharePoint

      Por Abraham Valencia · publicado

      Hola nuevamente, mi duda sigue siendo la ruta, o rutas, finales que quedan, esas que llamas "relativas"; igual por si acaso pon 3 o 4 de esas, tal cual son y/o se ven en el explorador de cada PC y, de ser posible, en cualquier otro "lado" en que las veas.

  • Visualizado recientemente

    • No hay usuarios registrado para ver esta página.
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.