Vb code
kamikaz-88
Messages postés
66
Statut
Membre
-
zebulon2503 Messages postés 1319 Statut Membre -
zebulon2503 Messages postés 1319 Statut Membre -
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
A voir également:
- Vb code
- Code ascii - Guide
- Code puk bloqué - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
- Code activation windows 10 - Guide
- Scanner qr code pc - Guide
3 réponses
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.
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.
comment corriger un code, si on ne sait pas les erreurs qu'il génère ? Et à quelles lignes ?