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:
agradecería su respuesta Gracias...
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 = 3Const 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 = txtBusquedaSet 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
0