Kuerva696
Usuario Novato
Usuario Novato

Hola a todos.

Necesito ayuda con un código de visual basic cuanto antes. Me e creado una ODBC cuyo nombre es "practica" y el test de conexion es positivo pero a la hora de ejecutar el codigo que les pongo a continuacion me da el error 3146 ODBC falló la llamada, el error me da en la linea subrayada.

Necesito ayuda urgente muchisimas gracias de antemano:

Option Explicit
Dim misesion As Workspace
Dim miconexion As Connection
Dim rs As Recordset

DBEngine.DefaultType = dbUseODBC
Set misesion = Workspaces(0)

Set miconexion = misesion.OpenConnection("miconexion", dbDriverNoPrompt, False, "ODBC;DSN=practica")

Set rs = miconexion.OpenRecordset("Select cip,dni,ape1,ape2,nombre,sexo,discap From trab", dbOpenDynamic, dbRunAsync, dbPessimistic)

rs.MoveFirst

Avatar Image
@man / @woman
@man / @woman

DBEngine.OpenConnection(....)

Kuerva696
Usuario Novato
Usuario Novato

Muchas gracias por el aporte pero no me a solucionado nada me sige diciendo: falló la llamada....

Avatar Image
@man / @woman
@man / @woman

Entonces fíjate si lo tienes referenciado en el proyecto (menú Herramientas -> Referencias), debes definir un motor para manejar las bases de datos.

ATENCIÓN: Este tema no tiene actividad desde hace más de 6 MESES,
te recomendamos abrir un nuevo tema en lugar de responder al actual
Opciones:
Ir al subforo:
Permisos:
TU NO PUEDES Escribir nuevos temas
TU NO PUEDES Responder a los temas
TU NO PUEDES Editar tus propios mensajes
TU NO PUEDES Borrar tus propios mensajes
Temas similares
TemaUsuariosRespuestasVisitasActividad
Por: , el 14/Ago/2011, 08:37
MegaBedder NoSetup.org GestionXls22kAug/11
Por: , el 21/Feb/2010, 11:13
realistaIdealista05kFeb/10
Por: , el 13/Nov/2009, 05:28
barrios_m02kNov/09
Por: , el 20/May/2009, 14:36
Kuerva696 GestionXls22kMay/09
Por: , el 17/Mar/2009, 19:45
pedro.robles02kMar/09