Imprimir página | Cerrar ventana

Problema al vincular una base de acces a VB 6

Impreso de: Foro de Access y VBA
Categoría: Otros de Microsoft: Windows y Office
Nombre del foro: Visual Basic Clásico (VB3...VB6)
Descripción del foro: Foro de Visual Basic (No VBA)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=85325
Fecha de impresión: 24/Abril/2024 a las 11:56


Tema: Problema al vincular una base de acces a VB 6
Publicado por: daniel1994
Asunto: Problema al vincular una base de acces a VB 6
Fecha de publicación: 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  e https://stackoverflow.com/questions/31153613/vba-run-time-error-2147467259-80004005" rel="nofollow -



Respuestas:
Publicado por: Mihura
Fecha de publicación: 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.

http://www.accessaplicaciones.com" rel="nofollow - Access Aplicaciones
http://www.tecsys.es" rel="nofollow - Tecsys.es


Publicado por: xavi
Fecha de publicación: 05/Junio/2020 a las 09:41
En la cadena de conexión: 

.....Persist security info = ...


-------------
Xavi, un minyó de Terrassa

http://www.llodax.com" rel="nofollow - Mi web


Publicado por: daniel1994
Fecha de publicación: 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


Publicado por: daniel1994
Fecha de publicación: 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´



Imprimir página | Cerrar ventana