** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Otros de Microsoft: Windows y Office > Visual Basic Clásico (VB3...VB6)
  Mensajes nuevos Mensajes nuevos RSS - Problema al vincular una base de acces a VB 6
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoProblema al vincular una base de acces a VB 6

 Responder Responder
Autor
Mensaje
daniel1994 Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 05/Junio/2020
Localización: bogota
Estado: Sin conexión
Puntos: 5
Enlace directo a este mensaje Tema: Problema al vincular una base de acces a VB 6
    Enviado: 05/Junio/2020 a las 04:08
Hola tengo el siguiente problema. Quiero vincular una base de datos de acces a visual basic, pero quiero ver la tabla de acces (es decir los registros que hay para hacer consultas) en la interfaz de Visual Basic 6, estoy usando el DataGrid pero al ejecutar el siguiente codigo en el formulario me aparece el siguiente error resaltado en negrilla y subrayado

Dim CN As New ADODB.Connection

Private Sub Form_Load()
CN.Open "Provider=Microsoft.ACE.OLEDB.12.0; data source=" & App.Path & "\Molanpapeleria.accdb" & "; Persit security info=false"
Call Consulta

End Sub


Private Sub Consulta()

Dim tbl As ADODB.Recordset

tbl.CursorLocation = adUseClient
tbl.CursorType = adOpenDynamic
tbl.LockType = adLockBatchOptimistic

tbl.Open "selct * from Proveedores where Numero de Documento", CN, adOpenDynamic, adLockBatchOptimistic

Set dg.DataSource = tbl


End Sub

me aparece  error de tiempo de ejecución de VBA '-2147467259 (80004005). Tengo tanto el archivo de acces y el archivo del proyecto de visual guardados en la misma carpeta. Ayuda por favor

Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 13990
Enlace directo a este mensaje Enviado: 05/Junio/2020 a las 08:52
Sin entrar en la cadena de conexión ... si está bien construida, si funciona, etc ... 

Mirando la SQL que intentas lanzar, es imposible que funcione:

"selct * from Proveedores where Numero de Documento"

en todo caso:

"SELECT * from Proveedores where [Numero de Documento] = " & NumeroControl

Te aconsejaría que primero hagas funcionar la SQL en el panel de consultas de Access



Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
Arriba
xavi Ver desplegable
Administrador
Administrador
Avatar
Terrassa-BCN

Unido: 10/Mayo/2005
Localización: Catalunya ||||
Estado: Sin conexión
Puntos: 14720
Enlace directo a este mensaje Enviado: 05/Junio/2020 a las 09:41
En la cadena de conexión: 

.....Persist security info = ...
Xavi, un minyó de Terrassa

Mi web
Arriba
daniel1994 Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 05/Junio/2020
Localización: bogota
Estado: Sin conexión
Puntos: 5
Enlace directo a este mensaje Enviado: 05/Junio/2020 a las 18:13
Es que la veradad fue un tutorial de Youtube que vi. Ahora me aparece el mismo error pero con este mensaje

Creo que hacer referencia a la base de datos de pero la base esta guardada en el escritorio en la carpeta relacionada con la misma ruta, no se porque la encuentra. Ayuda por favor
Arriba
daniel1994 Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 05/Junio/2020
Localización: bogota
Estado: Sin conexión
Puntos: 5
Enlace directo a este mensaje Enviado: 05/Junio/2020 a las 18:18

 El mensaje que aparece es 
error 214746259 (80004005) en tiempo de ejecucion.
No se encontrar el archivo ´C\Users\HP\Desktop\Molanpapeleria\Molanpapeleria.accdb´
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable