Visual Basic para Aplicaciones - consulta sql desde una tabla en un archivo excel

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil

consulta sql desde una tabla en un archivo excel

Publicado por nick (1 intervención) el 03/04/2018 18:37:18
Buenos días

Mi consulta es:

sobre como insertar textos desde una tabla de un archivo excel, a los textbox (formulario vba) mediante una consulta sql.

este es el código:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Private Sub cmdBuscar_Click()
    On Error Resume Next
 
    Const adOpenStatic = 3
    Const adLockOptimistic = 3
    Const adCmdText = &H1
    Dim nCampos As Integer
    Dim miSQL As String
    Dim CodBusqueda As String
 
    'Valida que campo de busqueda esté lleno
    If txtBusqueda.Value = "" Then
        MsgBox "Debe ingresar datos a buscar"
    Else
    CodBusqueda = txtBusqueda
        Set objConnection = CreateObject("ADODB.Connection")
        Set objRecordset = CreateObject("ADODB.Recordset")
        MySQL = "SELECT * FROM [hoha1$]  WHERE [001_CODIGO] = " & CodBusqueda
 
        objConnection.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
            "Data Source=C:\VDL\CM_20180315_JQM_V08.xlsx;" & _
                "Extended Properties=""Excel 12.0;HDR=Yes;"";"
 
        objRecordset.Open miSQL, objConnection, adOpenStatic, adLockOptimistic, adCmdText
 
    End If
 
 
    TextBox1 = objRecordset.Fields(0).Name
 
End Sub

agradecería su respuesta Gracias...
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 24
Ha aumentado su posición en 2 puestos en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

consulta sql desde una tabla en un archivo excel

Publicado por Yamil Bracho (16 intervenciones) el 03/04/2018 18:41:43
Si estas usando VBA haces
1) Agregar la referncia a ADO
2) Ahi puedes cear la conexion a la BD y ejecutar cualquier consulta y traer los datos a un Recordset
3) Una vez qu etengas el recordset puedes tomar los valores de los campos y colocarlos en los textboxes en tu formulario

Por ejemplo https://analysistabs.com/excel-vba/ado-sql-macros-connecting-database/
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar