Problème de requete avec DSNRésolu

Question

Bonjour,

Je suis en train de développer une application qui doit chercher des informations dans une base de donnée en utilisant DSN.
Avec DAO tout fonctionnais bien mais là j'ai le droit a des erreurs.

Voici le code en question:

    Dim sql As String
    Dim m_AdoCnn As ADODB.Connection
    Set m_AdoCnn = New ADODB.Connection
    Dim rs As New ADODB.Recordset

    m_AdoCnn.Provider = "Microsoft.Jet.OLEDB.4.0"
    m_AdoCnn.ConnectionString = BaseChoisie.Caption
    m_AdoCnn.CursorLocation = adUseNone
    m_AdoCnn.Open

     sql = "SELECT CodeArticle, NumeroLigne, Designation, DateDocument FROM LigneFacture WHERE CodeArticle LIKE '" & texte_rech & "*'"

     rs.Open sql, m_AdoCnn, adOpenDynamic

     MsgBox rs.Fields(0).Count, vbInformation, "test"   ' Retourne 4
     MsgBox rs.Fields(0).Name, vbInformation, "test"   ' Retourne CodeArticle
     MsgBox rs.Fields(0).Value, vbInformation, "test"

rs.Close
m_AdoCnn.Close

Arrivé a la 4eme box j'ai cette erreur : BOF ou EOF est égal à true ou l'enregistrement actuel à été supprimé.

Je sais que dans ma base j'ai le code que je recherche.

Merci

cs_donutz · Accepted Answer

J'ai trouvé, avec DSN il faut remplacer les * par des % pour la recherche avec LIKE =)

Merci

cs_ghuysmans99 · Answer

Avant le deuxième MsgBox, fait MsgBox rs.EOF
Si c'est = à true, c'est que l'enregistrement est vide.

cs_donutz · Answer

Oui dans mon code j'y ai pensé je l'ai mis sauf que... j'ai aucune donnée retrounée... alors que avec DAO je les avais...

Donc d'ou viens le problème ?

cs_ghuysmans99 · Answer

La condition du WHERE n'est pas respectée ...
Ta base n'est pas vide, par hasard ?

cs_donutz · Answer

Non j'ai ouvert ma base avec MS ACCESS et j'ai pris directement le code dedans... j'ai une version avec DAO et une version avec DSN, avec DAO j'ai des résultats...

cs_donutz · Answer

En faisant des test je vois que ça viens du LIKE... il y a t-il une syntaxe differente ?

cs_ghuysmans99 · Answer

Que contient texte_rech ?
C'est un textbox ? Si c'est le cas, utilise texte_rech.Text ...
D'autre part, s'il y a des guillemets, tu dois les doubler :

Public Function Pure(S As String) As String
 Pure = Replace(S,"'","''")
End Function
...
sql = "SELECT CodeArticle, NumeroLigne, Designation, DateDocument
FROM LigneFacture WHERE CodeArticle LIKE '" & Pure(texte_rech.Text) & "*'"

cs_ghuysmans99 · Answer

Avec ADODB, plutôt.
C'est logique, et le pire c'est que je m'en sers ...
Accepte ton dernier post, ça permettra aux autres de ne plus faire la même erreur !

cs_donutz · Answer

Au passage, j'aurais une autre question, comment faire pour afficher une image dans un bouton lorsqu'il est désactivé ?
Merci

Problème de requete avec DSN

9 réponses

Votre réponse

Discussions similaires