Bonsoir, je suis actuellement entrain de transformer un projet VBA réaliser
sous excel en une application totalement autonomme, mais je ne comprend pas
tellement le systeme de gestion de base de données SQL, Je voudrais créer une
base de données a 2 entrées (Code et designation), j'ai créer la boite de
dialogue mais je ne sais pas comment faire stocker mes données dans cette
base.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jean-Marc
"Julien" a écrit dans le message de news:
Bonsoir, je suis actuellement entrain de transformer un projet VBA
réaliser
sous excel en une application totalement autonomme, mais je ne
comprend pas
tellement le systeme de gestion de base de données SQL, Je voudrais
créer une
base de données a 2 entrées (Code et designation), j'ai créer la boite
de
dialogue mais je ne sais pas comment faire stocker mes données dans
cette
base.
Hello,
pour pouvoir te répondre au mieux, peux tu indiquer quelle version de VB tu utilises? Disposes tu d'Access pour créer ta base de données?
Les réponses à ces questions permettront de répondre avec plus de précision.
En attendant, un peu de vocabulaire:
Tu souhaites conc créer une *Base de Données* contenant une *Table* ("Articles" ?), avec 2 *Champs*: "Code" "Designation"
Tu as créé une boite de dialogue permettant de saisir la valeur de ces 2 champs mais tu ne sais pas comment stocker ces informations dans un nouvel *enregistrement* de ta *table*
Si tu disposes d'Access et de VB6, alors ce sera simple. Sinon, il faut voir ...
-- Jean-marc Tester mon serveur (VB6) => http://myjmnhome.dyndns.org "There are only 10 kind of people those who understand binary and those who don't." mailto: remove '_no_spam_' ;
"Julien" <Julien@discussions.microsoft.com> a écrit dans le message de
news:A0F9A7D8-BF75-48AB-9EB2-B8E8996E0C27@microsoft.com...
Bonsoir, je suis actuellement entrain de transformer un projet VBA
réaliser
sous excel en une application totalement autonomme, mais je ne
comprend pas
tellement le systeme de gestion de base de données SQL, Je voudrais
créer une
base de données a 2 entrées (Code et designation), j'ai créer la boite
de
dialogue mais je ne sais pas comment faire stocker mes données dans
cette
base.
Hello,
pour pouvoir te répondre au mieux, peux tu indiquer quelle
version de VB tu utilises?
Disposes tu d'Access pour créer ta base de données?
Les réponses à ces questions permettront de répondre avec
plus de précision.
En attendant, un peu de vocabulaire:
Tu souhaites conc créer une *Base de Données* contenant
une *Table* ("Articles" ?), avec 2 *Champs*:
"Code"
"Designation"
Tu as créé une boite de dialogue permettant de saisir la
valeur de ces 2 champs mais tu ne sais pas comment
stocker ces informations dans un nouvel *enregistrement*
de ta *table*
Si tu disposes d'Access et de VB6, alors ce sera simple.
Sinon, il faut voir ...
--
Jean-marc
Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
"There are only 10 kind of people
those who understand binary and those who don't."
mailto: remove '_no_spam_' ; _no_spam_jean_marc_n2@yahoo.fr
Bonsoir, je suis actuellement entrain de transformer un projet VBA
réaliser
sous excel en une application totalement autonomme, mais je ne
comprend pas
tellement le systeme de gestion de base de données SQL, Je voudrais
créer une
base de données a 2 entrées (Code et designation), j'ai créer la boite
de
dialogue mais je ne sais pas comment faire stocker mes données dans
cette
base.
Hello,
pour pouvoir te répondre au mieux, peux tu indiquer quelle version de VB tu utilises? Disposes tu d'Access pour créer ta base de données?
Les réponses à ces questions permettront de répondre avec plus de précision.
En attendant, un peu de vocabulaire:
Tu souhaites conc créer une *Base de Données* contenant une *Table* ("Articles" ?), avec 2 *Champs*: "Code" "Designation"
Tu as créé une boite de dialogue permettant de saisir la valeur de ces 2 champs mais tu ne sais pas comment stocker ces informations dans un nouvel *enregistrement* de ta *table*
Si tu disposes d'Access et de VB6, alors ce sera simple. Sinon, il faut voir ...
-- Jean-marc Tester mon serveur (VB6) => http://myjmnhome.dyndns.org "There are only 10 kind of people those who understand binary and those who don't." mailto: remove '_no_spam_' ;
Julien
> Hello,
pour pouvoir te répondre au mieux, peux tu indiquer quelle version de VB tu utilises? Disposes tu d'Access pour créer ta base de données?
Les réponses à ces questions permettront de répondre avec plus de précision.
En attendant, un peu de vocabulaire:
Tu souhaites conc créer une *Base de Données* contenant une *Table* ("Articles" ?), avec 2 *Champs*: "Code" "Designation"
Tu as créé une boite de dialogue permettant de saisir la valeur de ces 2 champs mais tu ne sais pas comment stocker ces informations dans un nouvel *enregistrement* de ta *table*
Si tu disposes d'Access et de VB6, alors ce sera simple. Sinon, il faut voir ...
-- Jean-marc Tester mon serveur (VB6) => http://myjmnhome.dyndns.org "There are only 10 kind of people those who understand binary and those who don't." mailto: remove '_no_spam_' ;
Je possede Visual Basic 2005 (je crois que c la version 8) j'ai bien acces mais je ne veux pas developper sous acces car je veux creer une "vraie" application.
Concernant ta traduction lol, c'est tout a faait ce que je voulais dire ! lol
> Hello,
pour pouvoir te répondre au mieux, peux tu indiquer quelle
version de VB tu utilises?
Disposes tu d'Access pour créer ta base de données?
Les réponses à ces questions permettront de répondre avec
plus de précision.
En attendant, un peu de vocabulaire:
Tu souhaites conc créer une *Base de Données* contenant
une *Table* ("Articles" ?), avec 2 *Champs*:
"Code"
"Designation"
Tu as créé une boite de dialogue permettant de saisir la
valeur de ces 2 champs mais tu ne sais pas comment
stocker ces informations dans un nouvel *enregistrement*
de ta *table*
Si tu disposes d'Access et de VB6, alors ce sera simple.
Sinon, il faut voir ...
--
Jean-marc
Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
"There are only 10 kind of people
those who understand binary and those who don't."
mailto: remove '_no_spam_' ; _no_spam_jean_marc_n2@yahoo.fr
Je possede Visual Basic 2005 (je crois que c la version 8) j'ai bien acces
mais je ne veux pas developper sous acces car je veux creer une "vraie"
application.
Concernant ta traduction lol, c'est tout a faait ce que je voulais dire ! lol
pour pouvoir te répondre au mieux, peux tu indiquer quelle version de VB tu utilises? Disposes tu d'Access pour créer ta base de données?
Les réponses à ces questions permettront de répondre avec plus de précision.
En attendant, un peu de vocabulaire:
Tu souhaites conc créer une *Base de Données* contenant une *Table* ("Articles" ?), avec 2 *Champs*: "Code" "Designation"
Tu as créé une boite de dialogue permettant de saisir la valeur de ces 2 champs mais tu ne sais pas comment stocker ces informations dans un nouvel *enregistrement* de ta *table*
Si tu disposes d'Access et de VB6, alors ce sera simple. Sinon, il faut voir ...
-- Jean-marc Tester mon serveur (VB6) => http://myjmnhome.dyndns.org "There are only 10 kind of people those who understand binary and those who don't." mailto: remove '_no_spam_' ;
Je possede Visual Basic 2005 (je crois que c la version 8) j'ai bien acces mais je ne veux pas developper sous acces car je veux creer une "vraie" application.
Concernant ta traduction lol, c'est tout a faait ce que je voulais dire ! lol
Jean-Marc
"Julien" a écrit dans le message de news:
> Hello, > > pour pouvoir te répondre au mieux, peux tu indiquer quelle > version de VB tu utilises? > Disposes tu d'Access pour créer ta base de données? > > Les réponses à ces questions permettront de répondre avec > plus de précision. > > En attendant, un peu de vocabulaire: > > Tu souhaites conc créer une *Base de Données* contenant > une *Table* ("Articles" ?), avec 2 *Champs*: > "Code" > "Designation" > > Tu as créé une boite de dialogue permettant de saisir la > valeur de ces 2 champs mais tu ne sais pas comment > stocker ces informations dans un nouvel *enregistrement* > de ta *table* > > Si tu disposes d'Access et de VB6, alors ce sera simple. > Sinon, il faut voir ... > > -- > Jean-marc > Tester mon serveur (VB6) => http://myjmnhome.dyndns.org > "There are only 10 kind of people > those who understand binary and those who don't." > mailto: remove '_no_spam_' ; > >
Je possede Visual Basic 2005 (je crois que c la version 8) j'ai bien
acces
mais je ne veux pas developper sous acces car je veux creer une
"vraie"
application.
Concernant ta traduction lol, c'est tout a faait ce que je voulais
dire ! lol
Hello, Alors comme tu utilises vb2005, le bon groupe de discussion pour toi est: microsoft.public.fr.dotnet.vb, qui est consacré aux application .Net.
Ce groupe ci est consacré à Visual Basic (.net).
J'ai bien compris que tu voulais une application autonome. Ceci n'exmpèche pas d'utiliser Access uniquement pour créer ta base de donnée et créer ta table (la structure). Ceci fait, ton programme manipulera la base de données ainsi créée et n'utilisera plus du tout Access.
Bonne prog!
-- Jean-marc Tester mon serveur (VB6) => http://myjmnhome.dyndns.org "There are only 10 kind of people those who understand binary and those who don't." mailto: remove '_no_spam_' ;
"Julien" <Julien@discussions.microsoft.com> a écrit dans le message de
news:E43F62D5-1B99-4CA4-85E1-3063227DEB9A@microsoft.com...
> Hello,
>
> pour pouvoir te répondre au mieux, peux tu indiquer quelle
> version de VB tu utilises?
> Disposes tu d'Access pour créer ta base de données?
>
> Les réponses à ces questions permettront de répondre avec
> plus de précision.
>
> En attendant, un peu de vocabulaire:
>
> Tu souhaites conc créer une *Base de Données* contenant
> une *Table* ("Articles" ?), avec 2 *Champs*:
> "Code"
> "Designation"
>
> Tu as créé une boite de dialogue permettant de saisir la
> valeur de ces 2 champs mais tu ne sais pas comment
> stocker ces informations dans un nouvel *enregistrement*
> de ta *table*
>
> Si tu disposes d'Access et de VB6, alors ce sera simple.
> Sinon, il faut voir ...
>
> --
> Jean-marc
> Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
> "There are only 10 kind of people
> those who understand binary and those who don't."
> mailto: remove '_no_spam_' ; _no_spam_jean_marc_n2@yahoo.fr
>
>
Je possede Visual Basic 2005 (je crois que c la version 8) j'ai bien
acces
mais je ne veux pas developper sous acces car je veux creer une
"vraie"
application.
Concernant ta traduction lol, c'est tout a faait ce que je voulais
dire ! lol
Hello,
Alors comme tu utilises vb2005, le bon groupe de discussion pour toi
est:
microsoft.public.fr.dotnet.vb, qui est consacré aux application .Net.
Ce groupe ci est consacré à Visual Basic (.net).
J'ai bien compris que tu voulais une application autonome. Ceci
n'exmpèche
pas d'utiliser Access uniquement pour créer ta base de donnée et créer
ta
table (la structure). Ceci fait, ton programme manipulera la base de
données
ainsi créée et n'utilisera plus du tout Access.
Bonne prog!
--
Jean-marc
Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
"There are only 10 kind of people
those who understand binary and those who don't."
mailto: remove '_no_spam_' ; _no_spam_jean_marc_n2@yahoo.fr
> Hello, > > pour pouvoir te répondre au mieux, peux tu indiquer quelle > version de VB tu utilises? > Disposes tu d'Access pour créer ta base de données? > > Les réponses à ces questions permettront de répondre avec > plus de précision. > > En attendant, un peu de vocabulaire: > > Tu souhaites conc créer une *Base de Données* contenant > une *Table* ("Articles" ?), avec 2 *Champs*: > "Code" > "Designation" > > Tu as créé une boite de dialogue permettant de saisir la > valeur de ces 2 champs mais tu ne sais pas comment > stocker ces informations dans un nouvel *enregistrement* > de ta *table* > > Si tu disposes d'Access et de VB6, alors ce sera simple. > Sinon, il faut voir ... > > -- > Jean-marc > Tester mon serveur (VB6) => http://myjmnhome.dyndns.org > "There are only 10 kind of people > those who understand binary and those who don't." > mailto: remove '_no_spam_' ; > >
Je possede Visual Basic 2005 (je crois que c la version 8) j'ai bien
acces
mais je ne veux pas developper sous acces car je veux creer une
"vraie"
application.
Concernant ta traduction lol, c'est tout a faait ce que je voulais
dire ! lol
Hello, Alors comme tu utilises vb2005, le bon groupe de discussion pour toi est: microsoft.public.fr.dotnet.vb, qui est consacré aux application .Net.
Ce groupe ci est consacré à Visual Basic (.net).
J'ai bien compris que tu voulais une application autonome. Ceci n'exmpèche pas d'utiliser Access uniquement pour créer ta base de donnée et créer ta table (la structure). Ceci fait, ton programme manipulera la base de données ainsi créée et n'utilisera plus du tout Access.
Bonne prog!
-- Jean-marc Tester mon serveur (VB6) => http://myjmnhome.dyndns.org "There are only 10 kind of people those who understand binary and those who don't." mailto: remove '_no_spam_' ;
Julien
bon ok je vais donc poster un nouveaau message dans la rubrique appropriée
merci quand meme
"Jean-Marc" a écrit :
"Julien" a écrit dans le message de news: > > > Hello, > > > > pour pouvoir te répondre au mieux, peux tu indiquer quelle > > version de VB tu utilises? > > Disposes tu d'Access pour créer ta base de données? > > > > Les réponses à ces questions permettront de répondre avec > > plus de précision. > > > > En attendant, un peu de vocabulaire: > > > > Tu souhaites conc créer une *Base de Données* contenant > > une *Table* ("Articles" ?), avec 2 *Champs*: > > "Code" > > "Designation" > > > > Tu as créé une boite de dialogue permettant de saisir la > > valeur de ces 2 champs mais tu ne sais pas comment > > stocker ces informations dans un nouvel *enregistrement* > > de ta *table* > > > > Si tu disposes d'Access et de VB6, alors ce sera simple. > > Sinon, il faut voir ... > > > > -- > > Jean-marc > > Tester mon serveur (VB6) => http://myjmnhome.dyndns.org > > "There are only 10 kind of people > > those who understand binary and those who don't." > > mailto: remove '_no_spam_' ; > > > > > > > Je possede Visual Basic 2005 (je crois que c la version 8) j'ai bien acces > mais je ne veux pas developper sous acces car je veux creer une "vraie" > application. > > Concernant ta traduction lol, c'est tout a faait ce que je voulais dire ! lol
Hello, Alors comme tu utilises vb2005, le bon groupe de discussion pour toi est: microsoft.public.fr.dotnet.vb, qui est consacré aux application .Net.
Ce groupe ci est consacré à Visual Basic (.net).
J'ai bien compris que tu voulais une application autonome. Ceci n'exmpèche pas d'utiliser Access uniquement pour créer ta base de donnée et créer ta table (la structure). Ceci fait, ton programme manipulera la base de données ainsi créée et n'utilisera plus du tout Access.
Bonne prog!
-- Jean-marc Tester mon serveur (VB6) => http://myjmnhome.dyndns.org "There are only 10 kind of people those who understand binary and those who don't." mailto: remove '_no_spam_' ;
bon ok je vais donc poster un nouveaau message dans la rubrique appropriée
merci quand meme
"Jean-Marc" a écrit :
"Julien" <Julien@discussions.microsoft.com> a écrit dans le message de
news:E43F62D5-1B99-4CA4-85E1-3063227DEB9A@microsoft.com...
>
> > Hello,
> >
> > pour pouvoir te répondre au mieux, peux tu indiquer quelle
> > version de VB tu utilises?
> > Disposes tu d'Access pour créer ta base de données?
> >
> > Les réponses à ces questions permettront de répondre avec
> > plus de précision.
> >
> > En attendant, un peu de vocabulaire:
> >
> > Tu souhaites conc créer une *Base de Données* contenant
> > une *Table* ("Articles" ?), avec 2 *Champs*:
> > "Code"
> > "Designation"
> >
> > Tu as créé une boite de dialogue permettant de saisir la
> > valeur de ces 2 champs mais tu ne sais pas comment
> > stocker ces informations dans un nouvel *enregistrement*
> > de ta *table*
> >
> > Si tu disposes d'Access et de VB6, alors ce sera simple.
> > Sinon, il faut voir ...
> >
> > --
> > Jean-marc
> > Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
> > "There are only 10 kind of people
> > those who understand binary and those who don't."
> > mailto: remove '_no_spam_' ; _no_spam_jean_marc_n2@yahoo.fr
> >
> >
>
>
> Je possede Visual Basic 2005 (je crois que c la version 8) j'ai bien
acces
> mais je ne veux pas developper sous acces car je veux creer une
"vraie"
> application.
>
> Concernant ta traduction lol, c'est tout a faait ce que je voulais
dire ! lol
Hello,
Alors comme tu utilises vb2005, le bon groupe de discussion pour toi
est:
microsoft.public.fr.dotnet.vb, qui est consacré aux application .Net.
Ce groupe ci est consacré à Visual Basic (.net).
J'ai bien compris que tu voulais une application autonome. Ceci
n'exmpèche
pas d'utiliser Access uniquement pour créer ta base de donnée et créer
ta
table (la structure). Ceci fait, ton programme manipulera la base de
données
ainsi créée et n'utilisera plus du tout Access.
Bonne prog!
--
Jean-marc
Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
"There are only 10 kind of people
those who understand binary and those who don't."
mailto: remove '_no_spam_' ; _no_spam_jean_marc_n2@yahoo.fr
bon ok je vais donc poster un nouveaau message dans la rubrique appropriée
merci quand meme
"Jean-Marc" a écrit :
"Julien" a écrit dans le message de news: > > > Hello, > > > > pour pouvoir te répondre au mieux, peux tu indiquer quelle > > version de VB tu utilises? > > Disposes tu d'Access pour créer ta base de données? > > > > Les réponses à ces questions permettront de répondre avec > > plus de précision. > > > > En attendant, un peu de vocabulaire: > > > > Tu souhaites conc créer une *Base de Données* contenant > > une *Table* ("Articles" ?), avec 2 *Champs*: > > "Code" > > "Designation" > > > > Tu as créé une boite de dialogue permettant de saisir la > > valeur de ces 2 champs mais tu ne sais pas comment > > stocker ces informations dans un nouvel *enregistrement* > > de ta *table* > > > > Si tu disposes d'Access et de VB6, alors ce sera simple. > > Sinon, il faut voir ... > > > > -- > > Jean-marc > > Tester mon serveur (VB6) => http://myjmnhome.dyndns.org > > "There are only 10 kind of people > > those who understand binary and those who don't." > > mailto: remove '_no_spam_' ; > > > > > > > Je possede Visual Basic 2005 (je crois que c la version 8) j'ai bien acces > mais je ne veux pas developper sous acces car je veux creer une "vraie" > application. > > Concernant ta traduction lol, c'est tout a faait ce que je voulais dire ! lol
Hello, Alors comme tu utilises vb2005, le bon groupe de discussion pour toi est: microsoft.public.fr.dotnet.vb, qui est consacré aux application .Net.
Ce groupe ci est consacré à Visual Basic (.net).
J'ai bien compris que tu voulais une application autonome. Ceci n'exmpèche pas d'utiliser Access uniquement pour créer ta base de donnée et créer ta table (la structure). Ceci fait, ton programme manipulera la base de données ainsi créée et n'utilisera plus du tout Access.
Bonne prog!
-- Jean-marc Tester mon serveur (VB6) => http://myjmnhome.dyndns.org "There are only 10 kind of people those who understand binary and those who don't." mailto: remove '_no_spam_' ;
Julien
salut jean marc, un ami ma preter sa version de visual basic 6, pourrai tu m'indiquer la procedure a suivre pour resoudre mon probleme avec acces ? merci par avance
salut jean marc, un ami ma preter sa version de visual basic 6, pourrai tu
m'indiquer la procedure a suivre pour resoudre mon probleme avec acces ?
merci par avance
salut jean marc, un ami ma preter sa version de visual basic 6, pourrai tu m'indiquer la procedure a suivre pour resoudre mon probleme avec acces ? merci par avance
Jean-Marc
"Julien" a écrit dans le message de news:
salut jean marc, un ami ma preter sa version de visual basic 6,
pourrai tu
m'indiquer la procedure a suivre pour resoudre mon probleme avec acces
?
merci par avance
Hello,
voici un mini exemple. J'utilise ici DAO car c'est le plus simple pour débuter (amha).
Il faut dabord créer ta base de données avec Access. Pour cet exemple, j'ai créé une base: mabase.mdb dans cette base une table: "Articles" Dans cette table 3 champs: id, de type AutoNumber, défini comme clé primaire Code, de type texte (50 caractères) Designation, de type texte (254 caractères)
Une fois ceci fait, créer un nouveau projet VB. Depuis le menu Projet/Références, ajouter une référence à Microsoft DAO 3.6 Object Library
puis sur la forme, placer 2 textbox (Text1 et Text2) et un bouton de commande (Command1)
puis copier le code suivant:
NOTE: Lire les commentaires pour faire les adaptations nécessaires (chemin de la BDD)
Option Explicit
'----------------------------------------------------------------------- ---------------- ' Procedure : Command1_Click ' DateTime : 30/12/2005 15:36 ' Author : Jean-Marc ' Purpose : Ajout d'un enregistrement dans la base de données. '----------------------------------------------------------------------- ---------------- ' Private Sub Command1_Click() Dim db As Database Dim rs As Recordset
On Error GoTo Command1_Click_Error
' ajuster ici pour mettre le bon nom et le bon chemin ' Ouverture de la base Set db = OpenDatabase("c:mabase.mdb") ' ouverture du recordset, ici la table Articles Set rs = db.OpenRecordset("Articles")
' on prepare un ajout (un nouvel enregistrement) rs.AddNew ' on met les valeurs dans les champs rs.Fields("Code") = Text1.Text rs.Fields("Designation") = Text2.Text ' et on met à jour le nouvel enregirstement rs.Update ' puis on ferme le recordset et la base rs.Close db.Close ' pour les puristes Set rs = Nothing Set db = Nothing ' en option bien sur MsgBox "Nouvel enregistrement créé.", vbInformation, "Ajout"
On Error GoTo 0 Exit Sub
Command1_Click_Error: MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Command1_Click of Feuille Form1" End Sub
et voila, ça marche.
Tu peux t'en assurer en ouvrant ta base dans Access, tu verras que les enregistrments se créent bien dans la base.
Ce n'est qu'un mini exemple, la lecture de la documentation est évidemment plus que nécessaire. Tu trouveras en Googlant un peu des dizaines de liens et de tutoriaux sur le sujet.
-- Jean-marc Tester mon serveur (VB6) => http://myjmnhome.dyndns.org "There are only 10 kind of people those who understand binary and those who don't." mailto: remove '_no_spam_' ;
"Julien" <Julien@discussions.microsoft.com> a écrit dans le message de
news:46958E52-B610-4E63-BFB4-07ECA5C5895D@microsoft.com...
salut jean marc, un ami ma preter sa version de visual basic 6,
pourrai tu
m'indiquer la procedure a suivre pour resoudre mon probleme avec acces
?
merci par avance
Hello,
voici un mini exemple. J'utilise ici DAO car c'est le plus simple
pour débuter (amha).
Il faut dabord créer ta base de données avec Access.
Pour cet exemple, j'ai créé une base: mabase.mdb
dans cette base une table: "Articles"
Dans cette table 3 champs:
id, de type AutoNumber, défini comme clé primaire
Code, de type texte (50 caractères)
Designation, de type texte (254 caractères)
Une fois ceci fait, créer un nouveau projet VB.
Depuis le menu Projet/Références, ajouter une référence à
Microsoft DAO 3.6 Object Library
puis sur la forme, placer 2 textbox (Text1 et Text2) et un bouton
de commande (Command1)
puis copier le code suivant:
NOTE: Lire les commentaires pour faire les adaptations nécessaires
(chemin de la BDD)
Option Explicit
'-----------------------------------------------------------------------
----------------
' Procedure : Command1_Click
' DateTime : 30/12/2005 15:36
' Author : Jean-Marc
' Purpose : Ajout d'un enregistrement dans la base de données.
'-----------------------------------------------------------------------
----------------
'
Private Sub Command1_Click()
Dim db As Database
Dim rs As Recordset
On Error GoTo Command1_Click_Error
' ajuster ici pour mettre le bon nom et le bon chemin
' Ouverture de la base
Set db = OpenDatabase("c:mabase.mdb")
' ouverture du recordset, ici la table Articles
Set rs = db.OpenRecordset("Articles")
' on prepare un ajout (un nouvel enregistrement)
rs.AddNew
' on met les valeurs dans les champs
rs.Fields("Code") = Text1.Text
rs.Fields("Designation") = Text2.Text
' et on met à jour le nouvel enregirstement
rs.Update
' puis on ferme le recordset et la base
rs.Close
db.Close
' pour les puristes
Set rs = Nothing
Set db = Nothing
' en option bien sur
MsgBox "Nouvel enregistrement créé.", vbInformation, "Ajout"
On Error GoTo 0
Exit Sub
Command1_Click_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in
procedure Command1_Click of Feuille Form1"
End Sub
et voila, ça marche.
Tu peux t'en assurer en ouvrant ta base dans Access,
tu verras que les enregistrments se créent bien dans la base.
Ce n'est qu'un mini exemple, la lecture de la documentation est
évidemment plus que
nécessaire.
Tu trouveras en Googlant un peu des dizaines de liens et de tutoriaux
sur le sujet.
--
Jean-marc
Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
"There are only 10 kind of people
those who understand binary and those who don't."
mailto: remove '_no_spam_' ; _no_spam_jean_marc_n2@yahoo.fr
salut jean marc, un ami ma preter sa version de visual basic 6,
pourrai tu
m'indiquer la procedure a suivre pour resoudre mon probleme avec acces
?
merci par avance
Hello,
voici un mini exemple. J'utilise ici DAO car c'est le plus simple pour débuter (amha).
Il faut dabord créer ta base de données avec Access. Pour cet exemple, j'ai créé une base: mabase.mdb dans cette base une table: "Articles" Dans cette table 3 champs: id, de type AutoNumber, défini comme clé primaire Code, de type texte (50 caractères) Designation, de type texte (254 caractères)
Une fois ceci fait, créer un nouveau projet VB. Depuis le menu Projet/Références, ajouter une référence à Microsoft DAO 3.6 Object Library
puis sur la forme, placer 2 textbox (Text1 et Text2) et un bouton de commande (Command1)
puis copier le code suivant:
NOTE: Lire les commentaires pour faire les adaptations nécessaires (chemin de la BDD)
Option Explicit
'----------------------------------------------------------------------- ---------------- ' Procedure : Command1_Click ' DateTime : 30/12/2005 15:36 ' Author : Jean-Marc ' Purpose : Ajout d'un enregistrement dans la base de données. '----------------------------------------------------------------------- ---------------- ' Private Sub Command1_Click() Dim db As Database Dim rs As Recordset
On Error GoTo Command1_Click_Error
' ajuster ici pour mettre le bon nom et le bon chemin ' Ouverture de la base Set db = OpenDatabase("c:mabase.mdb") ' ouverture du recordset, ici la table Articles Set rs = db.OpenRecordset("Articles")
' on prepare un ajout (un nouvel enregistrement) rs.AddNew ' on met les valeurs dans les champs rs.Fields("Code") = Text1.Text rs.Fields("Designation") = Text2.Text ' et on met à jour le nouvel enregirstement rs.Update ' puis on ferme le recordset et la base rs.Close db.Close ' pour les puristes Set rs = Nothing Set db = Nothing ' en option bien sur MsgBox "Nouvel enregistrement créé.", vbInformation, "Ajout"
On Error GoTo 0 Exit Sub
Command1_Click_Error: MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Command1_Click of Feuille Form1" End Sub
et voila, ça marche.
Tu peux t'en assurer en ouvrant ta base dans Access, tu verras que les enregistrments se créent bien dans la base.
Ce n'est qu'un mini exemple, la lecture de la documentation est évidemment plus que nécessaire. Tu trouveras en Googlant un peu des dizaines de liens et de tutoriaux sur le sujet.
-- Jean-marc Tester mon serveur (VB6) => http://myjmnhome.dyndns.org "There are only 10 kind of people those who understand binary and those who don't." mailto: remove '_no_spam_' ;