conectar recordset a truedbgrid
Publicado por Gustavo (2 intervenciones) el 27/08/2002 19:22:28
Hola a todos, a ver si alguien me puede ayudar, quisiera utilizar el truedbgrid de manera que tomara sus filas de un recordset (aclaro, no de un ado datacontrol, sino de un ado recordset), tengo el siguiente codigo pero no me funciona, que podra estar mal:
Option Explicit
Public conexionBD As ADODB.Connection
Private WithEvents rst As ADODB.Recordset
Private Sub Form_Load()
Set conexionBD = New ADODB.Connection
Set rst = New ADODB.Recordset
conexionBD.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=usuario;pwd=contraseña;Initial Catalog=BD;Data Source=servidor;"
rst.Open "select campo1 from tabla", conexionBD, adOpenDynamic, adLockOptimistic
Set sfuns.DataSource = rst
End Sub
Private Sub Form_Unload(Cancel As Integer)
rst.Close
conexionBD.Close
Set rst = Nothing
Set conexionBD = Nothing
End Sub
sfuns es el truedbgrid, el recordset si me lo abre bien y si me trae las filas, pero nada que el grid las despliega, ya configure tambien la columna del grid y ya no se me ocurre nada mas, a ver si alguien sabe que onda
Salu2
Option Explicit
Public conexionBD As ADODB.Connection
Private WithEvents rst As ADODB.Recordset
Private Sub Form_Load()
Set conexionBD = New ADODB.Connection
Set rst = New ADODB.Recordset
conexionBD.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=usuario;pwd=contraseña;Initial Catalog=BD;Data Source=servidor;"
rst.Open "select campo1 from tabla", conexionBD, adOpenDynamic, adLockOptimistic
Set sfuns.DataSource = rst
End Sub
Private Sub Form_Unload(Cancel As Integer)
rst.Close
conexionBD.Close
Set rst = Nothing
Set conexionBD = Nothing
End Sub
sfuns es el truedbgrid, el recordset si me lo abre bien y si me trae las filas, pero nada que el grid las despliega, ya configure tambien la columna del grid y ya no se me ocurre nada mas, a ver si alguien sabe que onda
Salu2
Valora esta pregunta


0