La façon de traiter avec des guillemets simples dans Word VBA requête SQL?

- Je obtenir un nom de client de liste déroulante et utiliser cette valeur pour faire des requêtes sur une feuille de calcul excel, cependant, le nom peut contenir des guillemets simples (exemple: Adam de la Viande). Cela me brise le demande et comment puis-je faire une requête avec une variable qui contient une apostrophe?

Private Sub cboCompany_Change()
            Dim customerName As String
            customerName = cboCompany.Value

rsT.Open "SELECT Customer, Postcode, Address1, Address2, State, Country FROM Customers WHERE  Customer = '" & customerName & "'", cn, adOpenStatic
InformationsquelleAutor Morgan | 2010-10-20
  1. 7

    Où vous spécifiez deux guillemets simples '', on va échapper à l'autre et le résultat sera unique, essayez de le remplacer comme ceci:

    customerName = Replace(customerName, "'", "''")
    • Mais alors qu'il ne correspond pas avec le nom du client dans la feuille de calcul?
    • Les deux guillemets simples seront considérées comme une seule citation, lorsque la valeur réelle de match qui arrive.
    • Ok, j'ai dû changer de nomclient = Replace(nomclient, "'", """) si. Grâce Sarfraz
    • Bienvenue et il a été d'environ 5 ans depuis la dernière fois que j'ai travaillé sur VB, j'ai oublié la syntaxe 😉
    InformationsquelleAutor Sarfraz
  2. 7

    Cela vous laisse grande ouverte à une attaque par injection SQL. Je voudrais vous recommandons de changer le présent pour un de paramétrer la requête comme ceci

    Dim cmd as NEW ADODB.Command

With cmd
 .CommandText=”SELECT foo from tblBar where foo=?”
 .Parameters.Append .CreateParameter("@foo", adVarChar, adParamInput, 50, “What ever you want”)
 .ActiveConnection=dbCon
 .CommandType=adCmdText
End With

Set rst=cmd.execute
    InformationsquelleAutor Kevin Ross