je n'arive pas a simplifié et de corrigé l'erreur dans ce code

Question

Bonjour a vous tous , voil&#224; mon pb je  n'arive pas a simplifi&#233; et
de corrig&#233; l'erreur dans ce code. Il me sert a ffiche ma fiche de DVD
qd je fait un dbclick sur un listview !!!!! l&#224; j'ai besoin  d'une
aide rapide et pr&#233;cisse alors a vous de jou&#233; et merci pour l'aide
apport&#233;  ;)



CODE: 



Public Function GetLigne(strTitre) As Long

Dim I As Integer

Dim cn As New Connection

Dim rs As New Recordset



        cn.Provider = "Microsoft.Jet.OLEDB.4.0"

        cn.ConnectionString = "Data Source=" & App.Path & "\DMSBOX.mdb;"

        cn.Open userid:="Admin", Password:=""



        A = "SELECT * "

        A = A & " FROM DMS"

        A = A & " Where"

        A A & " Titre_du_film "

        A = A & ("'") & FrmMain.ListeNom.Text & ("'")



        rs.Open (A), cn



 rs.MoveFirst

      I = 0

          Do While Not rs.EOF

                If rs.Fields("Titre_du_Film") = strTitre_du_Film Then

                      GetLigne = I

          Exit Do

    Else

           
           
           
      rs.MoveNext

              I = I + 1

        End If

  Loop

  

      rs.Close

 

End Function

a bientot sur ce forum :D

BasicInstinct · Answer

je comprends pas ce que tu fais...
pour moi ton code doit planter sur  rs.MoveFirst qd le titre du film n'existe pas, sinon ta fonction renvoie 0.

je me trompe ?? tu veux obtenir quoi exactement ?

 BasicInstinct

PCPT · Answer

c'est quoi cette fonction qui ne retourne rien , qui demande un param&#232;tre qu'elle n'utilise pas, et qui liste ses retours de requ&#234;te qui ne doit logiquement renvoyer qu'un seul r&#233;sultat......

valtrase · Answer

Salut,
Tu devrais plutot coder dans ce style et sans faire de Fonction tu colles le code dans l'&#233;v&#232;nement click ou plut&#244;t doubleclick de ta liste.
Mieux vaut aussi d&#233;clarer ta connection dans un module

Dim Search As String
Screen.MousePointer = vbHourglass
   '*** L&#224; c'est pour &#233;viter les &#233;ventuels plantages dans le cas ou le titre contient une apostrophe
Search = Replace(FrmMain.ListeNom.Text , "'", "''")
Set rs = New ADODB.Recordset
rs.Open "select * from DMS where Titre_du_film ='" & Search & "'", cn


   '*** Et l&#224; pour &#233;viter un plantage si le titre ou autre et vide
lblTitre.Caption = IIf(rsFilm!Titre_du_film  <> "", rsFilm!Titre_du_film , "PasDeFilm")
...................
...................
...................
Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

Je n'arive pas a simplifié et de corrigé l'erreur dans ce code

3 réponses

Discussions similaires