Langage Visual basic de Microsoft Résolu

Question

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

Polux31 · Answer

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

Polux31 · Answer

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

Polux31 · Answer

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

Langage Visual basic de Microsoft

3 réponses

Discussions similaires

Newsletters