DataGrid con DAO

[OlaIsa]

Hola, espero alguien me pueda ayudar, tengo una conexion con DAO y quiero utilizar un datagrid, Así k en base a unos parametros hago la consulta y es la que kiero deplegar en el data grid, pero sin usar el control data, solo con código.

Tengo

Código PHP:

  set consultas = base.OpenRecordset("SELECT No_Cont,Fecha_inicio, Fecha_fin,Nombre_Hon, Monto FROM Contratos WHERE No_Proy='" & proy & "'AND Año='" & año_busq & "'", dbOpenDynaset) 
 
DataGrid1.recorSet= consulta  
   

Pero esto me marca error, dice k no coincide el tipo.

Pense en usar el MSHFlexGrid, pero me marca el mismo error.

Como puedo resolver esto.

Saludos

[albertovicat]

No aclaras el tipo de la variables proy ni año_busq. Si son numéricas no llevan las comillas simples antes y después, si son String las llevan.
Hay otro par de errorcillos, que si el código lo pusiste con copiar y pegar deben estar mal en el código: "consultas" y "consulta", y "recorset" por "recordset". Claro que si lo copiaste a mano pueden ser errores de tipeo en el mensaje nada más.

[tazzito]

hola OlaISa

me parece que es mas que nada un error de funcionamiento, segun recuerdo en la version 5 de VB venia un componente que era el dbgrid y funcionaba perfecto con DAO, pero el de la version 6 funcionaba con ADO, tuve que instalar ambas versiones en los comienzos para trabajar con el 6 y mantener los sistemas echo con 5, puede que sea ese tu problema, intenta ocupando ADO para el recordset.

[OlaIsa]

Okis...muchas gracias, no se pork comence todo el proyecto con DAO, pero bueno, puede implementar el MSFlexGrid con codigo y tambien funciona el dbGrid. Gracias a los 2!!!!

Saludos

[tazzito]

ok entonces :D jajaja en todo caso y como consuelo, creo y tengo entendido que si vas a trabajar con access es mejor dao que ado xD.

[oscsil]

tienes un error

[oscsil]

DataGrid1.recorSet= consulta tu error esta que no es recorsetg es RECORDset

ahy otro error pero eso te lo dejo a ti

[AteneaVB]

Iniciado por OlaIsa

Hola, espero alguien me pueda ayudar, tengo una conexion con DAO y quiero utilizar un datagrid, Así k en base a unos parametros hago la consulta y es la que kiero deplegar en el data grid, pero sin usar el control data, solo con código.

Tengo

Código PHP:

  set consultas = base.OpenRecordset("SELECT No_Cont,Fecha_inicio, Fecha_fin,Nombre_Hon, Monto FROM Contratos WHERE No_Proy='" & proy & "'AND Año='" & año_busq & "'", dbOpenDynaset) 
 
DataGrid1.recorSet= consulta  
   

Pero esto me marca error, dice k no coincide el tipo.

Pense en usar el MSHFlexGrid, pero me marca el mismo error.

Como puedo resolver esto.

Saludos

[AteneaVB]

Lamento decir que todos estan equivocados. El DataGrid no tiene una propiedad Recordset, sino DataSource.

Lo correcto es:

Dim Registro as Recordset
Set Registro = BaseDatos.OpenRecordset("SELECT * FROM TABLA")
Set DatRegistro.Recordset = Registro
DdGrid1.DataSource = DatRegistro

en donde DatRegistro es un Control tipo Data, pero como tú dices que no quieres usarlo tienes otra opción, en lugar de usar un DataGrid, utiliza un
Grid y llénalo manualmente con tu Recordset. Así:

Dim Registro as Recordset
Set Registro = BaseDatos.OpenRecordset("SELECT * FROM TABLA")

Dm I as Integer
I =1
Do While Registro.Eof = False

Grid1.Row = I

'Campo1
Grid1.Col = 0
Grid1.Text = Registro!Campo1

'Campo2
Grid1.Col = 1
Grid1.Text = Registro!Campo2

'.... y así sucesivamente hasta llenar todas las columnas

I = I + 1
Grid1.AddItem ("")

Registro.Movenext
Loop

Espero que te sirva de ayuda. Suerte!

[tazzito]

Iniciado por AteneaVB

Lamento decir que todos estan equivocados. El DataGrid no tiene una propiedad Recordset, sino DataSource.

Lo correcto es:

Dim Registro as Recordset
Set Registro = BaseDatos.OpenRecordset("SELECT * FROM TABLA")
Set DatRegistro.Recordset = Registro
DdGrid1.DataSource = DatRegistro

en donde DatRegistro es un Control tipo Data, pero como tú dices que no quieres usarlo tienes otra opción, en lugar de usar un DataGrid, utiliza un
Grid y llénalo manualmente con tu Recordset. Así:

Dim Registro as Recordset
Set Registro = BaseDatos.OpenRecordset("SELECT * FROM TABLA")

Dm I as Integer
I =1
Do While Registro.Eof = False

Grid1.Row = I

'Campo1
Grid1.Col = 0
Grid1.Text = Registro!Campo1

'Campo2
Grid1.Col = 1
Grid1.Text = Registro!Campo2

'.... y así sucesivamente hasta llenar todas las columnas

I = I + 1
Grid1.AddItem ("")

Registro.Movenext
Loop

Espero que te sirva de ayuda. Suerte!

estimada Atenea,

lamento corregirte, pues el datagrid de la version 5 de nuestro querido visual basic, si tenia la opcion de datarecordset, la diferencia esta en que en la version 6 el datagrid viene para ado y tiene datasourse y recordsourse y no funca con dao xD de echo el control para enlazarlo por defecto es el adodc y no el antiguo data1 xD yap eso numa ;)

[AteneaVB]

Iniciado por tazzito

estimada Atenea,

lamento corregirte, pues el datagrid de la version 5 de nuestro querido visual basic, si tenia la opcion de datarecordset, la diferencia esta en que en la version 6 el datagrid viene para ado y tiene datasourse y recordsourse y no funca con dao xD de echo el control para enlazarlo por defecto es el adodc y no el antiguo data1 xD yap eso numa ;)

Pues no, tazzito en VB 6.0 el datagrid no viene para ADO, porque yo tengo una aplicación desarrollada en Visual Basic 6.0 que utiliza DAO, no ADO.

[tazzito]

aps bueno :D entonces perdon por mi error ;)

[AteneaVB]

He aquí un sencillo pero muy didáctico ejemplo:

h t t p://w w w . s o l o t u w e b . c o m /fs~id~4953.html

[belial_seed]

el còdigo propuesto por atenea esta bien solo una pequeña optimizacion de mi parte

Dim SQL As String, i As Integer
SQL = "SELECT rfc_cli,nombre From tb_rfc;"
Set FCGrid = db.OpenRecordset(SQL, dbOpenDynaset, dbReadOnly)
i = 1
FCGrid.MoveFirst
Do While FCGrid.EOF = False
grid.TextMatrix(i, 0) = FCGrid!rfc_cli
grid.TextMatrix(i, 1) = FCGrid!nombre
grid.TextMatrix(i, 2) = y ps asi va creciendo
i = i + 1
grid.AddItem ("")
FCGrid.MoveNext
Loop