A voir également:
- Visual basic et base de données access
- Fuite données maif - Guide
- Visual basic - Télécharger - Langages
- Base de registre - Guide
- Visual basic editor - Télécharger - Langages
- Microsoft 365 basic - Accueil - Microsoft Office
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
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
;-))
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.
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?
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
