datagrid de visual VS access

[fenoy]

hola tod@s!!
Tengo un problemilla con un datagrid. El asunto es que le tengo que rellenar con los resultado de una busqueda, al ser la bd access no puedo hacer procedimientos almacenados como en sql server.
El problema es que no ser como tengo que enganchar el datagrid a un recorset normal para actualizarlo, porque lo he intentado y el datagrid siempre aparece vacio.
Pongo lo siguiente:

datagrid.datasource = cadena de conexion
datagrid.damenber = recorset que he abierto antes
datagrid.refresh

y el datagrid sale vacio

¿alguien me puede ayudar?

p.d: El recorset depende del dataenvironment, pero es un recorset creado por codigo no es un comando del dataenvironment

[djlpz]

La cadena de conexion tiene que ser con todo desde el conectionstring, y te recomiendo que utilizes un Ado Dc, para que te haga todo el data source del datagrid y luego se lo asocias y funciona pefeee

[pabli]

Noooooooo

horroooooorrrrrr

-dataenvironment :-p
-adodc :-p

por favor, los controles automáticos a la porra

Perdonar, es una broma, no me gustan, pero pueden ser válidos en alguna ocasión, yo nunca los he utilizado, siempre por código y a mano.

fenoy:

se te ha olvidado el famoso SET

Set datagrid.DataSource = objeto_recordset

"y nada más"
bueno, te pongo unas líneas de configuración a continuación de la instrucción SET, por si te interesan

datagrid.Columns(1).Visible = False
datagrid.Columns(0).Caption = "nombre"

Saludos
Pablo

[fenoy]

haber......

he intentado poner lo que me comentaste pero me sale un error en tiempo de ejecucion : "El conjunto de filas no admite marcadores"

y el codigo que pongo es mas o menos asi:

Dim cn As New ADODB.Connection
Dim prueba As New ADODB.Recordset
Dim strCnn As String

' Abro la conexión con la tabla de access que me indica el usuario
strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "/bbdd.mdb;"

cn.Open strCnn

prueba.Open "select * from tabla", cn, adOpenDynamic, adLockOptimistic

Set DataGrid1.DataSource = prueba

DataGrid1.Refresh

prueba.Close

¿Sabes donde puede estar el error?

Gracias de todas maneras.

[pabli]

fenoy,

no te preocupes, es un error típico que he visto muchas veces.
Antes de abrir el recordset configúralo para que el conjunto de resultados esté en el cliente, pues en el servidor no funciona:

prueba.CursorLocation = adUseClient

¡antes de abrirlo, claro!

Saludos
Pablo

[fenoy]

gracias pabli!

El error era ese

pero sigo teniendo el mismo problema: el datagrid no se referesca con los datos que me recupera el recorset que yo hago.

¿Se te ocurre algo mas?

[pabli]

claro, porque no se refresca el recordset.

Vuelve a hacer la consulta, o refresca el recordset y se lo vuelves a asignar al datagrid con "SET"

si no te lo coge, antes de asignarlo haces

Set DataGrid1.DataSource = nothing

Saludos
Pablo

[fenoy]

ME RINDOOOOO

mira pabli este el codigo que pongo:

Dim cn As New ADODB.Connection
Dim prueba As New ADODB.Recordset
Dim strCnn As String

Set cn = New ADODB.Connection
' Abro la conexión con la tabla de access que me indica el usuario
strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "/fenoy.mdb;"

cn.Open strCnn

prueba.CursorLocation = adUseClient

prueba.Open "select * from facturas", cn, adOpenDynamic,
adLockOptimistic

prueba.Requery

Set frmbusqueda.DataGrid1.DataSource = prueba

frmbusqueda.DataGrid1.Refresh

prueba.Close

como puedes ver, he seguido todas tus instrucciones al pie de la letra y no consigo que el datagrid se actualice.

¿Ves algo en el codigo?

[pabli]

nooo, no te rindas...

a ver, he querido decir que cuando cambie algo en el recordset, vuelves a hacer:

--->"aquí preguntas si está abierto el rec"
prueba.Open "select * from facturas", cn, adOpenDynamic,
adLockOptimistic
Set frmbusqueda.DataGrid1.DataSource = prueba
frmbusqueda.DataGrid1.Refresh

Si cierras el recordset, apaga y vamonos, no lo cierres , antes de volver a abrirlo, preguntas si está abierto y si lo está, lo cierras para que no te de error.
Abres la BBDD solo una vez, en un módulo, con variables globales y lo del adUseClient también solo una vez.

[fenoy]

Funcionoooo!!!!!

Gracias pabli , el problema estaba en que la apertura de la base de datos habia que hacerla en un modulo (fijate que tonteria)

y para terminar , tengo otra pequeña dudita. Ahora se muestra el datagrid con todos los campos bien, menos en la columna 1 (ó 0), vamos en la primera columna, que sale en blanco

¿porque puede ser?

[fenoy]

ni caso al ultimo post, ya lo he sacado, era otra tonteria con el datagrid.

Lo dicho muchas gracias pabli

un saludo
fenoy

[pabli]