De Acces a Excel

[erDanielillo]

Hola aver si me podriais ayudar... Tengo un formulario en Access con dos cuadro de texto nombre y apellido y un boton buscar...Lo q quiero es q al darle al boton buscar me busque el nombre y apellido puesto en los cuadro de texto, en hojas de calculo Excel que se encuentran en una carpeta... no se ni si es posible..
Muxas gracias y un saludo

[Avellaneda]

Iniciado por erDanielillo

Hola aver si me podriais ayudar... Tengo un formulario en Access con dos cuadro de texto nombre y apellido y un boton buscar...Lo q quiero es q al darle al boton buscar me busque el nombre y apellido puesto en los cuadro de texto, en hojas de calculo Excel que se encuentran en una carpeta... no se ni si es posible..
Muxas gracias y un saludo

Hola, un libro Excel, mediante ADO, lo puedes tratar como una base de datos y las hojas como tablas.

En este ejemplo seleccionamos nombre y apellidos y mostramos los datos en un DataGrid (La hoja excel no se muestra).

Código:

Private Sub cmdBuscar_Click()
Dim con As New ADODB.Connection
Dim rst As New ADODB.Recordset
con.Open "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & _
        App.Path & "\Libro1.xls;Extended Properties='Excel 8.0;HDR=Yes'"
con.CursorLocation = adUseClient
rst.Open "Select * From [Hoja1$] Where Nombre = '" & Text1 & "' AND Apellidos = '" & Text3 & "'", con
If rst.RecordCount = 0 Then
    MsgBox "No existe."
    Exit Sub
End If
Set DataGrid1.DataSource = rst
End Sub

Sustituye, si procede, lo marcado en rojo.

Nota: HDR=Yes indica que la hoja tiene encabezado (primera fila de datos, que sería el nombre de los campos). Si la hoja no tiene encabezado (HDR=No), los nombres de los campos serían F1, F2, F3.... con lo cual en la búsqueda:
Where F1 = '" & Text1 & "' And F2 =.....

[erDanielillo]

Hola, gracias x contestar... Lo estao provando y me da error en el App.path no se xq despues en la ruta tendre q poner c:\ no?¿
Aparte tbien quiero q se me muestre las hojas de excel q contegan el nomobre y apellido introducido en el cuadro de texto para asi poder mandarlo...
Muxas gracias y saludos!!

[Avellaneda]

Iniciado por erDanielillo

Hola, gracias x contestar... Lo estao provando y me da error en el App.path no se xq despues en la ruta tendre q poner c:\ no?¿
Aparte tbien quiero q se me muestre las hojas de excel q contegan el nomobre y apellido introducido en el cuadro de texto para asi poder mandarlo...
Muxas gracias y saludos!!

Hola, App.Path devuelve la ruta donde se encuenta la aplicación. Si el Libro Excel no se encuentra en la misma ruta, sustituye:

Data Source=c:\DirectorioDondeEsteelArchivo\Libro1.xls. ....

[erDanielillo]

con.Open "Provider=Microsoft.jet.OLEDB.4.0;Data Source= C:\prueba.xls"
Esto es lo que e puesto y sigue sin salir :S:S

[Avellaneda]

Iniciado por erDanielillo

con.Open "Provider=Microsoft.jet.OLEDB.4.0;Data Source= C:\prueba.xls"
Esto es lo que e puesto y sigue sin salir :S:S

Y no dá ningún error?

'prueba.xls' está en la unidad c: (sin directorio)?

Puedes poner la cadena de conexión completa?

[erDanielillo]

Private Sub Comando3_Click()
Dim DataGrid

Dim con As New ADODB.Connection
Dim rst As New ADODB.Recordset
con.Open "Provider=Microsoft.jet.OLEDB.4.0;Data Source= C:\prueba.xls"
con.CursorLocation = adUseClient
rst.Open "Select * From [Hoja1$] Where Nombre = '" & Text1 & "' AND Apellidos = '" & Text3 & "'", con
If rst.RecordCount = 0 Then
MsgBox "No existe."
Exit Sub
End If
Set DataGrid.DataSource = rst
End Sub

Esto es todo lo q tengo en el commando3.
El archivo prueba.xls esta en la unidad c:\ sin carpetas ni nada

[erDanielillo]

El error q me da es q no encuentra el archivo... Luego Datagrid1 tbien me daba error Muxas gracias

[Avellaneda]

Iniciado por erDanielillo

El error q me da es q no encuentra el archivo... Luego Datagrid1 tbien me daba error Muxas gracias

Me parece que el error que te dá no es que no encuentre el archivo, sino que no lo reconoce.

Pon la cadena de conexión entera, como te puse anteriormente:

con.Open "Provider=Microsoft.jet.OLEDB.4.0;Data Source=c:\Prueba.xls;Extended Properties='Excel 8.0;HDR=Yes'"

[erDanielillo]

Perdon por la tardanza, estaoy liao, bien aora me sale el siguiente error:" No se han especificado valores para algunos de los parametros requeridos" Y me señala a la fila de &text1 y &text3
Muxas gracias

[Avellaneda]

Iniciado por erDanielillo

Perdon por la tardanza, estaoy liao, bien aora me sale el siguiente error:" No se han especificado valores para algunos de los parametros requeridos" Y me señala a la fila de &text1 y &text3
Muxas gracias

A ver, unas preguntas:
- ¿La hoja Excel tiene encabezado?
- ¿En alguna celda de la primera fila (la 1), tiene escrito "Nombre" y "Apellidos"?
- ¿El nombre a buscar, se escrtibe en un control TextBox que se llama Text1 (propiedad Name del control)?
- Igual para Apellidos, ¿existe el control Text3?

[erDanielillo]

Bien muxas gracias x todo aora me falla el ultimo paso el Datagrid.Datasource Sinceramente no se para q sirve ni lo q significa

Saludos y gracias

[Avellaneda]

Iniciado por erDanielillo

Bien muxas gracias x todo aora me falla el ultimo paso el Datagrid.Datasource Sinceramente no se para q sirve ni lo q significa

Saludos y gracias

El DataGrid es un control para mostrar los registros de un objeto recordset en filas y columnas (lo que también se conoce como tipo 'rejilla').

Creo que en cosas tan elementales como ésta, deberías leer la ayuda que proporciona Visual Basic.