Discussion :

[fouf_01]

salut a tous je dev un ptit prog sous vb mais message "erreur de compilation:utilisation incorrecte du mot clé New il surligne New Connection
prq

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Private Sub Form_Load() 
Set MaConnexion = New Connection 
With MaConnexion 
.Provider = "microsoft.jet.oledb.4.0" 
.Open NomBase 
End With 
 
Set rsvehicule = New Recordset 
With rsvehicule 
.ActiveConnection = MaConnexion 
.Open "select * from Immatriculation", , adOpenDynamic, adLockPessimistic 
End With 
charger 
 
 
End Sub

[malhivertman1]

Tu as déclaré tes variables? Dim.....

[fouf_01]

oui voila toute les ligne de code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
Dim MaConnexion As Connection
Dim rsvehicule As Recordset
 
Public Sub charger()
Text1 = rsvehicule("N° immatriculation")
Text2 = rsvehicule("Genre")
Text3 = rsvehicule("Marque")
End Sub
 
Private Sub Command2_Click()
If rsvehicule.EOF Then
MsgBox ("Dernier enregistrement")
Else
rsvehicule.MoveNext
If rsvehicule.EOF Then
MsgBox ("Dernier enregistrement")
rsvehicule.MoveLast
End If
charger
End If
End Sub
 
Private Sub Command3_Click()
If rsvehicule.BOF Then
MsgBox ("Premier enregistrement")
Else
rsvehicule.MovePrevious
charger
End If
End Sub
 
Private Sub Command4_Click()
If rsvehicule.EOF Then
MsgBox ("Dernier enregistrement")
Else
rsvehicule.MoveLast
charger
End If
End Sub
 
Private Sub Form_Load()
Set MaConnexion = New Connection
With MaConnexion
.Provider = "microsoft.jet.oledb.4.0"
.Open NomBase
End With
 
Set rsvehicule = New Recordset
With rsvehicule
.ActiveConnection = MaConnexion
.Open "select * from Immatriculation", , adOpenDynamic, adLockPessimistic
End With
charger
 
 
End Sub
 
Private Sub Command1_Click()
If rsvehicule.BOF Then
MsgBox ("C'estle premier enregistrement")
Else
rsvehicule.MoveFirst
charger
End If
End Sub

[malhivertman1]

Tu travaille en VB6, VBA?

[fouf_01]

sur vb6

[Vesta]

Fais attention,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 Dim MaConnexion As ADODB.Connection
Dim rsvehicule As ADO.Recordset

ou DAO si c'est ton cas...

pareil sur le onload

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set P = New ADODB.connection

C'est peu etre pas ca mais bon lol

[ironik]

Oui j'aurais dit la meme chose...
J'ai eu le meme probleme en voulant instancier un objet définit dans une dll => j'avais oublié de préciser la Dll :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set MonObjet = New MaDll.Objet

[fouf_01]

pardon mais il me dit erreur de compilation:type défini par l'utilisateur non défini prq

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
Dim MaConnexion As ADODB.Connection
Dim rsvehicule As ADO.Recordset
 
Public Sub charger()
Text1 = rsvehicule("N° immatriculation")
Text2 = rsvehicule("Genre")
Text3 = rsvehicule("Marque")
End Sub
 
Private Sub Command2_Click()
If rsvehicule.EOF Then
    MsgBox ("Dernier enregistrement")
Else
    rsvehicule.MoveNext
    If rsvehicule.EOF Then
        MsgBox ("Dernier enregistrement")
        rsvehicule.MoveLast
    End If
        charger
End If
End Sub
 
Private Sub Command3_Click()
If rsvehicule.BOF Then
    MsgBox ("Premier enregistrement")
Else
    rsvehicule.MovePrevious
    charger
End If
End Sub
 
Private Sub Command4_Click()
If rsvehicule.EOF Then
    MsgBox ("Dernier enregistrement")
Else
    rsvehicule.MoveLast
    charger
End If
End Sub
 
Private Sub Form_Load()
 
Set MaConnexion = New Connection
With MaConnexion
    .Provider = "microsoft.jet.oledb.4.0"
    .Open NomBase
End With
 
Set rsvehicule = New Recordset
With rsvehicule
    .ActiveConnection = MaConnexion
    .Open "select * from Immatriculation", , adOpenDynamic, adLockPessimistic
End With
charger
 
 
End Sub
 
Private Sub Command1_Click()
If rsvehicule.BOF Then
    MsgBox ("C'estle premier enregistrement")
Else
    rsvehicule.MoveFirst
    charger
End If
End Sub

[random]

ajoute la référence au composant d'accès au données (ado ou dao) à ton projet

[Vesta]

Dans projet --) références...

Et tu coche Mircosoft ActiveX Data Object


Ca devrait aller mieu

[fouf_01]

j'ai ajouter la référence Microfoft DAO 3.6 Object Library

[Vesta]

alors c comme ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub DAOOpenRecordset ()
    Dim db As DAO.Database, rst As DAO.Recordset, fld As DAO.Field
    Dim sSQL As String
    ' Ouverture de la base de données 
    Set db = DBEngine.OpenDatabase (".\Comptoir.mdb")
    sSQL =  "Select * From CLIENTS Where Région= 'WA'"
    ' Ouverture du recordset 
    Set rst = db.OpenRecordset (sSQL, dbOpenForwardOnly, dbReadOnly)
    ' Fermeture du Recordset
    rst.Close
End Sub

[fouf_01]

je ne trouve pas Mircosoft ActiveX Data Object
donc Mircosoft ActiveX Data Object(Multi-dimensional) 2.8 Library
il surligne Dim MaConnexion As ADODB.Connection
mais toujour le meme pb merci de votre aide

[fouf_01]

je test je te dit

[Vesta]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
 
Dim db As DAO.Database, rsvehicule As DAO.Recordset, fld As DAO.Field 
 
Private Sub Form_Load() 
Set db = New DAO.Database 
With db
.Provider = "microsoft.jet.oledb.4.0" 
.Open NomBase 
End With 
 
Set rsvehicule = New DAO.Recordset 
With rsvehicule 
  .ActiveConnection = db
  .Open "select * from Immatriculation", , adOpenDynamic, adLockPessimistic 
End With 
charger 
End Sub

[fouf_01]

merci a vous tous ca marche tres tres bien

[Vesta]

tant mieu lol