Saltar al contenido

completar textbox de vba excel desde sql server

publicado

hola, no encuentro la forma de completar textbox de un userform en vba excel desde sql server por favor ayuda gracias

Featured Replies

publicado
  • Autor

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();
            }
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. 

publicado
  • Autor
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...
publicado
  • Autor
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

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

publicado
  • Autor

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
 

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

publicado
  • Autor
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