Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Sujet : base de donnée access [ Archives Visual Basic / Bases de données ] (GhnombX)

mercredi 20 novembre 2002 à 17:03:53 | base de donnée access

GhnombX

SAlut, je débute en base de données access, dabord, jutilise "Microsoft Ado Data Control 6.0"

jai un code style :

Dim BD As Connection
Dim rsEtudiants As Recordset

Set BD = New ADODB.Connection
BD.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=bd1.mdb"


Set rsEtudiants = New ADODB.Recordset
Dim Rq As String
rsEtudiants.CursorLocation = adUseClient
Rq = "Select * from Etudiants2002_2003" ' order by now asc"
rsEtudiants.Open Rq, BD, adOpenDynamic, adLockOptimistic


Set Label1.DataSource = rsEtudiants
Label1.DataField = "Prénom"


'MsgBox rsEtudiants.GetString(adClipString, 1, ";", ";", "")

'rsEtudiants.AddNew "Prénom", "éric"
End Sub


je voulai savoir comment faire pour la méthode "AddNew", pour modifier tous les champs...

mais surtout jaurai aimer avoir une méthode d'acces a un champ en particulier, paske GetString ça renvoie toute la ligne.
comment faire un truc du genre:

dim s as string

s = rsEtudiants->prénom
'(en php)
qui récupererai directement une valeur donnée...

sinon, si vous avez des meilleurs codes que celui ci dessu pour ouvrir la base etc...dites le moi.

GhnombX

jeudi 21 novembre 2002 à 08:50:13 | Re : base de donnée access

miate

La methode AddNew Ajoute une nouvelle entrée dans ton recordset elle doit etre suivie de la methode Update pour que ca prenne effet.

la methode Update te permet aussi de modifier l'entrée sélectionnée dans ton recordset

pour obtenir la valeur d'un champ particulier
si je reprends ton exemple ca donne ceci

Dim s as String

s = rsEtudiants!Prénom
ou s = rsEtudiants.Fields(XX).value
''''''''''XX N° du champ ca commence à 0

tu inverse pour une modification

rsEtudiants!Prénom= s
rsEtudiants.Update

j'espere avoir repondu à ta demande.
-------------------------------
Réponse au message :
-------------------------------

SAlut, je débute en base de données access, dabord, jutilise "Microsoft Ado Data Control 6.0"

jai un code style :

Dim BD As Connection
Dim rsEtudiants As Recordset

Set BD = New ADODB.Connection
BD.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=bd1.mdb"


Set rsEtudiants = New ADODB.Recordset
Dim Rq As String
rsEtudiants.CursorLocation = adUseClient
Rq = "Select * from Etudiants2002_2003" ' order by now asc"
rsEtudiants.Open Rq, BD, adOpenDynamic, adLockOptimistic


Set Label1.DataSource = rsEtudiants
Label1.DataField = "Prénom"


'MsgBox rsEtudiants.GetString(adClipString, 1, ";", ";", "")

'rsEtudiants.AddNew "Prénom", "éric"
End Sub


je voulai savoir comment faire pour la méthode "AddNew", pour modifier tous les champs...

mais surtout jaurai aimer avoir une méthode d'acces a un champ en particulier, paske GetString ça renvoie toute la ligne.
comment faire un truc du genre:

dim s as string

s = rsEtudiants->prénom
'(en php)
qui récupererai directement une valeur donnée...

sinon, si vous avez des meilleurs codes que celui ci dessu pour ouvrir la base etc...dites le moi.

GhnombX


jeudi 21 novembre 2002 à 12:46:17 | Re : base de donnée access

GhnombX


ouais ça maide carément! merci bien!

sinon jai encore qq ptites kestions:

comment ajouter un nouvel enregistrement en une seule fois (autrement ke faire rsEtudiant!Nom = "toto" puis rsEtudiant!PréNom = "tutu", etc...) ?

et une dernière:

Rq = "Select * from Vidéos"
rsVidéo.Open Rq, BD, adOpenDynamic, adLockOptimistic

=> la variable rsVidéo contient la liste des enregistrement ki corespondent à la requète c bien ça ?
=> kels genre de requete on peu faire sinon (genre "Select * from Vidéos where Nom=Vidéo1" à la MySql)
=> et enfin, il fau la fermer à chaque fois ?
rsVidéos.Close


merci!

GhnombX



-------------------------------
Réponse au message :
-------------------------------

La methode AddNew Ajoute une nouvelle entrée dans ton recordset elle doit etre suivie de la methode Update pour que ca prenne effet.

la methode Update te permet aussi de modifier l'entrée sélectionnée dans ton recordset

pour obtenir la valeur d'un champ particulier
si je reprends ton exemple ca donne ceci

Dim s as String

s = rsEtudiants!Prénom
ou s = rsEtudiants.Fields(XX).value
''''''''''XX N° du champ ca commence à 0

tu inverse pour une modification

rsEtudiants!Prénom= s
rsEtudiants.Update

j'espere avoir repondu à ta demande.
-------------------------------
Réponse au message :
-------------------------------

SAlut, je débute en base de données access, dabord, jutilise "Microsoft Ado Data Control 6.0"

jai un code style :

Dim BD As Connection
Dim rsEtudiants As Recordset

Set BD = New ADODB.Connection
BD.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=bd1.mdb"


Set rsEtudiants = New ADODB.Recordset
Dim Rq As String
rsEtudiants.CursorLocation = adUseClient
Rq = "Select * from Etudiants2002_2003" ' order by now asc"
rsEtudiants.Open Rq, BD, adOpenDynamic, adLockOptimistic


Set Label1.DataSource = rsEtudiants
Label1.DataField = "Prénom"


'MsgBox rsEtudiants.GetString(adClipString, 1, ";", ";", "")

'rsEtudiants.AddNew "Prénom", "éric"
End Sub


je voulai savoir comment faire pour la méthode "AddNew", pour modifier tous les champs...

mais surtout jaurai aimer avoir une méthode d'acces a un champ en particulier, paske GetString ça renvoie toute la ligne.
comment faire un truc du genre:

dim s as string

s = rsEtudiants->prénom
'(en php)
qui récupererai directement une valeur donnée...

sinon, si vous avez des meilleurs codes que celui ci dessu pour ouvrir la base etc...dites le moi.

GhnombX



jeudi 21 novembre 2002 à 13:45:53 | Re : base de donnée access

BasicInstinct

Membre Club
l'enregistrement se fais lors de
rsEtudiants.Update

donc avant tu fais

rsEtudiants!Prénom= s
rsEtudiants.Nom=...
rsEtudiants!Adresse=..
.....
rsEtudiants.Update


avec ton recordset tu peux faire tout type de requete:
select, insert ....
avec jointures, comptage...

-------------------------------
Réponse au message :
-------------------------------


ouais ça maide carément! merci bien!

sinon jai encore qq ptites kestions:

comment ajouter un nouvel enregistrement en une seule fois (autrement ke faire rsEtudiant!Nom = "toto" puis rsEtudiant!PréNom = "tutu", etc...) ?

et une dernière:

Rq = "Select * from Vidéos"
rsVidéo.Open Rq, BD, adOpenDynamic, adLockOptimistic

=> la variable rsVidéo contient la liste des enregistrement ki corespondent à la requète c bien ça ?
=> kels genre de requete on peu faire sinon (genre "Select * from Vidéos where Nom=Vidéo1" à la MySql)
=> et enfin, il fau la fermer à chaque fois ?
rsVidéos.Close


merci!

GhnombX



-------------------------------
Réponse au message :
-------------------------------

La methode AddNew Ajoute une nouvelle entrée dans ton recordset elle doit etre suivie de la methode Update pour que ca prenne effet.

la methode Update te permet aussi de modifier l'entrée sélectionnée dans ton recordset

pour obtenir la valeur d'un champ particulier
si je reprends ton exemple ca donne ceci

Dim s as String

s = rsEtudiants!Prénom
ou s = rsEtudiants.Fields(XX).value
''''''''''XX N° du champ ca commence à 0

tu inverse pour une modification

rsEtudiants!Prénom= s
rsEtudiants.Update

j'espere avoir repondu à ta demande.
-------------------------------
Réponse au message :
-------------------------------

SAlut, je débute en base de données access, dabord, jutilise "Microsoft Ado Data Control 6.0"

jai un code style :

Dim BD As Connection
Dim rsEtudiants As Recordset

Set BD = New ADODB.Connection
BD.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=bd1.mdb"


Set rsEtudiants = New ADODB.Recordset
Dim Rq As String
rsEtudiants.CursorLocation = adUseClient
Rq = "Select * from Etudiants2002_2003" ' order by now asc"
rsEtudiants.Open Rq, BD, adOpenDynamic, adLockOptimistic


Set Label1.DataSource = rsEtudiants
Label1.DataField = "Prénom"


'MsgBox rsEtudiants.GetString(adClipString, 1, ";", ";", "")

'rsEtudiants.AddNew "Prénom", "éric"
End Sub


je voulai savoir comment faire pour la méthode "AddNew", pour modifier tous les champs...

mais surtout jaurai aimer avoir une méthode d'acces a un champ en particulier, paske GetString ça renvoie toute la ligne.
comment faire un truc du genre:

dim s as string

s = rsEtudiants->prénom
'(en php)
qui récupererai directement une valeur donnée...

sinon, si vous avez des meilleurs codes que celui ci dessu pour ouvrir la base etc...dites le moi.

GhnombX




vendredi 22 novembre 2002 à 09:01:56 | Re : base de donnée access

miate

1) si sur un formulaire tu lies tes champs de table à des contrôles grâce à la propriété datafield il te suffira juste d'appeler les methodes AddNew et Move. Il te faudra aussi verifier la propriété EditMode de ton recordset. Essaie ce code sur l'evenement click d'un bouton "Ajouter".

rsEtudiants.AddNew

A l'appel de l'evenement Click d'un bouton "Enregistrer"

If rsEtudiant.EditMode<>0
rsEtudiants.Move 0
End If

Astuce la methode Move XX d'un objet recordset apelle automatiquement la methode update.
ce petit code te permets aussi bien de modifier que d'ajouter des enregistrements, grâce à la propriéte EditMode :
0 adEditNone
1 adEditInProgress 'Modification
2 adEditAdd 'Ajout
3 adEditDelete 'Suppression

Faut-il encore que tes champs soient liés à des contrôles par la propriété Datafield ex:

Text1.Datafield = rsEtudiant.Fields(0).Name

2) Oui rsVideo contient tous les enregistrements correspondant à un critére (ou non). Si la requête renvoie des données il se positionne automatiquement sur le premier enregistrement, sinon il renvoi la valeur EOF tu peux intercepter cette valeur par la propritéte EOF (True-False)

3) tu peux faire tous les genres de requête impossible inimaginable permise par SQL.
Select, Insert,Insert Into,Update,Delete.

4) Tu refermes le recordset par la mehtode Close dés que tu n'en a plus besoin. Ca libére la mémoire pour autre chose.

Voila en espérant que ca te serve.


-------------------------------
Réponse au message :
-------------------------------


ouais ça maide carément! merci bien!

sinon jai encore qq ptites kestions:

comment ajouter un nouvel enregistrement en une seule fois (autrement ke faire rsEtudiant!Nom = "toto" puis rsEtudiant!PréNom = "tutu", etc...) ?

et une dernière:

Rq = "Select * from Vidéos"
rsVidéo.Open Rq, BD, adOpenDynamic, adLockOptimistic

=> la variable rsVidéo contient la liste des enregistrement ki corespondent à la requète c bien ça ?
=> kels genre de requete on peu faire sinon (genre "Select * from Vidéos where Nom=Vidéo1" à la MySql)
=> et enfin, il fau la fermer à chaque fois ?
rsVidéos.Close


merci!

GhnombX



-------------------------------
Réponse au message :
-------------------------------

La methode AddNew Ajoute une nouvelle entrée dans ton recordset elle doit etre suivie de la methode Update pour que ca prenne effet.

la methode Update te permet aussi de modifier l'entrée sélectionnée dans ton recordset

pour obtenir la valeur d'un champ particulier
si je reprends ton exemple ca donne ceci

Dim s as String

s = rsEtudiants!Prénom
ou s = rsEtudiants.Fields(XX).value
''''''''''XX N° du champ ca commence à 0

tu inverse pour une modification

rsEtudiants!Prénom= s
rsEtudiants.Update

j'espere avoir repondu à ta demande.
-------------------------------
Réponse au message :
-------------------------------

SAlut, je débute en base de données access, dabord, jutilise "Microsoft Ado Data Control 6.0"

jai un code style :

Dim BD As Connection
Dim rsEtudiants As Recordset

Set BD = New ADODB.Connection
BD.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=bd1.mdb"


Set rsEtudiants = New ADODB.Recordset
Dim Rq As String
rsEtudiants.CursorLocation = adUseClient
Rq = "Select * from Etudiants2002_2003" ' order by now asc"
rsEtudiants.Open Rq, BD, adOpenDynamic, adLockOptimistic


Set Label1.DataSource = rsEtudiants
Label1.DataField = "Prénom"


'MsgBox rsEtudiants.GetString(adClipString, 1, ";", ";", "")

'rsEtudiants.AddNew "Prénom", "éric"
End Sub


je voulai savoir comment faire pour la méthode "AddNew", pour modifier tous les champs...

mais surtout jaurai aimer avoir une méthode d'acces a un champ en particulier, paske GetString ça renvoie toute la ligne.
comment faire un truc du genre:

dim s as string

s = rsEtudiants->prénom
'(en php)
qui récupererai directement une valeur donnée...

sinon, si vous avez des meilleurs codes que celui ci dessu pour ouvrir la base etc...dites le moi.

GhnombX




vendredi 22 novembre 2002 à 09:03:12 | Re : base de donnée access

miate

1) si sur un formulaire tu lies tes champs de table à des contrôles grâce à la propriété datafield il te suffira juste d'appeler les methodes AddNew et Move. Il te faudra aussi verifier la propriété EditMode de ton recordset. Essaie ce code sur l'evenement click d'un bouton "Ajouter".

rsEtudiants.AddNew

A l'appel de l'evenement Click d'un bouton "Enregistrer"

If rsEtudiant.EditMode<>0
rsEtudiants.Move 0
End If

Astuce la methode Move XX d'un objet recordset apelle automatiquement la methode update.
ce petit code te permets aussi bien de modifier que d'ajouter des enregistrements, grâce à la propriéte EditMode :
0 adEditNone
1 adEditInProgress 'Modification
2 adEditAdd 'Ajout
3 adEditDelete 'Suppression

Faut-il encore que tes champs soient liés à des contrôles par la propriété Datafield ex:

Text1.Datafield = rsEtudiant.Fields(0).Name

2) Oui rsVideo contient tous les enregistrements correspondant à un critére (ou non). Si la requête renvoie des données il se positionne automatiquement sur le premier enregistrement, sinon il renvoi la valeur EOF tu peux intercepter cette valeur par la propritéte EOF (True-False)

3) tu peux faire tous les genres de requête impossible inimaginable permise par SQL.
Select, Insert,Insert Into,Update,Delete.

4) Tu refermes le recordset par la mehtode Close dés que tu n'en a plus besoin. Ca libére la mémoire pour autre chose.

Voila en espérant que ca te serve.


-------------------------------
Réponse au message :
-------------------------------


ouais ça maide carément! merci bien!

sinon jai encore qq ptites kestions:

comment ajouter un nouvel enregistrement en une seule fois (autrement ke faire rsEtudiant!Nom = "toto" puis rsEtudiant!PréNom = "tutu", etc...) ?

et une dernière:

Rq = "Select * from Vidéos"
rsVidéo.Open Rq, BD, adOpenDynamic, adLockOptimistic

=> la variable rsVidéo contient la liste des enregistrement ki corespondent à la requète c bien ça ?
=> kels genre de requete on peu faire sinon (genre "Select * from Vidéos where Nom=Vidéo1" à la MySql)
=> et enfin, il fau la fermer à chaque fois ?
rsVidéos.Close


merci!

GhnombX



-------------------------------
Réponse au message :
-------------------------------

La methode AddNew Ajoute une nouvelle entrée dans ton recordset elle doit etre suivie de la methode Update pour que ca prenne effet.

la methode Update te permet aussi de modifier l'entrée sélectionnée dans ton recordset

pour obtenir la valeur d'un champ particulier
si je reprends ton exemple ca donne ceci

Dim s as String

s = rsEtudiants!Prénom
ou s = rsEtudiants.Fields(XX).value
''''''''''XX N° du champ ca commence à 0

tu inverse pour une modification

rsEtudiants!Prénom= s
rsEtudiants.Update

j'espere avoir repondu à ta demande.
-------------------------------
Réponse au message :
-------------------------------

SAlut, je débute en base de données access, dabord, jutilise "Microsoft Ado Data Control 6.0"

jai un code style :

Dim BD As Connection
Dim rsEtudiants As Recordset

Set BD = New ADODB.Connection
BD.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=bd1.mdb"


Set rsEtudiants = New ADODB.Recordset
Dim Rq As String
rsEtudiants.CursorLocation = adUseClient
Rq = "Select * from Etudiants2002_2003" ' order by now asc"
rsEtudiants.Open Rq, BD, adOpenDynamic, adLockOptimistic


Set Label1.DataSource = rsEtudiants
Label1.DataField = "Prénom"


'MsgBox rsEtudiants.GetString(adClipString, 1, ";", ";", "")

'rsEtudiants.AddNew "Prénom", "éric"
End Sub


je voulai savoir comment faire pour la méthode "AddNew", pour modifier tous les champs...

mais surtout jaurai aimer avoir une méthode d'acces a un champ en particulier, paske GetString ça renvoie toute la ligne.
comment faire un truc du genre:

dim s as string

s = rsEtudiants->prénom
'(en php)
qui récupererai directement une valeur donnée...

sinon, si vous avez des meilleurs codes que celui ci dessu pour ouvrir la base etc...dites le moi.

GhnombX






Cette discussion est classé dans : access, base, bd, donnée, rsetudiants


Répondre à ce message

Sujets en rapport avec ce message

créer un BD sous access [ par pik ] Je suis en train de développer un module de sauvegarde pour une base de donnée et je cherche le moyen de créer une autre base de donnée pour stocker l conexion a une base de donnée access [ par bousfiha ] bonjour et merci de lire ma question: je voudrais savoir comment me connecter à une bd accessen utilisant des variables database en spécifiant le doss connection à une bd access avec vb 2008 [ par mavros2008 ] slut j'ai un pb je n'arrive  pas à me connecter à ma base creé dans access avec  en passant par le formulaire créer dans vb2008je cherche  à lire les creer une base de donnée access depuis VB.NET [ par sarapotter987 ] Bonjour à tous, voila j'ai un probleme et ca m'obsede , bon je voudrai créer une base de donnée access avec un code VB.NET mais j'y arrive pas donc si Enregistrement d'une image au base de donnée Access [ par fdaly007 ] Salut à tousmon probleme est que je veut enregistrer une image à la base de donnée access.j'ai effectuer la chargement de l'image mais l'enregistremen COMPACTAGE BD ACCESS [ par multipac ] Bonjour,Y a t-il quelqu'un qui peut m'aider comment compacter une base de données ACCESS en VB6.Sachant que j'utilise une base volumineuse, et j'ai be Access [ par antoineraymond ] J'ai créé un projet ADP pour me connecté à ma base de donnée SQL. Je voulais savoir si il y a un moyen pour récupérer dynamiquement le nom des "formul accder à une base de donnée access securiséé avec ADO [ par lemrabott ] Bonjour je cherche à savoir comment accder à une base de donnée access securiséé avec ADO merci Base de donnée .MDB distante [ par spejosse ] Bonjour tt le monde! Est ce que quelqu'un sait si on peut modifier une base de donnée Access .mdb en multi utilisateur par le net ? Je dois faire un base de donnée ????? [ par jbbordas87 ] bonjours a tous, j'ai besoin d'un petit renseignement: mon future programms doit etre capable de lire, ecrire, et verifier un base de donner access. M


Nos sponsors

Sondage...

CalendriCode

Décembre 2008
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode



Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,218 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.