ACCÉS À BASE DE DONNÉE SANS CONTROLS (ADO, ADOC...)
cs_zappy
Messages postés161Date d'inscriptionmardi 19 juin 2001StatutMembreDernière intervention10 avril 2007
-
7 mai 2002 à 13:51
hisham91
Messages postés57Date d'inscriptionlundi 26 avril 2004StatutMembreDernière intervention23 janvier 2013
-
25 mai 2004 à 16:03
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
hisham91
Messages postés57Date d'inscriptionlundi 26 avril 2004StatutMembreDernière intervention23 janvier 2013 25 mai 2004 à 16:03
Code avec la référence DAO (3.5 si version access < à 2000 sinon 3.6)
Private Workspace As Workspace
Private Database As Database
Private dbMaTable As RecordSet
----------------------------------------
Private Sub Form_Load()
'Création d'un accès à une base de donnée
Set dbWorkspace = DBEngine.Workspaces(0)
Set dbDatabase = dbWorkspace.OpenDatabase(App.Path & "\mabasededonnee.mdb")
Set dbMaTable = dbDatabase.OpenRecordset("nom_de_ma_table", dbOpenTable)
End Sub
kscm
Messages postés8Date d'inscriptionmercredi 2 avril 2003StatutMembreDernière intervention23 décembre 2003 10 mai 2003 à 18:14
Je viens d'utiliser ton code, pour mon programme mais je n'arrive pas à faire une moveprevious ?
Merci de ton aide
cs_Zacland
Messages postés35Date d'inscriptionmercredi 1 janvier 2003StatutMembreDernière intervention15 mai 2007 26 févr. 2003 à 11:21
Ca serait bien de fermer les objet en sortant... ça évitera de perdre de la mémoire :o)
luzt
Messages postés1Date d'inscriptionlundi 30 décembre 2002StatutMembreDernière intervention30 décembre 2002 30 déc. 2002 à 14:36
Bon code pour débutant, et bien expliqué
cs_processus
Messages postés360Date d'inscriptionvendredi 24 août 2001StatutMembreDernière intervention 9 juillet 20083 24 mai 2002 à 12:11
gosney à presque raison (sauf qu'ici c'est DAO qu'est utilisé et non pas ADO !), tu utilise quand même les références DAO, c'est à dire que tu instanci les composants DAO, ca revient au même...
cs_TetSuo
Messages postés14Date d'inscriptionlundi 17 décembre 2001StatutMembreDernière intervention30 juillet 2002 7 mai 2002 à 14:23
je n'utilise pas le controle a proprement parlé mais j'utilise le "vocabulaire" de géstion de base de donnée qui est obligatoire
cs_zappy
Messages postés161Date d'inscriptionmardi 19 juin 2001StatutMembreDernière intervention10 avril 20072 7 mai 2002 à 13:51
Dim resultat As Recordset
Ce n'est pas parce que tu ne vois pas le controle sur ta form qu'il n'est pas initialisé. Tu utilises bien l'ado en faisant cela, regardes les références à ton projet ;)
25 mai 2004 à 16:03
Private Workspace As Workspace
Private Database As Database
Private dbMaTable As RecordSet
----------------------------------------
Private Sub Form_Load()
'Création d'un accès à une base de donnée
Set dbWorkspace = DBEngine.Workspaces(0)
Set dbDatabase = dbWorkspace.OpenDatabase(App.Path & "\mabasededonnee.mdb")
Set dbMaTable = dbDatabase.OpenRecordset("nom_de_ma_table", dbOpenTable)
End Sub
10 mai 2003 à 18:14
Merci de ton aide
26 févr. 2003 à 11:21
30 déc. 2002 à 14:36
24 mai 2002 à 12:11
7 mai 2002 à 14:23
7 mai 2002 à 13:51
Ce n'est pas parce que tu ne vois pas le controle sur ta form qu'il n'est pas initialisé. Tu utilises bien l'ado en faisant cela, regardes les références à ton projet ;)