Visual Basic - ERROR EN CONSULTA, NO ENTIENDO CUAL ES...

Life is soft - evento anual de software empresarial
   
Vista:

ERROR EN CONSULTA, NO ENTIENDO CUAL ES...

Publicado por J@m (190 intervenciones) el 12/03/2015 21:03:03
Tengo la siguiente consulta simple y sencilla:

comando = "SELECT * FROM PROGRAMAS"

Set tb = db.OpenRecordset(comando) 'AQUI ES EL ERROR "No coinciden los tipo"

Me tiene loco, que puede ser?

Gracias
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
Imágen de perfil de Andres Leonardo

ERROR EN CONSULTA, NO ENTIENDO CUAL ES...

Publicado por Andres Leonardo (701 intervenciones) el 13/03/2015 00:10:29
Comando es un string??? cuidado lo declaraste como entero .. (eso paso hace poco)
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

ERROR EN CONSULTA, NO ENTIENDO CUAL ES...

Publicado por Juan Gilberto (278 intervenciones) el 14/03/2015 00:11:17
Estás utilizando DAO
Prueba con :
1
Set tb = db.OpenRecordset(comando, dbOpenDynamic)
o tambien:
1
Set tb = db.OpenRecordset("PROGRAMAS", dbOpenTable)

Se supone que antes de esto :
Ya Referenciaste la libreria de DAO
Ya Declaraste las variables de la Base de Datos (db) y del Recordset (tb), de la siguiente manera:
1
2
Public db              As DAO.Database
Publicl tb              As DAO.Recordset
Ya Abriste la base de datos de la siguiente manera, asumiendo que es un ms access
1
Set db = OpenDatabase( "C:\Carpeta\BaseDeDatos.MDB", False, False)
La tabla que quieres abrir se llama PROGRAMAS
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

ERROR EN CONSULTA, NO ENTIENDO CUAL ES...

Publicado por LUIS FRANCO franco_luis776@yahoo.es (68 intervenciones) el 14/03/2015 00:19:54
Excelente explicacion Andres leonardo. Eso debe ser el error que le presenta.
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

ERROR EN CONSULTA, NO ENTIENDO CUAL ES...

Publicado por J@m (190 intervenciones) el 14/03/2015 16:02:31
Tengo esto:

Dim tb As Recordset
Dim db As Database

Dim comando As String
Set db = OpenDatabase(App.Path & ("\Datos.mdb"))

comando = "select * from PROGRAMAS"


Set tb = db.OpenRecordset(comando) 'AQUI 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

ERROR EN CONSULTA, NO ENTIENDO CUAL ES...

Publicado por J@m (190 intervenciones) el 16/03/2015 14:04:59
Listo, solucionado con tu explicación. GRACIAS!!! desde Cali, Colombia.
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