Visual Basic - No se puede crear una consulta de selección

Life is soft - evento anual de software empresarial
 
Vista:

No se puede crear una consulta de selección

Publicado por Manuel Pastrana (44 intervenciones) el 03/11/2006 17:11:37
Saludos a tod@s

Tengo un aplicativo que se apoya en una base de datos de acces.

Necesito saber si existe una tabla en la base de datos antes de intentar crearla, para lo cual utilizo la siguiente rutina:

Set AccesoLocal = DBEngine.OpenDatabase(gsDatabaseLocal, False, False, ";pwd=carfa")

Línea = ""
Línea = "select MSysObjects.Name from MSysObjects where Name='TV_Analisis'"
Set rsRegistros = AccesoLocal.Execute(Línea)
If rsRegistros.RecordCount <> 0 Then
Línea = ""
Línea = "drop TV_Analisis"
AccesoLocal.Execute (Línea)
End If

La primera vez que la utilicé funcionó perfectamente, sin embargo, al cerrar la apliación y volver a iniciarla comenzó a generarme el error 3065 en tiempo de ejecución "No se puede crear una consulta de selección"

En la base de datos se tiene activo el permiso de lectura sobre el objeto de sistema MSysObjects.

¿Cómo puedo solucionar dicho conflicto?

Agradezco de antemano su atención y quedo en espera de sus valiosos comentarios.

Manuel
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

Ya encontré el error

Publicado por Manuel Pastrana (44 intervenciones) el 03/11/2006 19:33:12
Nuevamente saludos,

Ya encontré los errores:

Dice:

Set rsRegistros = AccesoLocal.Execute(Línea)

Debe decir:

Set rsRegistros = AccesoLocal.OpenRecordset(Línea)

Dice:

Línea = "drop TV_Analisis"

Debe decir:

Línea = "drop table TV_Analisis"
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