Vb code
bonsoir,
quelqu'un peut me corriger ce code:
Private Sub cmd_recherche_Click()
Dim Trouve As Boolean
num = Val(txt_k7.Text)
Dim DBB As ADODB.Connection
Dim RSS As ADODB.Recordset
Dim reqtitre As ADODB.Command
DBB.Provider = "Microsoft.Jet.OLEDB.4.0"
DBB.ConnectionString = "C:\Users\kamikaz\Desktop\club video\le mien\mini pojet vb kamikaz\provc.mdb"
DBB.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & App.Path & "\provc.mdb"
reqtitre.CommandType = "Select * From cassette_video"
Set RSS = reqtitre.Execute
Trouve = False
While Not RSS.EOF And Trouve = False
If RSS![numero_video] = num Then
txt_k7 = Resultat![titre]
txt_k7.Enabled = False
Trouve = True
End If
RSS.MoveNext
Wend
If Trouve = False Then
MsgBox "Numéro Inexistant", vbCritical, "Recherche d'une video"
txt_k7.Text = ""
txt_k7.SetFocus
End If
End Sub
svp c'est urgent c'est demain que je doit presenter mon mini projet
quelqu'un peut me corriger ce code:
Private Sub cmd_recherche_Click()
Dim Trouve As Boolean
num = Val(txt_k7.Text)
Dim DBB As ADODB.Connection
Dim RSS As ADODB.Recordset
Dim reqtitre As ADODB.Command
DBB.Provider = "Microsoft.Jet.OLEDB.4.0"
DBB.ConnectionString = "C:\Users\kamikaz\Desktop\club video\le mien\mini pojet vb kamikaz\provc.mdb"
DBB.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & App.Path & "\provc.mdb"
reqtitre.CommandType = "Select * From cassette_video"
Set RSS = reqtitre.Execute
Trouve = False
While Not RSS.EOF And Trouve = False
If RSS![numero_video] = num Then
txt_k7 = Resultat![titre]
txt_k7.Enabled = False
Trouve = True
End If
RSS.MoveNext
Wend
If Trouve = False Then
MsgBox "Numéro Inexistant", vbCritical, "Recherche d'une video"
txt_k7.Text = ""
txt_k7.SetFocus
End If
End Sub
svp c'est urgent c'est demain que je doit presenter mon mini projet
3 réponses
-
Contributeurbonjour,
c'est rape !!!
a+ -
Salut
Détailles nous où se trouve l'erreur. Quand tu exécutes le programme pas à pas, tu dois bien planter quelque part non ? Ou c'est juste qu'il ne fait pas ce que tu attends ?
Donc donnes la ligne où ca plante et le message d'erreur. -
Contributeur
svp c'est urgent c'est demain que je doit presenter mon mini projet
c'est un peu tard :-))
