réglage d'un problème de compilation

Question

Salut &#224; tous,

Voici le code que j'ai &#233;crit dans le bouton "recherche" depuis le formulaire Form4 (se composant de 2 check box et d'un bouton recheche) pour ouvrir la feuille nomm&#233;e Form8 (li&#233;e &#224; la base par une data) ou je veux avoir acc&#232;s &#224; toutes les donn&#233;es correspondant au nom ou au pr&#233;nom entr&#233; par l'uilisateur::


    Dim cnn As New ADODB.Connection
    Dim rst As New ADODB.Recordset
    Dim fld As ADODB.Field
    Dim clause_where As String
    Dim OK As Integer
    Dim passage As Integer
    Dim nb_trouver As Integer
    Dim rep As Integer
    
    OK = 0
    passage = 0
    nb_trouver = 0


    
    '***Ecriture de la clause where en fonction des choix de l'op&#233;rateur
    If Check1.Value = 1 Then
        clause_where = "[Nom Du Client] LIKE'%" & Replace(Text1, "'", "''") & "%'"
        passage = 1
    End If
    
    If Check2.Value = vbChecked Then
    If passage = 1 Then
        clause_where = clause_where & " AND "
        clause_where = clause_where & "[Prenom Du Client] LIKE '%" & Replace(Text2, "'", "''") & "%'"
    Else
    If passage = 0 Then
        clause_where = clause_where & "[Prenom Du Client] LIKE '%" & Replace(Text2, "'", "''") & "%'"
        passage = 1
    End If
    End If
     
    If passage = 0 Then
        rep = MsgBox("Vous avez mal formul&#233; votre recherche", vbOKOnly + vbExclamation, "Erreur")
        GoTo Fin
    End If
    '***Fin &#233;criture clause WHERE*********
    '***Ouverture de la connection***
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _
         & "Data Source= ".\Base.mdb;"       'erreur de syntaxe que je ne sais pas r&#233;soudre.
    
    '***On regarde si la requete retourne un r&#233;sultat***
       rst.Open _
          "SELECT * FROM [Fiche du client] where " & clause_where


If rst.RecordCount > 0 Then
    Form8.Show
    Form6.Hide
Else
    rep = MsgBox("Aucun r&#233;sultat ne correspond au(x) crit&#232;re(s) de recherche", vbOKOnly + vbExclamation, "Aucun r&#233;sultat")
End If
    
    
Fin:
End Sub

Auriez vous un conseil ou une solution? Merci par avance.

cs_Warning · Answer

Salut, ton probleme vient du fait que tu ne peux pas mettre un simple " dans entre deux autres "
Par exemple: dodo = "titi" ' &#231;a marche
mais: dodo="ti"ti" ne va pas marcher...
Il faut donc remplacer " par "": dodo = "ti""ti"

Je sais pas si j'ai &#233;t&#233; tr&#232;s clair lol. Mais pour r&#233;soudre ton pb, remplace:
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _
         & "Data Source= ".\Base.mdb;"
par:
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _
         & "Data Source= "".\Base.mdb;"""


Warning
Admin Codes-Sources.com
http://www.decompiler-vb.net/

cs_lecorse2b · Answer

Salut Warning,



J'ai bien compris ce que tu as &#233;crit, mais peut &#234;tre me suis je mal exprim&#233;. Le message que j'ai est le suivant :



Format of the initialization string does not conform to the OLE DB specification.



Je travaille avec access 2000 et la base est li&#233;e &#224; Form8 avec une
data. Je ne comprends pas ce qui le g&#234;ne. As tu une id&#233;e de savoir
pourquoi un tel message? Peut &#234;tre n'ai je pas sp&#233;cifi&#233; quelque chose?
Pourrais tu m'aider?

cs_Warning · Answer

Il y avait de toute fa&#231;on une erreur de syntaxe a corriger avant d'obtenir celle que tu nous a montr&#233; l&#224;.
Essai &#231;a:
    cnn.Provider =  "Microsoft.Jet.OLEDB.4.0"


    dbPath = App.Path & "\ Base.mdb" 
    cnn.ConnectionString  = "Data Source=" & dbPath
    cnn.Open


Warning
Admin Codes-Sources.com
http://www.decompiler-vb.net/

cs_lecorse2b · Answer

Salut Warning,

Excuse moi de te d&#233;ranger encore une fois mais j'ai encore un souci avec le code suivant :


    Dim cnn As New ADODB.Connection
    Dim rst As New ADODB.Recordset
    Dim fld As ADODB.Field
    Dim clause_where As String
    Dim OK As Integer
    Dim passage As Integer
    Dim nb_trouver As Integer
    Dim rep As Integer
    
    OK = 0
    passage = 0
    nb_trouver = 0


    
    '***Ecriture de la clause where en fonction des choix de l'op&#233;rateur
    If Check1.Value = 1 Then
        clause_where = "[Nom Du Client] LIKE'%" & Replace(Text1, "'", "''") & "%'"
        passage = 1
    End If
    
    If Check2.Value = vbChecked Then
    If passage = 1 Then
        clause_where = clause_where & " AND "
        clause_where = clause_where & "[Prenom Du Client] LIKE '%" & Replace(Text2, "'", "''") & "%'"
    Else
    If passage = 0 Then
        clause_where = clause_where & "[Prenom Du Client] LIKE '%" & Replace(Text2, "'", "''") & "%'"
        passage = 1
    End If
    End If
     
    If passage = 0 Then
        rep = MsgBox("Vous avez mal formul&#233; votre recherche", vbOKOnly + vbExclamation, "Erreur")
        GoTo Fin
    End If
    '***Fin &#233;criture clause WHERE*********
    '***Ouverture de la connection***
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _
         & "Data Source= ".\Base.mdb;"      
    
    '***On regarde si la requete retourne un r&#233;sultat***
       rst.Open _
          "SELECT * FROM [Fiche du client] where " & clause_where


If rst.RecordCount > 0 Then
    Form8.Show
    Form6.Hide
Else
    rep = MsgBox("Aucun r&#233;sultat ne correspond au(x) crit&#232;re(s) de recherche", vbOKOnly + vbExclamation, "Aucun r&#233;sultat")
End If
    
    
Fin:
End Sub

Je ne comprends pas comment faire pour r&#233;soudre le probl&#232;me (car aparamment, j'ai le m&#234;me message). Peux tu m'aider une nouvelle fois? 

Merci par avance.

Réglage d'un problème de compilation

4 réponses

Discussions similaires