Imprimir Página - El data grid no me funciona con ado... Como lo ago????

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...

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:

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:

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....

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: angelcont22 en 1 Agosto 2009, 19:29 pm