Es posible enlazar un DATAGRID 6.0, con ADO sin el control.(con codigo)

bezael
29 de Enero del 2005
Estoy trabajando con ADO, sin control y deseo saber donde puedo encontrar ayuda, sobre como realizar el enlaze entre el ADO Y un DATAGRID.
GRACIAS ¡¡¡


Benjo
29 de Enero del 2005
Deberías crear una clase DataSourceBehavior con las propiedades que necesites. Un ejemplo base sería
'En una class
Private WithEvents cnn As ADODB.Connection
Private WithEvents rs As ADODB.Recordset
Private Str As String
Public Sub Update(): rs.Update: End Sub
Public Function Recordcount() As Integer: Recordcount = rs.Recordcount: End Function
Public Sub delete(): rs.delete: rs.Update: End Sub
Public Sub MoveLast(): rs.MoveLast: End Sub
Public Sub MoveFirst(): rs.MoveFirst: End Sub
Public Sub MoveNext(): rs.MoveNext: End Sub
Private Sub Class_Terminate()
rs.Close: cnn.Close
Set rs = Nothing: Set cnn = Nothing
End Sub
Public Sub dbOpen(ByVal strODBC As String, ByVal strSQL As String)
Set cnn = New ADODB.Connection
cnn.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=" & strODBC
cnn.Open
Set rs = New ADODB.Recordset
rs.Open strSQL, cnn, adOpenStatic, adLockOptimistic
End Sub
Private Sub Class_GetDataMember(DataMember As String, Data As Object)
Set Data = rs
End Sub
'Con la propiedad DataSourceBehavior=1
'En el Form
Private Sub Command1_Click()
Rec.dbOpen "Base", "SELECT * FROM Sub"
Text1.DataField = "Monto"
Set Text1.DataSource = Rec
Set DataGrid1.DataSource = Rec
DataGrid1.Refresh
End Sub

Enlazás cualquier objeto, pero en modo de ejecución