Vb code

kamikaz-88 Messages postés 61 Date d'inscription   Statut Membre Dernière intervention   -  
zebulon2503 Messages postés 1228 Date d'inscription   Statut Membre Dernière intervention   -
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

A voir également:

3 réponses

Réponse 1 / 3
jeanbi Messages postés 15119 Date d'inscription   Statut Contributeur Dernière intervention   2 184
 
bonjour,
c'est rape !!!
a+
0
kamikaz-88 Messages postés 61 Date d'inscription   Statut Membre Dernière intervention   362
 
c'est pas grave!!
0
chossette9 Messages postés 4239 Date d'inscription   Statut Contributeur Dernière intervention   1 311
 
Bonjour,

comment corriger un code, si on ne sait pas les erreurs qu'il génère ? Et à quelles lignes ?
0
Réponse 2 / 3
zebulon2503 Messages postés 1228 Date d'inscription   Statut Membre Dernière intervention   110
 
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.
0
Réponse 3 / 3
jeanbi Messages postés 15119 Date d'inscription   Statut Contributeur Dernière intervention   2 184
  
svp c'est urgent c'est demain que je doit presenter mon mini projet

c'est un peu tard :-))
0
zebulon2503 Messages postés 1228 Date d'inscription   Statut Membre Dernière intervention   110
 
C'est pas faux...
Mal réveillé, je pensais que ca datait de tôt ce matin...
Tant pis pour lui :-)
0

Discussions similaires

sertissage des cables rj45
lekludo -
brupala -

7 réponses