Hola a todos, estoy en la busqueda que me puedan asesorar con una situación en Excel, ligada a SQL SERVER, esta es el asunto: 1.- Por medio de un userform, capturo datos y los paso a excel para su impresion y al finalizar, este los guarde en SQL SERVER 2.- Ya esta realizado el proceso de pasar los datos de userform a excel y el combobox ya esta ligado a una tabla de sql, por lo tanto me muestra la lista de los datos que estan en SQL SERVER 3.- Ahora el detalle es que lo que busco es al momento de seleccionar cliente de la lista, este pueda idenfiticar todos sus datos y los pueda imprimir en la casilas del cliente, tales como su Nombre, Direccion, y sus identificacion 4.- He aqui el resultado parcial al momento de presionar el boton de pasar a excel 5.-Aqui les muestro los datos en SQL SERVER para demostrar que realmente esta conectado Bueno tengo la idea pero esta desarollado en .NET y la verdad busco algo similar pero VBA, que la idea es asignar cada columna de la setencia SQL en la casillas del excel (en este ejemplo asigno las columnas de la setenacia en los textbox en .NET ) Dim Buscar As New SqlCommand("SELECT * FROM TbManProv WHERE ClaveProv LIKE'" & TbBusca.Text & "'", SQLServerConection) 'Carga el resultado del query dentro del data table llenarTabla.Load(Buscar.ExecuteReader) If llenarTabla.Rows.Count > 0 Then TbProvedor.Text = llenarTabla.Rows(0)(1).ToString TbContacto.Text = llenarTabla.Rows(0)(2).ToString TbCuenta.Text = llenarTabla.Rows(0)(3).ToString Le anexo codigo VBA 'Declaro la conexion a mi base de datos Dim oConn As ADODB.Connection 'Declaro donde se guardara la base de datos Dim rs As ADODB.Recordset Private Sub BotonExpo_Click() End Sub Private Sub CBConectar_Click() 'Codigo para verificar la conexion On Error GoTo err Set oConn = New ADODB.Connection oConn.Open "Provider=SQLOLEDB;Data Source=DELL-PC\COMPAC;Initial Catalog=BDEximNoe;Integrated Security=SSPI" MsgBox "Éxito al conectarse a la base de datos", vbInformation, "1" Exit Sub 'En caso de error mostrar estos datos err: MsgBox "Se ha producido el siguiente error: " & err.Description, vbInformation, ActiveWorkbook.Name oConn.Close End Sub Private Sub CBExcel_Click() 'Abrir conexion SQL Dim Conecto As New ADODB.Connection 'Crear la tabla donde guardare los datos Dim Tabla As New ADODB.Recordset 'Abrir conexion y tabla Conecto.Open "Provider=SQLOLEDB;Data Source=DELL-PC\COMPAC;Initial Catalog=BDEximNoe;Integrated Security=SSPI" 'Setencia SQL con la conexion Tabla.Open "SELECT * FROM TbManClientes WHERE ClaveCliente ='" & ComboBox1.Value & "'", Conecto, adOpenStatic 'Cerrar Tabla y conexion Tabla.Close Conecto.Close 'Pasar los datos del textbox a las casillas del Excel Cells(6, 15).Value = ComboBox1.Value Cells(22, 16).Value = TxtRFC.Value Cells(23, 16).Value = TxtPate.Value Cells(24, 16).Value = TxtPedi.Value Cells(25, 16).Value = TxtTipoPago.Value Cells(26, 16).Value = TxtR1.Value 'Fin de la primera fila Cells(22, 31).Value = TxtEntre.Value Cells(23, 31).Value = TxtPago.Value Cells(24, 31).Value = TxtClvPedi.Value Cells(25, 31).Value = TxtRegimen.Value Cells(26, 31).Value = TxtOpera.Value 'Fin de la segunda fila F1Inicio.Hide End Sub 'Este es un codigo de prueba para pasar los datos a SQL desde el mismo useform Private Sub CbGuardar_Click() End Sub Private Sub UserForm_Initialize() 'Limpiar las celdas Cells(6, 15).ClearContents 'Declaro los textbox como fecha Me.TxtPago = Date Me.TxtEntre = Date On Error GoTo UserForm_Initialize_Err Dim cnn As New ADODB.Connection Dim rst As New ADODB.Recordset cnn.Open "Provider=SQLOLEDB;Data Source=DELL-PC\COMPAC;Initial Catalog=BDEximNoe;Integrated Security=SSPI" rst.Open "SELECT [ClaveCliente] FROM TbManClientes ORDER BY [ClaveCliente]", _ cnn, adOpenStatic rst.MoveFirst With Me.ComboBox1 .Clear Do .AddItem rst![ClaveCliente] rst.MoveNext Loop Until rst.EOF End With UserForm_Initialize_Exit: On Error Resume Next rst.Close cnn.Close Set rst = Nothing Set cnn = Nothing Exit Sub UserForm_Initialize_Err: MsgBox err.Number & vbCrLf & err.Description, vbCritical, "Error!" Resume UserForm_Initialize_Exit End Sub Espero que sea suficiente para comprender el problema y me puedar una segurencia para resolverlo Gracias por su atencion y espero su mas pronta respuesta

Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis Ingresar

JavaScript está desactivado. Para una mejor experiencia, por favor active JavaScript en su navegador antes de continuar.

[VBA][SQL] Mostrar los datos segun el combobox

Autor del tema GusRichart
Fecha de inicio 7 Ago 2015

GusRichart

New member

7 Ago 2015

Hola a todos, estoy en la busqueda que me puedan asesorar con una situación en Excel, ligada a SQL SERVER, esta es el asunto:
1.- Por medio de un userform, capturo datos y los paso a excel para su...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

Iniciar sesión o registrarme para responder aquí.

Temas similares

Pregunta

Consulta sql en vba con valor externo ya definido

Respuestas: 2

7 Feb 2017

javijavi

Pregunta

Error: Operacion Multiples OLE DB con Tablas #TMP-SQL y VBA

Respuestas: 0

21 May 2015

head777

Pregunta

Ayuda Con Sql y Vba Excel

Respuestas: 18

13 Oct 2011

MUSCARIA

Pregunta

Problema con referencias a Autocad en un Addin en VBA

Respuestas: 2

13 Jul 2026

rogman

Pregunta

No funciona codigo VBA para modificar celdas en excel 2025

Respuestas: 6

21 May 2026

JSD

Resuelto

Actualizacion formulario vba Excel 2016

Respuestas: 8

12 May 2026

Luisaco

Resuelto

Eliminar datos de un formulario con codigo VBA en excel 2016

Respuestas: 3

31 Mar 2026

Luisaco

Resuelto

Codigo VBA de formularios en excel 2016

Respuestas: 2

20 Mar 2026

Luisaco

Pregunta

Como capturar imagen.jpg de webcam enformulario VBA

Respuestas: 5

7 Dic 2025

Héctor Miguel

Pregunta

Listas desplegables con codigo VBA

Respuestas: 2

5 Nov 2025

Halcon46

Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Correo electrónico Enlace

Bienvenido a nuestro foro Excel 👋

Tenemos 135.000 usuarios registrados,
y 240.000 preguntas y respuestas Excel.

Primero 👉 regístrate gratis aquí 👈
para ver contenidos y descargas
sin restricciones!

Este sitio usa cookies para ayudar a personalizar el contenido, adaptar su experiencia y mantenerlo conectado si se registra.
Al continuar usando este sitio, usted está consintiendo nuestro uso de cookies.

Aceptar Saber más…

Volver

Arriba