visual basic et base de données access Fermé

Question

j'ai une base de données access et je n'arrive pas à y accéder par visual basic ce dernier ne me permet pas d'ouvrir ma base de données access de office 2000

antonyojunior · Accepted Answer

comment établire une connection entre VB6.0 et une Base de données Access?

ANDO · Answer

Contact moi sur ghost_dog_jr@hotmail.com je te donnerais un tutoriel, et des conseils si tu le desir, car c'est un peu long a expliquer...

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

Salut, Pour eviter quelsques plantages, il faut que tu convertisse ta base de données sous ACCESS 97.Fais un test pour voir.A+

salima · Answer

tout d'abord je vous remercie pour vote réponse , c'est trés gentil de ta part  et  cette solution , je l'ai déjé essayé et ça marche , mais l'office installé sur les machines est la version 2000, donc je ne peux comme meme pas convertit à chaque fois , ce n'est pas professionnel , et je ne comprend pas pourquoi l'office 2000 est moin performant que la version 97

moh · Answer

je travaille normalement avec VB et access envoies moi ton code pour voir

*t'as mis un DATA controle
*un DBGRID
ou pas
exemple

tu declares de la façon suivante
SET MO(le nom de la variable avec laquelle tu vas travailler) as database="le chemin d'acces a ta base)
SET moo as database.recordset="le nom de la table"

salima · Answer

salut moh
en visuel basic j'ai lié mon programme à la base de données access2000 via le controle data, mais celui ci me signal une erreur d'acces à la base , c'est vraiment étonant surtout que ça marche tres bien avec access97 , je ne comprend plus rien , j'espére que vous pouver m'aider , je compte sur toi
à trés bientot sur le net

Merzak · Answer

desoler mes il faut changer le data il et incompatible avec le Acces2000
et si tu veux plus d'explication sur le Probleme tu me contacte par mon adresse électronique pour avoire plus de detaille sur ton probleme, A+

Vignon · Answer

Salut,
Je développe une application VB6 sur la plate forme d’un Windows 2000 qui est spécifique à une entreprise et je n’arrive pas à me connecter à la base que j’ai créé dans Access 2000. Il me dit qu’il ne reconnaît pas le format de la base. J’ai essayé avec d’autres codes mais rien à faire. Pouvez-vous m’aider ?
Ici j’ai le message « La connexion n'a pas réussi,réessayez »
Je vous envoie le code que j’ai utilisé :

Option Explicit
'Déclaration des 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()
'Cette procédure appelle la fonction d'ouverture de la BD et affiche la fenêtre d'acceuil.
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
'Cette fonction ouvre 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)
'Cette procédure permet d'ouvrir toutes les tables de la BD. Ce code veut dire que pr ouvrir une table,c'est une requete SQL qu'il faut lui passer. ie un ''select''
'Regarde ds l'aide au niveau de ces propriétés . tu verras ce à quoi elle servent

Cmd.ActiveConnection = Cnx
Cmd.CommandText = StrSQL
Rst.CursorLocation = adUseClient
Rst.CursorType = adOpenDynamic
Rst.LockType = adLockPessimistic
Rst.Open Cmd
End Sub

Public Sub FermerRecord()
'Cette procédure permet de fermer toutes les tables de la BD
On Error Resume Next
Rst.Close
Set Rst = Nothing
Set Rst = New ADODB.Recordset
End Sub

Public Sub FermerBase()
'Cette procédure permet de fermer la BD
On Error Resume Next
Cnx.Close
Set Cnx = Nothing
End Sub

ngo · Answer

salut a tous,
je voudrais savoir des fonctions de base qui me permetterais de manipuler une base de donnée access2003 avec visuel C.
voila merci a tous ceux qui m'aidersons^^
a bientot.

samiha · Answer

il faut que tu convertit ta base en format access 97 pour cela sur access va à outils puis utilitaire de bases de données puis fait la conversion est sur vb attache la avec le projet bonne chance

jamal · Answer

salut,
je suis un etudiant en informatique et je veu du soutien dans tous les cours d'informatique(excell,worth,visuel basic,programation,algorithm..car je n'ai pas le temps pour etre tjrs en classe , et merci pour vous et votre equipe qui soutin les autres humainement.

username · Answer

vous chercher le ocx data objet 3.6 au lieu du 3.5 que l'office 2000 demande

Abdou · Answer

Ok salima, voila tout d'abord lorsque vous ouvrez VB sous le menu Projet-->référence-->cocher Microsoft DAO 2.5/3.51 compatibility library.

Ensuite dans l'éditeur de programmation tapez les lignes de code suivantes:

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="votre base de données qui doit être dans le dossier du projet.mdb"
rs.cursorlocation=adUseClient
rs.cursortype=adopenDynamic
rs.locktype=adlockPessimistic

rs.open cmd

Je vous souhaite bonne chance et bon courage

Cordialement

mokhtar · Answer

ecoute je ne sais comment te lke dire expose bien ton probleme j ai tjrs travailer avec le vb et les bases acces donc si tu veux de l aide eclaire ton probleme

123456 · Answer

je veut savoir comment je peut lies vb 6.0 avec la base do
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

salut
je viens de lire ce forum mais toujours j'arrive pas à lié ma bd access et le vb6. j'ai une base de données formé de 4 tables et des requête. je veux en utilisant Vb afficher qluelques champs de la table, lmodifier, supprimer et ajouter des enregistrement, inserer des statiqtiques calculer déja par les requetes access....merci pour toute aide et je veux bien que vous m' envoyez des cours que vous jugez interessants
merci pour tout

hanshans26 · Answer

salut  salma 
pour pouvoir te connecter a un BD acces 2000 tu doit utiliser l'ocx microsoft DAO 3.6 :
  dans le menu projet click sur l'onglet references et essais de le trouver dans la liste des cases à cocher 
  si tu le trouve pas essais de le rechercher a l'aide de l'utilitaire de recherche de windows pour connaitre son chemin , aprés tu reviens sur ton onglet references et click sur parcourir pour retrouver ton ocx et ajoute le . bonne chance 
c mon email : hanshans26@hotmail.com
au cas ou tu veux me signaler quelque chose parceque je me connecte que rarement

kiops · Answer

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

hackmed · Answer

khassek a hbibi  dir  crée base bdd acess97 pour vb6

srigovich · Answer

bonjour

si vous le programme qui relie le VB avec Access , pourriez vous le poster dans : srigovich@hotmail.com
merci d'avance

RAd01 · Answer

Bonjour 
    Votre probleme se trouve dans la propriete de Controle (Adodc)==> (Personalise)

isgt · Answer

salus a tous
comment je peut afficher une image sur toute la form en vb
parceque quant je fait elle n'affiche pas sur la form une partie reste

hassanine10 · Answer

bonsoir;
    Ravi de présenter mon problème afin de trouver une solution .
Pourquoi ms access se limite-t-il à 9.23Mo?   Sachant que mon travail dépasse cette taille, et j'ai peur de tous perdre .

zakaria12 · Answer

salut salima 
la solution de ton problème est d'utiliser le modele ADO pour lier la base données de Microsoft Access 2000 ou plus avec Visuel basic, mais pour relier la base de données Access 97 en utlisent le modéle DAO (DAta )

lange · Answer

Bonjour,
J'utilise VB 2005 et j'ai un petit probleme en ce moment!
Voila tout d'abord je travaille toujours sur VB 2005 avec ma base sur access. J'ai trois table que j'ai relier grace a une ternaire. 
Cette ternaire ne contient que les clés primaires des 3 autres tables. J'ai mis les clés primaires en Numéro-automatique.
Je dois faire un ajout sur les 3 tables en même temps et ainsi remplir la 4ème table qui contient que les clé primaires des 3 tables.
Mais je ne sais pas comment faire car lorsque j'appuie sur "AJOUTER" dans ma fenetre de VB ce dernier ajoute les données dans les 3 tables mais je ne sais pas comment ajouter leur clés dans la 4eme table.
Voila un bout de mon code:

Mycommand.CommandText = "INSERT INTO UTILISATEUR (nom_utilisateur, session_utilisateur,tcpip_utilisateur) VALUES( '" & nomlist.Text & "' ,'" & sessiotxt.Text & "','" & tcptxt.Text & "')"

Mycommand1.CommandText = "INSERT INTO ORDINATEUR (marque_ordi, type_ordi,lecteur_ordi,numserie_ordi,type_processeur,vitesse_processeur,carte_memoire,nomcarte_graph,nomcarte_reseau,nomcarte_son,diskdur,date_achat) VALUES ('" & markcombo.Text & "','" & typecombo.Text & "','" & lectcombo.Text & "','" & numseriecombo.Text & "','" & typcombo.Text & "','" & vitessproctxt.Text & "'," & Motxt.Text & ",'" & cartgcombo.Text & "','" & cartercombo.Text & "','" & soncombo.Text & "','" & ddtxt.Text & "','" & datebox.Text & "')"

Mycommand2.CommandText = "INSERT INTO LOGICIELS (nom_application,nom_systeme,nom_office,mail_logiciels,chat_logiciels) VALUES ('" & applbox.Text & "','" & syscombo.Text & "','" & officelist.Text & "','" & adrmail.Text & "','" & listmessenger.Text & "')"

MyConnexion.Open()
Mycommand.ExecuteScalar()
Mycommand1.ExecuteScalar()
Mycommand2.ExecuteScalar()
MyConnexion.Close()

'C'est ici le probleme apres le VALUES
Mycommand3.CommandText = "INSERT INTO AVOIR (num_utilisateur, num_ordi,num_config) VALUES (???)
MyConnexion.Open()
Mycommand3.ExecuteScalar()
MyConnexion.Close()

Merci d'avance pour votre aide.
Lange.

zakaria12 · Answer

salut Va voir à cette adresse www.vbfrance.com/ 
ok
@++++

pegaze77 · Answer

bonjour,
je dois créer une requête Action mise à jours, pour minorer mes prix de vente de 5%.
je ne trouve pas la formule mathématique pouvez vous m'aider merci d'avance

fahed1 · Answer

je suis un jeune dévellopeur qui pour son apprentissage conçoit une base de données sur microsoft access s'il vous plaît ou pourraige trouver la documentation?

longayo · Answer

Bonjour Salima, il faut verifier le connexion entre l'interface et la base de donnée il faut lier le text avec le champ de la base avec la proprieté datafield et datasource

Prog44 · Answer

pour connecter vB6 à access 2000, il faut le moteur MicrosoftJet 4.0 alors que pour la connexion à 97 il faut le moteur Microsoftjet3.0.

liemroc · Answer

Salam 
vous allez trouver la plus part des reponse de vos question sur le site:
www.rabainfo.com

liemroc · Answer

svp visiter le site : www.rabainfo.com

didier11 · Answer

assure toi d'abord que ta BD access est dans le bon repertoire.ensuite déclare une variable 'public con as ADODB.connection ds General'. essaye ensuite les instructions de connexion

jjamall · Answer

bonjour , 
qui peux me aider svp en ce qui concerne la connexion entre VB6 et access ?
j'ai des problème a me faire ça ...
c'est très urgent svp ...

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

salut,je suis débutant en vb j'ai un  problème de connexion de base de donnée  avec une application vb6 voici mon code:

Private Sub Command1_Click()
With clt
.Index = "PrimaryKey"                 <----------  l'erreur est là!!
.Seek "=", num.Text
If .NoMatch Then
.AddNew
!numero_client = num.Text
.Update
End If
End With
End Sub
   


et le module standard :


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



voici mon e-mail: gezaak@yahoo.fr
merci

tiennou_2007 · Answer

Slt moi c ALBERT
AU fait j'ai un problème.
Je suis étudiant en IG option dévelopeur Application.
Mon projet est de monter une base de données sur acces et le rentre actif avec Visual Basic.
Compte tenu du programme de mes cours chargeé
J'aimerais que vous m'aider à réaliser mon projet en tant que guide
je vous remerci d'avance et bonne journée.

aloulo2 · Answer

Comment établire une connection entre VB6.0 et une Base de données Access?
contacter moi au mounem2010@yahoo.fr

automatique · Answer

bonjour 
j'ai eu le même problème 
convertie ton fichier Access 2000 en 97 et la je pense que sa va marché
cordialement

bestover · Answer

savez-vous utiliser la commande ADO à partir de la boîte à outil
pour avoir accès  à votre base de données?

demander est plus réfléchit qu'être renfermer

mima · Answer

offfffffffffffffffffffffffffffffffff

sonia · Answer

comment signaler data on vb

aloulo2 · Answer

salut
C'est simple  tu doit utiliser office 2003 sa fonctionne  parfaitement

ima · Answer

Bonjour tt le monde.

j'ai installé VB 2008 et j'ai remarqué que le composant crystal report me manquer 
svp si qq'un px m'orienter comment je vais ajouter le crystal report au vb 2008 pour que je puisse travailler avec des etat .

Merci d'avance.

djamel · Answer

merci MIMO mille merci

immy · Answer

je suis une débutante en Access ET VB et j'essaye de créer une BDD alors j'ai commencer par la création des table formulaires et les etats et quelques requétes est ce que quelqu'un peut m'aider pour la suite ...merci beaucoup

JaoudSR · Answer

salut pour que tu peux accédé a votre base de donne access il faut que tu convertis ta bas de donnes en access 97 si vous travaillez on visuel basic 6

abchor · Answer

salut,
jai avancé un peu dans mon app, j'ai dessiné l'interface sur vb6 avec les boutons,zone de texte et tout ça.
j'ai ajouté un adodc pour faire la liaison avec ma base mdb mais je n'arrive pas à trouver le code pour ajouter un enregistremenr sachant que la base contient déja des enregistrements.
pouvez vous svp me montrer le chemin.
j'ai lier l'adodc avec la base dans les propriétés mais je sais quoi faire encore.
merci

jaspers karl bifu · Answer

slt, convertit d'abord ta bdd en format access 97 puis tu fais:

-demarrer
-panneau de configuration
-outils d'administration
-sources de donnees odbc
dans la boite qui s'affiche tu choisi "driver do microsoft access" puis clic sur "ajouter"
-dans la nouvelle boite tu choisi source des donnees systemes 
- tu donne 1 nom à ta source
-tu clic sur "selectionner la base de donnees"
-tu choisi l'emplacement dans laquelle t'avais enregistrer ton projet
-puis tu clic sur ok

c'est l'approche ADO.

jamal_ho · Answer

je crois que pour afficher les données dans un grid ou sur les textes box il faut suivr mon exemple
la table etant eleve les chomd (nom,prenom,code et datens)
1) dans le module déclare 

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 'peut etre pas utilisé
rs.CursorLocation = adUseClient 'trés importante Sans cette ligne, ca genère une erreur 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 et base de données access

52 réponses

Discussions similaires