El data grid no me funciona con ado... Como lo ago????

[angelcont22]

Hola a todos amigos...

Aqui otra Que no me se...El control data grid me funciona perfectamente con un control data y me muestra los datos insertados en la base de datos en su total perfeccion. Pero con ADO no es asi...

¿ Como inserto el data grid o algun otro control que  me permita visualizar los datos de la besa de datos como el grid pero con ADO.  ?

Gracias nuevamente...son de mucha ayuda...

[seba123neo]

Hola, el datagrid tiene una propiedad DataSource ahi le pones el recordset...te recomendaria usar el MSHFlexgrid..

saludos.

[jack06]

a uhmmm primero tienes k hacer hacer un referencia. Te vas al menu Proyecto y le das click en Referencias..., luego te va ah salir un cuadro tienes k hacerle un chek a Microsoft ActiveX Data Objects 2.6 Library una vez activada esa opcion pones algo parecido a esto.

En un modulo pone esto:

Código [Seleccionar] Expandir

Option Explicit

Public CN                   As ADODB.Connection 'Variable para la conexion a la BDD

'-------------------------------------------------------------------------------------------------------------
'\\ -- Sub para conectar la Base de Datos
'-------------------------------------------------------------------------------------------------------------
Sub Conectar()
   Dim RST As New ADODB.Recordset
   
   Set CN = New ADODB.Connection
   Set RST = New ADODB.Recordset
   
   With CN
       .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
                           App.path & "\LaBaseDeDato.mdb" & ";Persist Security Info=False"
       .CursorLocation = adUseClient
       .Open
   End With
End Sub


y esto en un form: para conectar una tabla x desde la base datos en un Grid

Código [Seleccionar] Expandir

Option Explicit

Dim RSTabla     As New ADODB.Recordset

Sub ConectarTabla()
   Set RSTabla = New ADODB.Recordset
   
   With RSTabla
       .CursorLocation = adUseClient
       .Open "Select * From NombreTabla", CN, adOpenStatic, adLockOptimistic
   End With
End Sub

Private Sub Form_Load()
   
    Call Conectar         'Conctamos la BDD
   Call ConectarTabla
   
   Set DataGrid1.DataSource = RSTabla
   DataGrid1.Refresh
   
End Sub

Slu2....

[angelcont22]

Perfecto mechas gracias, ahora si funciona mi data grid... muchas gracias has sido muy importante en para cubrir este detallote