Problema al cargar grilla con base de datos

manumaf · #1 (**permalink**) 09/09/2008, 18:55

Hola, estoy usando el siguiente codigo en el evento load de mi formulario para cargar los datas de mi base de datos en mi grilla

Mi codigo es el siguiente:

Código:

Private Sub Form_Load()
Dim rs As New ADODB.Recordset
Dim consulta As String


        fgUsuarios.Clear
        fgUsuarios.Rows = 1
        fgUsuarios.Cols = 5
        fgUsuarios.TextMatrix(0, 0) = "Id"
        fgUsuarios.ColWidth(0) = 0
        fgUsuarios.TextMatrix(0, 1) = "Nombre"
        fgUsuarios.ColWidth(1) = (1000)
        fgUsuarios.TextMatrix(0, 2) = "Email"
        fgUsuarios.ColWidth(2) = 1000
        fgUsuarios.TextMatrix(0, 3) = "Contraseña"
        fgUsuarios.ColWidth(3) = 1000
        fgUsuarios.TextMatrix(0, 4) = "Pais"
        fgUsuarios.ColWidth(4) = 1000


consulta = "select id, nombre, email, contrasenia, pais from Usuarios order by nombres"
rs.Open consulta, conexion, adOpenDynamic, adLockReadOnly, adCmdText
Do While rs.EOF = False
fgUsuarios.AddItem = rs("id") & vbTab & rs("nombre") & vbTab & rs("email") & vbTab & rs("contrasenia") & vbTab & rs("pais")
rs.MoveNext
Loop
rs.Close


La conexion esta bien el error que me salta dice "Error de compilacion el argumento no es opcional"


Que esl o que hago mal?
End Sub

Avellaneda · #2 (**permalink**) 10/09/2008, 00:29

Cita:

Iniciado por manumaf

Hola, estoy usando el siguiente codigo en el evento load de mi formulario para cargar los datas de mi base de datos en mi grilla

Mi codigo es el siguiente:

Código:

Private Sub Form_Load()
Dim rs As New ADODB.Recordset
Dim consulta As String


        fgUsuarios.Clear
        fgUsuarios.Rows = 1
        fgUsuarios.Cols = 5
        fgUsuarios.TextMatrix(0, 0) = "Id"
        fgUsuarios.ColWidth(0) = 0
        fgUsuarios.TextMatrix(0, 1) = "Nombre"
        fgUsuarios.ColWidth(1) = (1000)
        fgUsuarios.TextMatrix(0, 2) = "Email"
        fgUsuarios.ColWidth(2) = 1000
        fgUsuarios.TextMatrix(0, 3) = "Contraseña"
        fgUsuarios.ColWidth(3) = 1000
        fgUsuarios.TextMatrix(0, 4) = "Pais"
        fgUsuarios.ColWidth(4) = 1000


consulta = "select id, nombre, email, contrasenia, pais from Usuarios order by nombres"
rs.Open consulta, conexion, adOpenDynamic, adLockReadOnly, adCmdText
Do While rs.EOF = False
fgUsuarios.AddItem = rs("id") & vbTab & rs("nombre") & vbTab & rs("email") & vbTab & rs("contrasenia") & vbTab & rs("pais")
rs.MoveNext
Loop
rs.Close


La conexion esta bien el error que me salta dice "Error de compilacion el argumento no es opcional"


Que esl o que hago mal?
End Sub

¿En qué línea salta el error?
Prueba eliminando 'adCmdText' en la apertura del recordset, ya que esta constante es de un objeto Command y no de un recordset.

SalomonSab · #3 (**permalink**) 10/09/2008, 07:22

Prueba asi:

Código:

Private Sub Form_Load()
Dim rs As New ADODB.Recordset
Dim consulta As String


        fgUsuarios.Clear
        fgUsuarios.Rows = 1
        fgUsuarios.Cols = 5
        fgUsuarios.TextMatrix(0, 0) = "Id"
        fgUsuarios.ColWidth(0) = 0
        fgUsuarios.TextMatrix(0, 1) = "Nombre"
        fgUsuarios.ColWidth(1) = (1000)
        fgUsuarios.TextMatrix(0, 2) = "Email"
        fgUsuarios.ColWidth(2) = 1000
        fgUsuarios.TextMatrix(0, 3) = "Contraseña"
        fgUsuarios.ColWidth(3) = 1000
        fgUsuarios.TextMatrix(0, 4) = "Pais"
        fgUsuarios.ColWidth(4) = 1000


consulta = "select id, nombre, email, contrasenia, pais from Usuarios order by nombres"
rs.Open consulta, conexion, adOpenDynamic, adLockReadOnly, adCmdText
Do While rs.EOF = False
fgUsuarios.AddItem = rs.Fields("id") & vbTab & rs.Fields("nombre") & vbTab & rs.Fields("email") & vbTab & rs.Fields("contrasenia") & vbTab & rs.Fields("pais")
rs.MoveNext
Loop
rs.Close

End Sub

Ya nos diras que paso

manumaf · #4 (**permalink**) 10/09/2008, 18:54

No tampoco me anda m salta error en esta linea

fgUsuarios.AddItem = rs.Fields("id") & vbTab & rs.Fields("nombre") & vbTab & rs.Fields("email") & vbTab & rs.Fields("contrasenia") & vbTab & rs.Fields("pais")

Avellaneda · #5 (**permalink**) 11/09/2008, 01:29

Cita:

Iniciado por manumaf

No tampoco me anda m salta error en esta linea

fgUsuarios.AddItem = rs.Fields("id") & vbTab & rs.Fields("nombre") & vbTab & rs.Fields("email") & vbTab & rs.Fields("contrasenia") & vbTab & rs.Fields("pais")

Elimina el signo de igual (=).

fgUsuarios.AddItem rs.Fields("id") & vbTab & rs.Fields("nombre") & vbTab & rs.Fields("email") & vbTab & rs.Fields("contrasenia") & vbTab & rs.Fields("pais")

manumaf · #6 (**permalink**) 11/09/2008, 19:33

Muchisimias gracias!!!