A voir également:
- Visual basic et base de données access
- Visual basic download - Télécharger - Langages
- Microsoft 365 basic - Guide
- Formules excel de base - Guide
- Microsoft visual c++ runtime - Guide
- La base de données de sécurité du serveur n'a pas de compte d'ordinateur pour la relation ✓ - Forum Réseau
52 réponses
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
Messages postés
7
Date d'inscription
mercredi 4 mai 2011
Statut
Membre
Dernière intervention
16 mai 2011
11 mai 2011 à 16:45
11 mai 2011 à 16:45
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
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
Salut , voici ce que tu dois faire :
tu fais un double clic sur le bouton enregistrer pour taper le code qui va te permettre d'enregistrer tes données depuis vb :
adodc.recordset.addnew()
adodc.recordset!Code=txtCode.text
adodc.recordset!Nom=txtNom.text
..........................
.......................
adodc.recordet.movenext
tu fais un double clic sur le bouton enregistrer pour taper le code qui va te permettre d'enregistrer tes données depuis vb :
adodc.recordset.addnew()
adodc.recordset!Code=txtCode.text
adodc.recordset!Nom=txtNom.text
..........................
.......................
adodc.recordet.movenext
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.
-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.
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
WhiteFang
Messages postés
2056
Date d'inscription
dimanche 1 septembre 2002
Statut
Membre
Dernière intervention
15 février 2008
204
1 mars 2003 à 22:08
1 mars 2003 à 22:08
;-))
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
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
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.
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.
fahed1
Messages postés
2
Date d'inscription
vendredi 11 juillet 2008
Statut
Membre
Dernière intervention
11 juillet 2008
11 juil. 2008 à 10:46
11 juil. 2008 à 10:46
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?
jjamall
Messages postés
19
Date d'inscription
dimanche 22 mars 2009
Statut
Membre
Dernière intervention
26 novembre 2012
9
23 mars 2009 à 16:30
23 mars 2009 à 16:30
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 ...
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 ...
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
par essaouiqui
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
par essaouiqui
amazzan
Messages postés
4
Date d'inscription
jeudi 7 mai 2009
Statut
Membre
Dernière intervention
19 août 2009
7 mai 2009 à 16:37
7 mai 2009 à 16:37
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.
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.
aloulo2
Messages postés
28
Date d'inscription
mercredi 3 février 2010
Statut
Membre
Dernière intervention
7 mai 2010
4 févr. 2010 à 12:43
4 févr. 2010 à 12:43
Comment établire une connection entre VB6.0 et une Base de données Access?
contacter moi au mounem2010@yahoo.fr
contacter moi au mounem2010@yahoo.fr
