UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

A partir del 25 de Enero del 2019 para entrar al foro será con la URL: excel.foroactivo.com Ya se notificó vía e-mail a todos los miembros. Administración UniversoExcelForo. 20-Ene-2019.

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

berni10


Buenas noches. estoy Intentando mostrar datos de una tabla de acces en un formulario Listbox de Excel, pero hasta ahora no logro Hacerlo.
Acontinuacion muestro la macro que estoy utilizando pero al final me muestrase ha producciodo el  error 70 en tiempo de ejecucion " Permisio Denegado " si aleguin save como corregirlo o otra forma de poder mostrar los datos  le ruego me colabore

Private Sub BuscarCliente_Click()
Dim Datoscliente As New ADODB.Recordset ' consulta
Dim Conexion As New ADODB.Connection ' conecion
Dim Carateristicasconection As String
Dim InstrucionSql As String

InstrucionSql = "SELECT Documento_Numero, Nombre_Cliente, Direccion_Cliente, Ciudad_Cliente,Barrio_Cliente, Telefono_Cliente FROM TabClientes Where Nombre_Cliente = '" & TextBox1.Text & "'"
Carateristicasconection = "provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\BaseDeCreditos.mdb"
Conexion.Open ConnectionString:=Carateristicasconection
Datoscliente.Open Source:=InstrucionSql, ActiveConnection:=Conexion

If Datoscliente.EOF = True Then
Else
Datoscliente.MoveFirst
Do While Not Datoscliente.EOF
Me.ListBox1.AddItem Datoscliente.Fields(0).Value
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 2) = Datoscliente.Fields(1).Value
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 3) = Datoscliente.Fields(2).Value
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 4) = Datoscliente.Fields(3).Value
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 5) = Datoscliente.Fields(4).Value
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 6) = Datoscliente.Fields(5).Value

Datoscliente.MoveNext
Loop
End If
Set Datoscliente = Nothing
Conexion.Close
Set Conexion = Nothing

End Sub

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.