Visual Basic y base de datos Access

Question

Tengo una base de datos Access y no puedo acceder a ella desde Visual Basic; este último no me permite abrir mi base de datos de Access de Office 2000.

antonyojunior · Accepted Answer

¿cómo establecer una conexión entre VB6.0 y una base de datos Access?

ANDO · Answer

Contáctame en ghost_dog_jr@hotmail.com y te daré un tutorial y consejos si quieres, porque es un poco largo de explicar...

WhiteFang · Answer

;-))  Quel est ton message d'erreur ?  Ouvres tu la session via "As New Access.Application" ??  As-tu pensé à créer un WorkSpace ?  Bref, dis-en plus !!  ;-))))  Wild and Free

ti pimous · Answer

Hola,  Para evitar algunos fallos, necesitas convertir tu base de datos a ACCESS 97.  Haz una prueba para ver.  Nos vemos.

salima · Answer

Primero quiero agradecerle por su respuesta, es muy amable de su parte, y esta solución la he probado ya y funciona, pero el Office instalado en las máquinas es la versión 2000, así que no puedo convertir cada vez, no es profesional, y no entiendo por qué Office 2000 es menos eficiente que la versión 97.

moh · Answer

trabajo normalmente con VB y Access, envíame tu código para ver  *pones un control DATA *un DBGRID o no ejemplo  declara de la siguiente manera  SET MO(el nombre de la variable con la que vas a trabajar) as database="la ruta de acceso a tu base") SET moo as database.recordset="el nombre de la tabla"

salima · Answer

hola moh en Visual Basic he vinculado mi programa a la base de datos Access2000 a través del control Data, pero éste me señala un error de acceso a la base, es realmente sorprendente, sobre todo porque funciona muy bien con Access97, ya no entiendo nada, espero que puedas ayudarme, cuento contigo nos vemos pronto en la red

Merzak · Answer

lo siento pero hay que cambiar los datos, son incompatibles con Acce s2000  y si quieres más explicaciones sobre el problema, contáctame por mi dirección de correo electrónico para obtener más detalles sobre tu problema, chao

Vignon · Answer

Hola, Estoy desarrollando una aplicación VB6 en la plataforma de Windows 2000 que es específica para una empresa y no logro conectarme a la base que creé en Access 2000. Me dice que no reconoce el formato de la base. He probado con otros códigos, pero nada. ¿Puedes ayudarme? Aquí tengo el mensaje «La conexión n'a pas réussi,réessayez» Te envío el código que he utilizado:  Option Explicit 'Declaración de variables globales 'Global DbName As String Global Liberreur As String 'Global OK As Integer  Public Cnx As New ADODB.Connection Public Rst As New ADODB.Recordset Public Cmd As New ADODB.Command Sub main()  'Este procedimiento llama a la función de apertura de la BD y muestra la ventana de inicio. If OuvrirBase = True Then frmConnexion.Show Else  MsgBox ("La connexion n'a pas réussi,réessayez") End If End Sub   Public Function OuvrirBase() As Boolean  'Esta función abre la BD Access 2000  On Error GoTo Erreur   Cnx.Provider = "Microsoft.Jet.Oledb.4.0"  Cnx.ConnectionString = App.Path & "c:\db1.mdb"  Cnx.Open  Cmd.ActiveConnection = Cnx  OuvrirBase = True  Exit Function '\gbemich\GESPARC\Application\ Erreur:  Liberreur = "Erreur d'ouverture de la Base"  OuvrirBase = False  End Function   Public Sub OuvrirRecord(StrSQL As String)  'Esta rutina permite abrir todas las tablas de la BD. Este código para abrir una tabla es una consulta SQL que hay que pasarle, es decir, un ''select''  'Mira en la ayuda a nivel de estas propiedades . verás para qué sirven   Cmd.ActiveConnection = Cnx  Cmd.CommandText = StrSQL  Rst.CursorLocation = adUseClient  Rst.CursorType = adOpenDynamic  Rst.LockType = adLockPessimistic  Rst.Open Cmd  End Sub  Public Sub FermerRecord() 'Esta rutina permite cerrar todas las tablas de la BD On Error Resume Next Rst.Close Set Rst = Nothing Set Rst = New ADODB.Recordset End Sub  Public Sub FermerBase() 'Esta rutina permite cerrar la BD On Error Resume Next Cnx.Close Set Cnx = Nothing End Sub

ngo · Answer

Hola a todos, me gustaría saber funciones básicas que me permitirían manipular una base de datos Access 2003 con Visual C. bueno, gracias a todos los que me ayuden^^ hasta pronto.

samiha · Answer

Necesitas convertir tu base a formato Access 97; para ello, en Access ve a Herramientas, Utilitarios de Base de Datos, y realiza la conversión. Luego, en VB, adjúntalo al proyecto. Buena suerte.

jamal · Answer

hola, soy un estudiante de informática y quiero apoyo en todos los cursos de informática (Excel, Word, Visual Basic, programación, algoritmos... porque no tengo tiempo para estar siempre en clase, y gracias a ustedes y a su equipo por apoyar a las personas de forma humanitaria.

username · Answer

you are looking for the ocx data object 3.6 instead of 3.5 that Office 2000 requires

Abdou · Answer

Ok Salima, ahora primero, cuando abras VB desde el menú Proyecto -> Referencia -> marca Microsoft DAO 2.5/3.51 compatibility library.  Luego, en el editor de programación, escribe las siguientes líneas de código:  dim cnx as adodb.connection dim cmd as adodb.command dim rs as adodb.recordset  sous la procédure form_load() tapez:  set cnx=new adodb.connection set cmd=new adodb.command set rs=new adodb.recordset  cnx.Provider="Microsoft.jet.oledb.4.0" cnx.connectionstring="tu base de datos que debe estar en la carpeta del proyecto.mdb" rs.cursorlocation=adUseClient rs.cursortype=adopenDynamic rs.locktype=adlockPessimistic  rs.open cmd  Te deseo buena suerte y mucho ánimo  Saludos

mokhtar · Answer

escucha no sé cómo decirte expón bien tu problema, yo siempre he trabajado con VB y las bases Access así que si quieres ayuda ilúmbrame tu problema

123456 · Answer

quiero saber cómo puedo vincular VB 6.0 con la base de datos nes j

leonelrichie · Answer

slt j'aimerai si possibles avoir des cours performants avec exemples sur les bases de données créées avec le vb6 et access

meryem01 · Answer

hola acabo de leer este foro pero aún no logro conectar mi base de datos Access con VB6. tengo una base de datos formada por 4 tablas y consultas. quiero, usando VB, mostrar algunos campos de la tabla, modificarlos, eliminarlos y agregar registros, insertar estadísticas ya calculadas por las consultas de Access...gracias por toda la ayuda y me gustaría que me envíen cursos que consideren interesantes gracias por todo

hanshans26 · Answer

hola salma para poder conectarte a una BD Access 2000 debes usar el ocx Microsoft DAO 3.6 :  en el menú Proyecto haz clic en la pestaña Referencias e intenta localizarlo en la lista de casillas para marcar  si no lo encuentras intenta buscarlo con la utilidad de búsqueda de Windows para conocer su ruta, luego regresa a la pestaña Referencias y haz clic en Examinar para volver a localizar tu ocx y añade-lo . buena suerte mi correo: hanshans26@hotmail.com por si quieres avisarme de algo porque solo me conecto muy rara vez

kiops · Answer

http://www.commentcamarche.net/forum/affich-227473-visual-basic-et-base-de-donnees-access

hackmed · Answer

You need to create a Microsoft Access 97 database for VB6, my friend.

srigovich · Answer

hola  si el programa que conecta VB con Access, ¿podrías publicarlo en: srigovich@hotmail.com gracias de antemano

RAd01 · Answer

Hola  Tu problema se encuentra en la propiedad de Control (Adodc) ==> (Personalizar)

isgt · Answer

Hola a todos ¿cómo puedo mostrar una imagen en toda la form en VB porque cuando la hago no se muestra en la form, una parte queda?

hassanine10 · Answer

Buenas noches;  Encantado de presentar mi problema para encontrar una solución. ¿Por qué MS Access se limita a 9.23 MB? Sabiendo que mi trabajo supera ese tamaño, y tengo miedo de perder todo.

zakaria12 · Answer

hola salima la solución a tu problema es usar el modelo ADO para enlazar la base de datos de Microsoft Access 2000 o superior con Visual Basic, pero para enlazar la base de datos Access 97 se utiliza el modelo DAO (Data)

lange · Answer

Inserer les clés étrangères dans AVOIR en récupérant les IDs générés des inserts précédents et en les passant dans l’insert de AVOIR.

Approche typique VB.NET/Access:
- Utiliser des paramètres et récupérer les identifiants auto-générés après chaque INSERT.
- Ou exécuter les inserts dans une transaction pour garantir la cohérence et récupérer les IDs.

Exemple conceptuel (simplifié, adapte les noms et types):
1) Démarrer une transaction
2) INSERT INTO UTILISATEUR (...) VALUES (...); puis récupérer l’identifiant généré ( par exemple via SELECT LAST_INSERT_ID() ou en VB avec ExecuteScalar et une clause OUTPUT selon SGBD; Access utilise l’Identité et la fonction @@IDENTITY ou la clause SCOPE_IDENTITY() dans SQL Server; en Access on peut utiliser SELECT @@IDENTITY après l’INSERT)
3) Lire num_utilisateur = valeur récupérée
4) INSERT INTO ORDINATEUR (...) VALUES (...); puis récupérer num_ordi via SELECT @@IDENTITY
5) INSERT INTO LOGICIELS (...) VALUES (...); puis récupérer num_config (ou le troisième identifiant si nécessaire)
6) INSERT INTO AVOIR (num_utilisateur, num_ordi, num_config) VALUES (val1, val2, val3)
7) Commit ou rollback en cas d’erreur

Notes pratiques:
- Regroupe les inserts dans une transaction: BeginTrans/CommitTrans/RollbackTrans.
- Utilise des paramètres pour éviter les erreurs de concaténation et les risques d’injection.
- Utilise la fonction adaptée à Access pour obtenir l’ID généré juste après chaque insert. En Access VBA/ADO, après un INSERT, tu peux exécuter SELECT @@IDENTITY pour obtenir le dernier identifiant généré dans la session.

Exemple de squelette (pseudo-code VB.NET avec OleDb):
- Dim cmd As New OleDbCommand()
- Using conn As New OleDbConnection(connectionString)
  conn.Open()
  Dim trans = conn.BeginTransaction()
  Try
    cmd.Connection = conn
    cmd.Transaction = trans
    cmd.CommandText = "INSERT INTO UTILISATEUR (nom_utilisateur, session_utilisateur, tcpip_utilisateur) VALUES (?, ?, ?)"
    cmd.Parameters.AddWithValue("@nom", nomlist.Text)
    cmd.Parameters.AddWithValue("@sess", sessiotxt.Text)
    cmd.Parameters.AddWithValue("@tcp", tcptxt.Text)
    cmd.ExecuteNonQuery()
    cmd.CommandText = "SELECT @@IDENTITY"
    Dim num_utilisateur = CInt(cmd.ExecuteScalar())

cmd.CommandText = "INSERT INTO ORDINATEUR (...) VALUES (?, ?, ..., ?)"
    // ajouter paramètres correspondants
    cmd.ExecuteNonQuery()
    cmd.CommandText = "SELECT @@IDENTITY"
    Dim num_ordi = CInt(cmd.ExecuteScalar())

cmd.CommandText = "INSERT INTO LOGICIELS (...) VALUES (?, ?, ?, ?, ?)"
    // paramètres
    cmd.ExecuteNonQuery()
    cmd.CommandText = "SELECT @@IDENTITY"
    Dim num_config = CInt(cmd.ExecuteScalar())

cmd.CommandText = "INSERT INTO AVOIR (num_utilisateur, num_ordi, num_config) VALUES (?, ?, ?)"
    cmd.Parameters.Clear()
    cmd.Parameters.AddWithValue("@u", num_utilisateur)
    cmd.Parameters.AddWithValue("@o", num_ordi)
    cmd.Parameters.AddWithValue("@c", num_config)
    cmd.ExecuteNonQuery()

trans.Commit()
  Catch ex As Exception
    trans.Rollback()
    Throw
  Finally
    conn.Close()
  End Try
End Using

Important: adapte les noms de colonnes et le type de commande selon OleDb vs Odbc et selon Access. Si tu fournis le code exact actuel, je peux te proposer une version prête à compiler adaptée à VB 2005 et Access, avec gestion des identifiants et transaction.

zakaria12 · Answer

Hola, ve a esa dirección www.vbfrance.com/ ok @++++

pegaze77 · Answer

bonjour, para crear una consulta de Acción de actualización, para reducir mis precios de venta en un 5%, no encuentro la fórmula matemática, ¿puede ayudarme, gracias de antemano?

fahed1 · Answer

Je suis un jeune développeur qui, pour son apprentissage, conçoit une base de données sur Microsoft Access. S'il vous plaît, où pourrais-je trouver la documentation ?

longayo · Answer

Hola Salima, hay que verificar la conexión entre la interfaz y la base de datos; es necesario vincular el texto con el campo de la base de datos mediante la propiedad datafield y datasource.

Prog44 · Answer

para conectar vB6 a Access 2000, se necesita el motor Microsoft Jet 4.0, mientras que para la conexión a 97 se necesita el motor Microsoft Jet 3.0.

liemroc · Answer

Salam vas a encontrar la mayoría de las respuestas a tus preguntas en el sitio: www.rabainfo.com

liemroc · Answer

Por favor, visita el sitio: www.rabainfo.com

didier11 · Answer

asegúrate primero de que tu BD Access está en el directorio correcto. luego declara una variable 'public con as ADODB.connection ds General'. luego prueba las instrucciones de conexión

jjamall · Answer

hola, quién puede ayudarme por favor respecto a la conexión entre VB6 y Access? tengo problemas para lograrlo... es muy urgente por favor ...

amazzan · Answer

bonjour,
je voudrais créer un programme qui me permettrait de gérer un établissement scolaire, avec une base de donnée ACCESS et VB6. comment procéder?
j'avoue ne rien connaître en VB6 sinon des définitions théoriques.
si quelqu'un peut m'aider, je lui serais très reconnaissant. merci.

sfolix · Answer

Hola, soy principiante en VB tengo un problema de conexión a base de datos con una aplicación VB6, aquí está mi código:

Private Sub Command1_Click()
With clt
.Index = "PrimaryKey"
'---------- ¡el error está aquí!!
.Seek "=", num.Text
If .NoMatch Then
.AddNew
!numero_client = num.Text
.Update
End If
End With
End Sub

y el módulo estándar :

Option Explicit
Public db As DAO.Database
Public clt As DAO.Recordset

Sub main()
Set db = DBEngine.OpenDatabase("C:\****\****\Base de données.mdb")
Set clt = db.OpenRecordset("client")
End Sub

aquí está mi correo: gezaak@yahoo.fr
gracias

tiennou_2007 · Answer

Hola, soy Albert. Por cierto, tengo un problema. Soy estudiante en IG con la opción desarrollador de Aplicaciones. Mi proyecto es montar una base de datos en Access y dejarla funcional con Visual Basic. Visto el programa de mis cursos, tan cargado, me gustaría que me ayudes a realizar mi proyecto como guía. Te agradezco de antemano y que tengas un buen día.

aloulo2 · Answer

Cómo establecer una conexión entre VB6.0 y una base de datos Access? contáctame en mounem2010@yahoo.fr

automatique · Answer

hola he tenido el mismo problema convierte tu archivo de Access 2000 a 97 y allí creo que va a funcionar cordialmente

bestover · Answer

¿sabe usar el comando ADO desde la caja de herramientas  para tener acceso a su base de datos?  preguntar es más reflexivo que estar cerrado.

mima · Answer

oh nonnnnnnnnnnnnnnnnnnnn

sonia · Answer

¿cómo señalar data en VB?

aloulo2 · Answer

hola Es sencillo, debes usar Office 2003, funciona perfectamente

ima · Answer

Hola a todos.

He instalado VB 2008 y he notado que me falta el componente Crystal Report
por favor si alguien puede orientarme sobre cómo voy a añadir Crystal Report a VB 2008 para que pueda trabajar con informes.

Gracias de antemano.

djamel · Answer

mil gracias MIMO, mil gracias

immy · Answer

Soy ahorrando la traducción completa al español:

Soy una principiante en Access y VB y estoy intentando crear una base de datos. Empecé por la creación de tablas, formularios, informes y algunas consultas. ¿Alguien puede ayudarme con la continuación... muchas gracias.

JaoudSR · Answer

Hola, para que puedas acceder a tu base de datos Access, hace falta que conviertas tu base de datos a Access 97 si trabajas con Visual Basic 6.

abchor · Answer

hola,
he avanzado un poco en mi app, he dibujado la interfaz en vb6 con los botones, la zona de texto y todo eso.
he añadido un adodc para la conexión con mi base mdb pero no logro encontrar el código para agregar un registro sabiendo que la base ya contiene registros.
¿podrías por favor mostrarme el camino?
he ligado el adodc con la base en las propiedades pero no sé qué hacer aún.
gracias

jaspers karl bifu · Answer

primero convierte tu base de datos a formato Access 97 y luego haces:

- iniciar
- panel de control
- herramientas administrativas
- orígenes de datos ODBC
en la caja que aparece selecciona "Driver do Microsoft Access" y luego haz clic en "Agregar"
- en la nueva caja elige Origen de datos de sistema
- le das un nombre al origen
- haces clic en "Seleccionar la base de datos"
- eliges la ubicación donde habías guardado tu proyecto
- luego haces clic en OK

esta es la aproximación ADO.

jamal_ho · Answer

Creo que para mostrar los datos en una cuadrícula (grid) o en los cuadros de texto hay que seguir mi ejemplo. La tabla es elevada, los campos son (nom, prenom, code y datens)

1) en el módulo declara

Public DB As New ADODB.Connection
Public rs As New ADODB.Recordset

2) la form load

Set cn = New ADODB.Connection
Set DB = New ADODB.Connection
cn.Open "provider=Microsoft.jet.OLEDB.4.0; data source=C:\Documents and Settings\Nekor-bit bureau\Mes documents\fiche.mdb;Persist Security Info=False"

Private Sub Command1_Click()

If Text1.Text  "" Then
On Error GoTo err
If IsNumeric(Text1) = False Then
Set DB = New ADODB.Connection
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseServer 'puede que no se use
rs.CursorLocation = adUseClient 'muy importante Sin esta línea, genera un error 7004
DB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Nekor-bit bureau\Mes documents\fiche.mdb;Persist Security Info=False"
rs.Open "select * from eleve where nom like '" & Text1.Text & "%'", DB, adOpenStatic, adLockOptimistic

Text2.Text = rs!code
Text3.Text = rs!nom
Text4.Text = rs!prenom
Text5.Text = rs!datens

Set Adodc1.Recordset.DataSource = rs
Set DataGrid1.DataSource = rs

Text1.SetFocus
End If
Set DataGrid1.DataSource = rs
err:

End If

bon courage

Visual Basic y base de datos Access

52 respuestas

Renombrar cuenta de microsoft

Frst64 en francés cordialement

Problema de texturas en enshrouded

Acceso ftp imposible

Más desconexión de wifi

Instalación de un programa linux

Teclado macbook en vm windows arm

Olvido el pin de un samsung z fold 3

Captimag_3-7-5_fr_124710.exe ya no funciona

¿glary u es posible volver a la versión anterior?