Adodc et with

Version imprimable

Adodc et with

Bonsoir,
J'ai un code VB afin de generer un planning en fonction d'une base de donnée.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
Private Sub Form_Load()
    Dim i As Integer
    Semaine = frmMenu.iSemaine
    i = 0
    Caption = "Semaine : " & Semaine
 
 
    'Requête SQL pour chercher les données qui correspondent à la semaine choisie
   adodc1.RecordSource = "SELECT * FROM Planning WHERE Semaine =" & Semaine
 
   With adodc1
        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

Lors de l'execution de mon code cela genere le code erreur 91 variable objet ou variable bloc with non defini er me surligne la ligne

Code:

If Not .Recordset.EOF Then

Etant un novice en VB vous serez t'il possible de m'aider.
Merci

Semaine = frmMenu.iSemaine, est une variable de quel type ?

Edition ........ Suite ......... Ajout

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Option Explicit
 
'variables pour manipulation de la base de données
'dans l'editeur VB Projet --> References :
'Microsoft ActiveX Data Objects 2.0 Library, msado20.dll
'ou une autre version, Microsoft ActiveX Data Objects 2.8 Library,msado15.dll
Dim CheminDataBase As New ADODB.Connection
Dim adodc1 As New ADODB.Recordset
Dim CheminNomDelabase As String
Dim Msg$
Dim ReponSe%
Private Sub Form_Load()
'construction du chemin de la BD ****** adapter *******
CheminNomDelabase = Replace(Environ("ProgramFiles"), "ProgramFiles=", "") & "\MenuShell\ParamMenuShell.mdb"
' verification de l'integritée de l'instalation
On Error Resume Next: CheminDataBase.Close: If Err.Number <> 0 Then On Error GoTo 0 Else On Error GoTo 0
CheminDataBase.CursorLocation = adUseClient: CheminDataBase.Mode = adModeReadWrite
On Error Resume Next
'ouverture de la BD
CheminDataBase.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source= " & CheminNomDelabase & ";"
If Err.Number <> 0 Then
 On Error GoTo 0
 Msg$ = "Impossible d'ouvrir la base de données source," & vbCrLf
 Msg$ = Msg$ & "Vous ne pouvez pas / plus utiliser ce programme."
 ReponSe% = MsgBox(Msg$, vbCritical, " ---- ProgElecT ----")
 Exit Sub
End If
 
'----------------------------------------------------------------------------------------
 
'ouverture d'une table de la BD ****** adapter *******
adodc1.Source = "select * from ParamMenu Where NumEnreg <> 0" & _
                " order by NumEnreg"
adodc1.Open , CheminDataBase, adOpenStatic, adLockPessimistic
With adodc1
 If Not .EOF Then
  Msg$ = "Nbr d'enregistrement : " & .RecordCount
  Else
  Msg$ = "Pas ouvert"
 End If
End With
adodc1.Close: DoEvents: CheminDataBase.Close
Me.Caption = Msg$
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
'pour s'assurer de la fermeture du RocordSet et de la BD
On Error Resume Next: adodc1.Close: If Err.Number <> 0 Then On Error GoTo 0 Else On Error GoTo 0
On Error Resume Next: CheminDataBase.Close: If Err.Number <> 0 Then On Error GoTo 0 Else On Error GoTo 0
End Sub

A+ 8O

31/03/2008, 21h37
hugoclo
Mon probleme a disparu a force de trifouiller le code.
Par contre il m'en cré une autre erreur de syntaxe dans la close from
Voili la requete
Code:

1 2 DataPlanning.RecordSource = "SELECT * FROM Planning WHERE Semaine =" & Semaine dataPlanning.Refresh
la variable iSemaine est du type integer
31/03/2008, 22h20
ProgElecT

DataPlanning, de quel type, a quelle reference appartient cette variable ?
Peux tu nous mettres les lignes de declaration de cette variable, car moi, mis a par

Code:

Dim adodc1 As New ADODB.Recordset

je ne sais pas trouver d'objet ayant comme propriété .RecordSource

Edit, je viens de voir ton dernier message,

Citation:

Par contre il m'en cré une autre erreur de syntaxe

, quel N° d'erreur, description, sur quelle ligne ????

Reédit, :oops: :oops: , n'utilisant jamais de composant Adodc, Microsoft ADO Data Control 6.0 (OLEDB), je n'arrivai pas a comprendre.
31/03/2008, 22h52
hugoclo

Merci pour l'aide,
DataPlanning est le nom de mon control adodc et je ne l'ai declarer nul part.
En ce qui concerne ma nouvelle erreur le n° est: -2147217900(80040e14)
La methode'Refresh' de l'objet 'IAdodc' a échoué
et il me surligne

Code:

DataPlanning.Refresh

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub Form_Load()
'----------------------------------------------------------------------------------------
Adodc1.CommandType = adCmdTable
'ouverture d'une table de la BD ****** adapter *******
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=C:\Program Files\MenuShell\ParamMenuShell.mdb;Mode=ReadWrite"
'ouverture de la table
Dim Semaine As Integer
Semaine = 0
Dim Sql As String
Sql = "ParamMenu Where NumEnreg <> " & Semaine
Adodc1.RecordSource = Sql
Adodc1.Refresh
 
With Adodc1.Recordset
 If Not .EOF Then
  Msg$ = "Nbr d'enregistrement : " & .RecordCount
  Else
  Msg$ = "Pas ouvert"
 End If
End With
'Adodc1.Recordset.Close: DoEvents
 
Me.Caption = Msg$
End Sub

Par contre si je rajoute en debut de la requete Sql "Select * From", là j'ai l'erreur de syntaxe dans la clause From, puis la même 2° erreur que toi.
A+ (demain) :zzz: