Base de donnée
cs_seb41
Messages postés
58
Date d'inscription
jeudi 16 janvier 2003
Statut
Membre
Dernière intervention
27 juillet 2004
-
28 juin 2004 à 09:29
cs_ITALIA Messages postés 2169 Date d'inscription vendredi 20 avril 2001 Statut Membre Dernière intervention 30 juin 2009 - 28 juin 2004 à 09:58
cs_ITALIA Messages postés 2169 Date d'inscription vendredi 20 avril 2001 Statut Membre Dernière intervention 30 juin 2009 - 28 juin 2004 à 09:58
2 réponses
cs_ITALIA
Messages postés
2169
Date d'inscription
vendredi 20 avril 2001
Statut
Membre
Dernière intervention
30 juin 2009
9
28 juin 2004 à 09:54
28 juin 2004 à 09:54
il y a deux grande methodes ( que l'on m'arretes si je me trompe ) le DAO et ADO l'une plus récente que l'autre et soit disant un peu plus rapide !!
j'utilise personnellement la DAO ( la plus ancienne )
pour cela il faut d'abord cocher dans Projet ...Références la case Microsoft DAO 3.51 Object Library ...ensuite dans ton code :
' Tu Indiques ou elle se trouve ex : "C:\MaBase.mdb"
Set db = OpenDatabase(AdresseBase)
' Tu construis ta Requéte
Rq = "SELECT Nom FROM TaTable "
' Tu l'Execute
Set Exec= db.OpenRecordset(Rq)
If Exec.RecordCount <> 0 Then ' Si des Enregistrement sont selectionné
Do Until Exec.EOF 'Je l'ai parcours tous
Combo1.AddItem Exec("Nom") ' La je les ajoute dans un Combo
Exec.MoveNext
Loop
End If
Set Exec= Nothing ' Je ferme tous
Set db = Nothing
It@li@
j'utilise personnellement la DAO ( la plus ancienne )
pour cela il faut d'abord cocher dans Projet ...Références la case Microsoft DAO 3.51 Object Library ...ensuite dans ton code :
' Tu Indiques ou elle se trouve ex : "C:\MaBase.mdb"
Set db = OpenDatabase(AdresseBase)
' Tu construis ta Requéte
Rq = "SELECT Nom FROM TaTable "
' Tu l'Execute
Set Exec= db.OpenRecordset(Rq)
If Exec.RecordCount <> 0 Then ' Si des Enregistrement sont selectionné
Do Until Exec.EOF 'Je l'ai parcours tous
Combo1.AddItem Exec("Nom") ' La je les ajoute dans un Combo
Exec.MoveNext
Loop
End If
Set Exec= Nothing ' Je ferme tous
Set db = Nothing
It@li@
cs_ITALIA
Messages postés
2169
Date d'inscription
vendredi 20 avril 2001
Statut
Membre
Dernière intervention
30 juin 2009
9
28 juin 2004 à 09:58
28 juin 2004 à 09:58
Pour ajouter des lignes il faut faire
Rq = "SELECT * FROM TaTable "
Set Exec= db.OpenRecordset(Rq)
Exec.addnew
Exec("Nom") ="ITALIA"
Exec.update
Set Exec= Nothing ' Je ferme tous
Set db = Nothing
...
Pour Modifier
Rq "SELECT * FROM TaTable where Nom '" ITALIA "'"
Set Exec= db.OpenRecordset(Rq)
if Exec.recordcount<>0 then
Exec.edit
Exec("Nom") ="ITALIAAAAAA"
Exec.update
Set Exec= Nothing ' Je ferme tous
Set db = Nothing
si t'as des souci je peux t'aider @++
It@li@
Rq = "SELECT * FROM TaTable "
Set Exec= db.OpenRecordset(Rq)
Exec.addnew
Exec("Nom") ="ITALIA"
Exec.update
Set Exec= Nothing ' Je ferme tous
Set db = Nothing
...
Pour Modifier
Rq "SELECT * FROM TaTable where Nom '" ITALIA "'"
Set Exec= db.OpenRecordset(Rq)
if Exec.recordcount<>0 then
Exec.edit
Exec("Nom") ="ITALIAAAAAA"
Exec.update
Set Exec= Nothing ' Je ferme tous
Set db = Nothing
si t'as des souci je peux t'aider @++
It@li@
