Asignar a datagrid - VB-MUNDO

andree2525 · #1 (**permalink**) 22-10-2004, 21:58:57

Hola señores, aquie les mando un codigo que abre una base de datos, selecciona los registros pero estos registros se los quiero pasar a un datagrid para que me los muestre y no pasa nada...

'Aqui establesco el proveedor
cn.Provider = "Microsoft.Jet.OLEDB.4.0"

'Aqui establesco la coneccion con la base de datos
cn.ConnectionString = "Data Source=C:\xxxx.mdb;Persist Security Info=False"

'Habre la conexion
cn.Open
Set rs = New ADODB.Recordset

'Aqui se obtiene una serie de registros: en este caso de la
'tabla articulos
rs.Open "select * from articulos", cn, adoenkeyset, adLockOptimistic
rs.MoveFirst

'*************entonces todo lo seleccionado se lo quiero asignar a un datagrid pero no se como*************

gracias por su paciencia

J.M.Movilla · #2 (**permalink**) 23-10-2004, 00:34:49

Trabajando con conexión por código directo, la grilla tienes que rellenarla "manualmente"; es decir, pasar por todos los registros e ir llenando las columnas con los campos de cada registro...

Código:

        r = 0
        Do Until rs.EOF
            r = r + 1
            DataGrid1.Rows = r + 1
            For c = 0 To rs.Fields.Count - 1
                DataGrid1.TextMatrix(r, c) = rs.Fields(c).Value
            Next c
            rs.MoveNext
        Loop

Por ello en este caso creo que sería más aconsejable que utilizases una coneción mediante un control Adodc, para asociarlo al DataGrid y no tener que hacer asignaciones campo a campo, sino que sería suficiente reasignar el DataSource del DataGrid, así:

Código:

Set Me.DataGrid1.DataSource = Me.Adodc1

Creo que además de que es un proceso instantáneo, merece la pena por el ahoro de código.

kepm · #3 (**permalink**) 25-10-2004, 02:10:53

Yo pido ayuda también, quiero hacer una busqueda y mandar los resultados al Grid, pero lo estoy haciendo por medio de conexión de código.

Ayudenos por favor.

Gracias.

kepm · #4 (**permalink**) 25-10-2004, 04:50:45

Haber encontre una respuesta entre los demás post, haber que les parece.

Criterio = "UserName like '%" & Cadena & "'%"
sqlN = "SELECT * FROM Tesor where Nombre like '%" & Cadena & "%'"
rsa.Open sqlN, MDIFrmMain.cnn, adOpenDynamic, adLockOptimistic
MsgBox rsa.LockType
Set Me.MSHFlexGrid1.DataSource = rsa
rsa.Close
Set rsa = Nothing

(cierro la conexión por si en ese mismo instante hay otra busqueda, no quede abierta la busqueda).

uso el MSHFlexgrid y bueno la conexión a la base es a través de código, entonces se me hace eficiente, lo que hay que ver ahora es como quitar columnas y demás detalles pero ya será buscando más.

Gracias y espero les sirva a algunos.

Saludos

andree2525 · #5 (**permalink**) 25-10-2004, 14:04:35

Lo que quiero hacer es una conexion a traves de codigo, sin usar objetos adodc ya que ocuparia muchisimos....he probado de todas las formas pero todavia no puedo llenar el datagrid que hago, auxilio. Mira el codigo que me mandaste no me sirve, me arroja un error..por favor ayudenme

guarri1 · #6 (**permalink**) 25-10-2004, 16:02:29

HABER SI OS SIRVE ESTO.
EN EL FORM LOAD DEL FORMULARIO ASIGNAIS LA BASE DE DATOS
PREVIAMENTE MONTAS UN DBGRID Y UN DATA, ASIGNAS EL DATA AL DGBRID EN EL DATASURDE DE LAS PROPIEDADES.

DATA1.DATABASENAME = "Donde este la base de datos"

cuando querais actualizar el data e incorparale los valores de la tabla
DIM ISQL AS STRING.

ISQL="SELECT * FROM Nombre tabla" (si lo qu quieres es ver todos los registros, sino se tendria que montar una sql de seleccion de registros"

DATA1.RECORDSOURCE = ISQL
DATA1.REFRESH
DBGRID1.REFRESH

ESPERO QUE ESTO OS SIRVA DE UN POCO MAS DE AYUDA, SI NO ES ASI YA MIRARE DE MONTAROS UN EJEMPLO.

guarri1 · #7 (**permalink**) 25-10-2004, 17:25:36

BUENO ME HE PUESTO Y AL FINAL HAY TENEIS EL EJEMPLO

andree2525 · #8 (**permalink**) 26-10-2004, 14:37:44

Hola amigos..Gracias por toda la ayuda y los ejemplos que me han dado, pero creo que el Datagrid me esta ganando. Tengo toda la conexion buena, incluso le asigno unos campos a unos textbox y los muestra sin problemas, pero cuando quiero asignarle los datos a un datagrid no puedo, me arroja error, ayuda por favor. Les mando el codigo:

'Aqui establesco el proveedor
cn.Provider = "Microsoft.Jet.OLEDB.4.0"

'Aqui establesco la coneccion con la base de datos
cn.ConnectionString = "Data Source=C:\xxx.mdb;Persist Security Info=False"

'Habre la conexion
'Si da error en cn.open -> me Fijo si el proveedor es el correcto
cn.Open
Set rs = New ADODB.Recordset

'Aqui se obtiene una serie de registros: en este caso de la
'tabla articulos
rs.Open "select * from articulos", cn, adoenkeyset, adLockOptimistic
rs.MoveFirst

'aqui le asigno un campo a los text, y sale todo bien
Text1 = "" & rs!nombre
Text2 = "" & rs!valor

'***pero como le asigno todos los datos un Datagrid***********

ayuda.................

nota:Solo uso datagrid y la conexion la hago con ADO

angelescj · #9 (**permalink**) 26-10-2004, 14:50:48

Cita:

Empezado por andree2525

'Aqui establesco el proveedor
cn.Provider = "Microsoft.Jet.OLEDB.4.0"

'Aqui establesco la coneccion con la base de datos
cn.ConnectionString = "Data Source=C:\xxx.mdb;Persist Security Info=False"

'Habre la conexion
'Si da error en cn.open -> me Fijo si el proveedor es el correcto
cn.Open
Set rs = New ADODB.Recordset

'Aqui se obtiene una serie de registros: en este caso de la
'tabla articulos
rs.Open "select * from articulos", cn, adoenkeyset, adLockOptimistic
'ESTO NO ES NECESARIO, YA ESTÁ POSICIONADO EN EL PRIMERO
rs.MoveFirst

'aqui le asigno un campo a los text, y sale todo bien
Text1 = "" & rs!nombre
Text2 = "" & rs!valor

'***pero como le asigno todos los datos un Datagrid***********
'RESPUESTA........

Set Datagrid1.RowSource=rs
'YA ESTÁ

andree2525 · #10 (**permalink**) 26-10-2004, 15:15:08

me arroja el siguiente error al ingresar tu codigo:

Error de compilacion:
No se encontro el metodo o miembro de datos

'****y me marca RowSource

?????????????????