1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. Visual Basic 6
Sujet Précédent Sujet Suivant

Probleme entre vb6 et access 2007

hugoclo Messages postés 7 Date d'inscription samedi 2 décembre 2000 Statut Membre Dernière intervention 28 novembre 2012 - 28 mars 2008 à 19:37
hugoclo Messages postés 7 Date d'inscription samedi 2 décembre 2000 Statut Membre Dernière intervention 28 novembre 2012 - 29 mars 2008 à 20:17
Bonsoir,
J'ai telecharger sur le site un zip pour un planning a partie d une dbb.
La Base de donnée est au format .mdb Utilisant office 2007 j'ai transformer la bdd en .accdb.
Depuis lorsque j'execute le code j'ai une erreur d'execution qui me dit format base de donnée non reconnu et je n'arrive pas a savoir d'ou cela provient....


<hr />

Le code
Private Sub Form_Load()
    Dim i As Integer
    Semaine = frmMenu.iSemaine
    i = 0
    Caption = "Semaine : " & Semaine
    'Nom de la Base de données
    dataPlanning.DatabaseName = App.Path & "\Planning.accdb"    'Requête SQL pour chercher les données qui correspondent à la semaine choisie    dataPlanning.RecordSource "SELECT * FROM Planning WHERE Semaine" & Semaine
    dataPlanning.Refresh
    With dataPlanning
        If Not .Recordset.EOF Then
            'Remplissage de la première ligne
            '{
            If Not IsNull(.Recordset("Personne")) Then lblNom(0).Caption = .Recordset("Personne")
            If Not IsNull(.Recordset("Lundi")) Then txtLundi(0).Text = .Recordset("Lundi")
            If Not IsNull(.Recordset("Mardi")) Then txtMardi(0).Text = .Recordset("Mardi")
            If Not IsNull(.Recordset("Mercredi")) Then txtMercredi(0).Text = .Recordset("Mercredi")
            If Not IsNull(.Recordset("Jeudi")) Then txtJeudi(0).Text = .Recordset("Jeudi")
            If Not IsNull(.Recordset("Vendredi")) Then txtVendredi(0).Text = .Recordset("Vendredi")
            If Not IsNull(.Recordset("Samedi")) Then txtSamedi(0).Text = .Recordset("Samedi")
            If Not IsNull(.Recordset("Dimanche")) Then txtDimanche(0).Text = .Recordset("Dimanche")
            '}
            'Création et remplissage des autres lignes de données
            '{
            Do While Not dataPlanning.Recordset.EOF
                'Index de création
                i = i + 1
                'Aller à l'enregistrement suivant
                dataPlanning.Recordset.MoveNext
                'Si ce n'est pas le dernier enregistrement :
                If dataPlanning.Recordset.EOF Then Exit Do
                'Créer une nouvelle ligne de controles (Labels et Zones de Texte)
                Load lblNom(i)
                Load txtLundi(i)
                Load txtMardi(i)
                Load txtMercredi(i)
                Load txtJeudi(i)
                Load txtVendredi(i)
                Load txtSamedi(i)
                Load txtDimanche(i)

                'Positionnement et Affichage des controles créés
                lblNom(i).Top = lblNom(i - 1).Top + lblNom(i).Height
                lblNom(i).Visible = True

                txtLundi(i).Top = lblNom(i).Top
                txtLundi(i).Visible = True

                txtMardi(i).Top = lblNom(i).Top
                txtMardi(i).Visible = True
                txtMardi(i).ZOrder 0

                txtMercredi(i).Top = lblNom(i).Top
                txtMercredi(i).Visible = True
                txtMercredi(i).ZOrder 0

                txtJeudi(i).Top = lblNom(i).Top
                txtJeudi(i).Visible = True
                txtJeudi(i).ZOrder 0

                txtVendredi(i).Top = lblNom(i).Top
                txtVendredi(i).Visible = True
                txtVendredi(i).ZOrder 0

                txtSamedi(i).Top = lblNom(i).Top
                txtSamedi(i).Visible = True
                txtSamedi(i).ZOrder 0

                txtDimanche(i).Top = lblNom(i).Top
                txtDimanche(i).Visible = True
                txtDimanche(i).ZOrder 0
               
                fraPlanning.Height = fraPlanning.Height + txtLundi(0).Height + 20

                'Remplissage de la nouvelle ligne
                '{
                If Not IsNull(.Recordset("Personne")) Then lblNom(i).Caption = .Recordset("Personne")
                If Not IsNull(.Recordset("Lundi")) Then txtLundi(i).Text = .Recordset("Lundi")
                If Not IsNull(.Recordset("Mardi")) Then txtMardi(i).Text = .Recordset("Mardi")
                If Not IsNull(.Recordset("Mercredi")) Then txtMercredi(i).Text = .Recordset("Mercredi")
                If Not IsNull(.Recordset("Jeudi")) Then txtJeudi(i).Text = .Recordset("Jeudi")
                If Not IsNull(.Recordset("Vendredi")) Then txtVendredi(i).Text = .Recordset("Vendredi")
                If Not IsNull(.Recordset("Samedi")) Then txtSamedi(i).Text = .Recordset("Samedi")
                If Not IsNull(.Recordset("Dimanche")) Then txtDimanche(i).Text = .Recordset("Dimanche")
                '}
            'Fin de la boucle 'DO'
            Loop
        Else
            'Si pas d'enregistrement pour la semaine choisie
            'Affichage d'un message
            MsgBox "Pas de Planning pour la Semaine : " & Semaine, vbInformation
        End If
    End With
End Sub

<hr />
Merci
A voir également:

8 réponses

Réponse 1 / 8
cs_ghuysmans99 Messages postés 3983 Date d'inscription jeudi 14 juillet 2005 Statut Membre Dernière intervention 30 juin 2013 16
28 mars 2008 à 23:11
Tu pourrais nous dire de quel genre de connexion c'est (ADO ou DAO)
_______________________________________________________________________
VB.NETis good ...VB6is better
0
Réponse 2 / 8
hugoclo Messages postés 7 Date d'inscription samedi 2 décembre 2000 Statut Membre Dernière intervention 28 novembre 2012
28 mars 2008 à 23:20
Merci pour la reponse,
je n'ai aucune idée du type de connexion. Comment puis je le connaitre?
0
Réponse 3 / 8
cs_ghuysmans99 Messages postés 3983 Date d'inscription jeudi 14 juillet 2005 Statut Membre Dernière intervention 30 juin 2013 16
28 mars 2008 à 23:48
Tu ne peux pas passer le source en entier ?
_______________________________________________________________________
VB.NETis good ...VB6is better
0
Réponse 4 / 8
hugoclo Messages postés 7 Date d'inscription samedi 2 décembre 2000 Statut Membre Dernière intervention 28 novembre 2012
28 mars 2008 à 23:56
Voici le lien pour le zip
http://www.vbfrance.com/codes/PLANNING-OU-AGENDA_31151.aspx
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 8
cs_ghuysmans99 Messages postés 3983 Date d'inscription jeudi 14 juillet 2005 Statut Membre Dernière intervention 30 juin 2013 16
29 mars 2008 à 10:06
C'est du DAO et tu utilises Common Controls 2 !
Normal que ça ne fonctionne pas avec un fichier .accdb : DAO ne supporte pas ça !!
Et pour Common Controls 2 tu pourrais passer à minimum Common Controls 5 ...

Donc tu dois refaire le truc avec ADO
_______________________________________________________________________
VB.NETis good ...VB6is better
0
Réponse 6 / 8
hugoclo Messages postés 7 Date d'inscription samedi 2 décembre 2000 Statut Membre Dernière intervention 28 novembre 2012
29 mars 2008 à 10:29
Merci pour les infos,
A quoi voix tu que c'est du DAO?
Je n'est pas trouver de tuto pour ADO!
0
Réponse 7 / 8
cs_ghuysmans99 Messages postés 3983 Date d'inscription jeudi 14 juillet 2005 Statut Membre Dernière intervention 30 juin 2013 16
29 mars 2008 à 12:27
Dans les réferences : Microsoft DAO bidule tsointsoin
Pour un tuto ADO, je n'en ai pas ...
Mais pour un code fonctionnant avec, j'en ai un :

http://basile.selfip.net/Anagrammes.zip
_______________________________________________________________________
VB.NETis good ...VB6is better
0
Réponse 8 / 8
hugoclo Messages postés 7 Date d'inscription samedi 2 décembre 2000 Statut Membre Dernière intervention 28 novembre 2012
29 mars 2008 à 20:17
Merci,
Malheureusement je n'y comprend rien.
0
Rejoignez-nous