Visual Basic - error "no cohiciden los tipos"

Life is soft - evento anual de software empresarial
 
Vista:

error "no cohiciden los tipos"

Publicado por seba (6 intervenciones) el 11/02/2010 14:27:49
esta en el modulo de manera publica

Public Sub grilla_list(n As Integer, ob As Object)
If n = 1 Then
ob.Cols = rs.Fields.Count
Dim x As Integer
For x = 0 To ob.Cols - 1
ob.TextMatrix(0, x) = rs.Fields(x).Name
Next
ob.Rows = 1
Do While Not rs.EOF
ob.Rows = ob.Rows + 1
For x = 0 To ob.Cols - 1 Step 1
ob.TextMatrix(ob.Rows - 1, x) = rs(x)>>>>>>>>>>>>error no cohinciden los tipos
Next
rs.MoveNext
Loop
Else

ob.AddItem rs(0)

End If
End sub

al arrojar datos a la grilla con esta consulta en el formulario me sale ese error anterior

sql = "select area,count(area)as total from cliente_final"
sql = sql & " group by area"
rs.Open sql, cnn, 1, 2, adCmdText
If Not rs.EOF Then
Do While Not rs.EOF
grilla_list 1, grd_e

Loop
End If
rs.Close

pero con otras consultas similares no me sale el error....los datos a arrojar son de tipo texto no se por que me sale el error solo con esa consulta ,voy a poner una consulta que no me arroja errores

sql = "select proceso,count(proceso)as cantidad from cliente_final"
sql = sql & " group by proceso"
rs.Open sql, cnn, 1, 2, adCmdText
If Not rs.EOF Then
Do While Not rs.EOF
grilla_list 1, grd_e

Loop
End If
rs.Close
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:error

Publicado por Josman Pérez (40 intervenciones) el 12/02/2010 05:58:23
me parece que el error esta en el tipo de dato que tiene el campo area que no puede ser contado. en que linea exactamente te da el error?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:error

Publicado por seba (2 intervenciones) el 13/02/2010 23:34:09
>>>>>>>>>>>>> asi esta marcado el error

rs(x)=nulo; ese es el valor de la variable!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar