Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: SpIdErFuCk en Miércoles 26 de Enero de 2005, 20:30
Título: Datagrid1 Llenarlo De Datos Via Odbc
Publicado por: SpIdErFuCk en Miércoles 26 de Enero de 2005, 20:30
Amigos tengo el siguiente error : Private Sub Command1_Click() Unload Me End Sub
Private Sub Form_Load() Dim cnn As ADODB.Connection Dim rs As ADODB.Recordset Dim str As String Set cnn = New ADODB.Connection cnn.ConnectionString = "Dsn=base1;Driver={INFORMIX 3.81 32 BIT};Host=191.0.0.220;Server=cotaco_tli;Service=sqlexec;Protocol=onsoctcp;Database=cotaco;UID=informix;PWD=katana"
cnn.Open
str = "SELECT * FROM personal order by pnumer" Set rs = New ADODB.Recordset rs.Open str, cnn, adOpenStatic, adLockOptimistic Set DataGrid1.DataSource = str <<<<====== ahi marca el error
End Sub
Private Sub from_unload() Set DataGrid1.DataSource = Nothing rs.Close Set rs = Nothing cnn.Close Set cnn = Nothing End Sub
******** En el setdatagrid1 marca el error . Quiero mostrar los datos del sql en el datagrid. Gracias. :scream: SpIdErFuCk
Título: Re: Datagrid1 Llenarlo De Datos Via Odbc
Publicado por: vbmc_2004 en Jueves 27 de Enero de 2005, 03:16
Hola SpIdErFuCk!! Amigo sabes estas indicando que te esta dando un error pero no estas diciendo que tipo de error es??? ojala lo aclares con el numero de error que muestra o algo mas especifico cuando se produce etc...
chau..
atte.
VBMC_2004
Título: Re: Datagrid1 Llenarlo De Datos Via Odbc
Publicado por: Brroz en Jueves 27 de Enero de 2005, 09:15
Hola SpIdErFuCk.
El error lo obtienes por intentar asignar a la propiedad DataSource una cadena en lugar de un objeto origen de datos. Asigna a DataSource el recordset. También te puede interesar llamar a continuación al método Rebind del DataGrid.
Código: Text
Set DataGrid1.DataSource = rs
DataGrid1.Rebind
A ver si ahora... Abur.
Título: Re: Datagrid1 Llenarlo De Datos Via Odbc
Publicado por: SpIdErFuCk en Martes 4 de Octubre de 2005, 06:11