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

No se puede subir archivos al foro, favor de hacerlo en servidor externo (Dropbox, Drive...) y dejan link. "Sin archivo no hay respuestas"

Favor de leer "Todos los temas" Click aquí.

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.