Run time error '13'; Type mismatch - VB-MUNDO

jrios03 · #1 (**permalink**) 25-02-2005, 18:39:36

Hoal de nuevo...

Tengo la siguiente consulta para llenar un ComboBox:

Código:

    Set base = OpenDatabase(App.Path + "\base.mdb")
    
    sql = "Select * from chofer order by cho_nom"
    Set REG = base.OpenRecordset(sql)
    
    REG.MoveFirst
    While Not REG.EOF
        chofer.AddItem (REG.Fields("cho_nom"))
        REG.MoveNext
    Wend

No sé cual puede ser el error...

Por favor ayúdenme...

Atentamente, Juan Ríos P.

acalanto · #2 (**permalink**) 25-02-2005, 19:30:24

Verifica que cho_nom existe y es tipo cadena. Por el nombre parece que así debería ser, pero el error que te devuelve y siempre que se produzca en ese punto <additem>, es referente a que intentas asignar un valor numérico o nulo a un objeto (Combo) que sólo acepta String.

Depura la aplicación y verifica el contenido de ese campo, de lo contrario es muy difícil determinar cual es su origen.

jrios03 · #3 (**permalink**) 25-02-2005, 19:40:39

El error se produce en el sector que les indico a continuación:

Código:

    Set base = OpenDatabase(App.Path + "\base.mdb")
   
    sql = "Select * from chofer order by cho_nom"
**  Set REG = base.OpenRecordset(sql)
   
    REG.MoveFirst
    While Not REG.EOF
        chofer.AddItem (REG.Fields("cho_nom"))
        REG.MoveNext
    Wend

Tengo exactamente la misma consulta en otro fomr y la utilizo para lo mismo...

Pero no sé qué es lo que pasa, ya que en el otro form sí funciona...

El campo cho_nom existe y es un String...

No entiendo el por qué lanza ese error...

Gracias de antemano...

acalanto · #4 (**permalink**) 25-02-2005, 19:43:52

REG está declarado como Recordset y sql como String.

Me parece que tienes algún problema de datos aunque no lo estés detectando. Lo mejor es que con F8 vayas depurando paso a paso el código e inspeccionando que cosa tiene cada variable en cada paso. Mientras no hagas esto que te digo puedes estar en un ciclo sin fin.

jrios03 · #5 (**permalink**) 25-02-2005, 20:02:27

Lo he inspeccionado con el F8, pero me dice que:

Código:

Set REG = base.OpenRecordset(sql)

no contiene nada... (Nothing)...

Eso es lo que no entiendo...

Código:

sql = "Select * from chofer order by cho_nom"

cuando me posiciono en sql me dice que tiene el valor de la consulta...

Qué será lo que le pasa?

Atentamente, Juan Ríos P.

acalanto · #6 (**permalink**) 25-02-2005, 20:24:17

Verifica en la inspección el tipo de objetos, que base sea realmente una base de datos, que reg sea realmente un tipo recordset. Esta claro que alguna declaración tienes mal pero no sé cual puede ser.

En el inicio de código inserta la directica Option Explicit que te obliga a declarar todas las variables y objetos que utilizas y detiene la compilación cuando algo no está debidamente declarado.

jrios03 · #7 (**permalink**) 25-02-2005, 20:32:49

Señor Acalanto, le envío mi aplicación adjunta para ver si usted puede revisarla y encontrar lo que haya mal...

Espero que me pueda ayudar...

Atentamente, Juan Ríos P.

acalanto · #8 (**permalink**) 25-02-2005, 21:24:29

Existe una sutíl pero indispensable diferencia en la forma que declaras los objetos, a la forma en que lo he hecho yo.

Database y Recordset no son nada si no pertenecen a ADO ADODB o a otro componente proveedor de datos.

Te aconsejo que csiempre que te ocurran cosas así, no des por hecho que en otra parte del código te funcionan e investiga en profundidad las propiedades de todo aquello que has declarado (Con Mayúsc+F9 puedes inspeccionar todos los objetos). Estate segiro que proporcionan una información relevante para subsanar problemas.

Código:

Option Explicit


Public tipo As String
Public base As dao.Database
Public REG As dao.Recordset
Public sql As String

Espero que te reulte útil el consejo.

jrios03 · #9 (**permalink**) 25-02-2005, 22:06:39

Muchas gracias Acalanto... eres un verdadero genio...

:smt012