datagrid visual basic 6

darkgothic

Lanero Activo
Se unió
26 Ene 2009
Mensajes
58
estoi realizando un sistema en donde necesito que me muestre un registro de la base de datos en un datagrid.
para esto realizo una consulta con un dataenvironment y le envio como parametro la informacion de un textbox. hasta ahi todo bien.. hago la prueva y si me aparece el registro. pero no se como hacer que ese registro me aparesca en un datagrid?

el datagrid ya lo tengo ligado al dataenvironment y al comando correspondiente. muchas gracias!!!
 

estesua47

Lanero Activo
Se unió
17 Ene 2009
Mensajes
55
Hola Darkgothic,

Prueba con este código:

Dim Cnn As New ADODB.Connection
Dim Rs As New ADODB.Recordset

Cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\mi_carpeta\Mi_ARCHIVO_ACCESS.mdb;Persist Security Info=False;"

SQL = "Select * from clientes"

Cnn.CursorLocation = adUseClient

Rs.Open SQL, Cnn, adOpenDynamic, adLockOptimistic

DataGrid1.ClearFields
Set DataGrid1.DataSource = Rs
DataGrid1.Refresh

Espero te sirva, saludos.
 

darkgothic

Lanero Activo
Se unió
26 Ene 2009
Mensajes
58
Hola Darkgothic,

Prueba con este código:

Dim Cnn As New ADODB.Connection
Dim Rs As New ADODB.Recordset

Cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\mi_carpeta\Mi_ARCHIVO_ACCESS.mdb;Persist Security Info=False;"

SQL = "Select * from clientes"

Cnn.CursorLocation = adUseClient

Rs.Open SQL, Cnn, adOpenDynamic, adLockOptimistic

DataGrid1.ClearFields
Set DataGrid1.DataSource = Rs
DataGrid1.Refresh

Espero te sirva, saludos.





MARCA ERROR AQUI:
Cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\mi_carpeta\Mi_ARCHIVO_ACCESS.mdb;Persist Security Info=False;"


ME SALE ESTE ERROR:

NO SE ENCONTRÓ EL PROVEEDOR ESPECIFICADO. ES POSIBLE QUE NO ESTE INSTALADO CORRECTAMENTE.

CHEQUE LA RUTA DE LA BD Y ESTA BIEN NO SE A QUE SE DEBA EL ERROR
 
Arriba