Langage Visual basic de Microsoft

Résolu/Fermé

begnounou Messages postés 12 Date d'inscription dimanche 14 mai 2006 Statut Membre Dernière intervention 9 juin 2008 - 1 janv. 2008 à 16:37
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 - 27 mars 2008 à 14:51

Bonjour,
frmCategories -1 (Nom de la feuille)

Dim dsbCurrent As Database
Dim recCategories As Recordset

Private Sub Form_Load ()
frmCategories.Show
Set dbsCurrent = DBEngine.OpenDatabase (""C:\Document sand Settings\Administrateur\Mes documents\Bekile.mdb")
Set recCategories = dbsCurrent.Openrecordset ("Catégories",dbOpendynaset,dbReadOnly)
recCategries.MoveFirst
Fiellfield
End Sub

Sub Fillfield ()
lblCategorieID.Capton = recCategories.Fields ("code catégorie")
txtNomcat.text = reccategories.Fields ("Nom de catégorie")
txtDesc.text = reccatégories.Fields("Description"
End Sub

Problème:- message d'erreur "type incompatible" correspondant à la ligne de commande "Set reccatégories =.........."
- Le débogueur indique" Set recCategories = Nothing"
- quand je place un point d'arrêt à la ligne de commande "Set dbsCurrent = ....." et que je lance l'application,
le débogueur indique "Set dbsCurrent = Nothing"
Notes : Base de données (Bekile.mdb) au format Accès 2003,identique au format sur lequel je travaille
je suis un débutant AIDEZ-MOI

A voir également:

Langage Visual basic de Microsoft
Microsoft office - Guide
Cette technique secrète permet d'avoir Windows et Microsoft Office gratuitement et à vie - Accueil - Bureautique
Microsoft money - Télécharger - Comptabilité & Facturation
Microsoft 365 basic - Accueil - Microsoft Office
Microsoft visual c++ runtime - Guide

3 réponses

Réponse 1 / 3

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
1 janv. 2008 à 19:15

Bonjour,

Tu dois passer une requête du type : "Select * from Catégories"

Set recCategories = dbsCurrent.Openrecordset ("Select * from Catégories",dbOpendynaset,dbReadOnly)

;o)

Polux

bekil
4 janv. 2008 à 20:10

Bonjour Polux31,
je voudrais d'abord te remercier pour m'avoir répondu.
j'ai essayé de passer une requête sql du même type "Select * From Catégories" mais le résultat est le même

Réponse 2 / 3

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
5 janv. 2008 à 08:38

bonjour,

Tu developpes avec Access ou tu te connectes sur une base Access ?

begnounou Messages postés 12 Date d'inscription dimanche 14 mai 2006 Statut Membre Dernière intervention 9 juin 2008
27 mars 2008 à 14:27

je me connecte sur la base de données access 2003

Réponse 3 / 3

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
27 mars 2008 à 14:51

Salut,

Tu développes en VB6 je suppose ou en VBA.

Ton code est bourré de fautes de frappes ... je viens de faire un test avec ça chez moi ... ça fonctionne :

Option Explicit

Dim dbsCurrent As Database
Dim recCategories As Recordset

Private Sub Form_Load()
'frmCategories.Show
    Set dbsCurrent = DBEngine.OpenDatabase("C:\Documents and Settings\Polux\Mes documents\bd3.mdb")
    Set recCategories = dbsCurrent.Openrecordset("Table1", dbOpendynaset, dbReadOnly)
    recCategories.MoveFirst
    Fillfield
End Sub

Sub Fillfield()
    lblCategorieID.Caption = recCategories.Fields("id")
    txtNomcat.Text = recCategories.Fields("nom")
    txtDesc.Text = recCategories.Fields("prenom")
End Sub

A toi de transposer ça pour ton prog. N'oublie pas de cocher dans Projet -> Références -> Microsoft DAO 3.6 Object Library

;o)

polux

Discussions similaires

Microsoft Visual C++ ? C'est quoi ?

Site de confiance ou non ?