Te cuento,
Necesitaría realizar el trabajo con el tdbgrid mediante código y no utilizando los data control, aquí te pongo el código que tengo hecho y que obviamente no me funciona. El problema está en que en el msgbox si salen los datos que deben salir pero a la hora de transferirlos al grid no lo hace correctamente.
-----------------------------
Private Sub Command1_Click()
Set cnn = New ADODB.Connection
Set rs = New ADODB.Recordset
With cnn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Bases\Afiliados.mdb"
.Open
End With
Ssql = "SELECT Personas.Apellidos, Personas.Nombre, Personas.NIF, Afiliados.FechaNacimiento, Afiliados.TfnoCasa, Afiliados.TfnoMovil, Afiliados.Email, Afiliados.FechaAfiliacion "
Ssql = Ssql & "FROM Personas INNER JOIN Afiliados ON Personas.IdPersona = Afiliados.IdPersona"
rs.Open Ssql, cnn, adOpenDynamic, adLockOptimistic
MsgBox " Resultado : " & rs.GetString, vbOKOnly + vbInformation, "Resultado"
TDBGrid1.DataSource = rs
TDBGrid1.ReBind
End Sub
----------------------------------------------------
Si tienes algún tutorial o algo que me pueda servir para trabajar con este control te agradecería que me le pasaras.
Saludos
