Je souhaite afficher le résultat d'une requête SQL type SELECT dans une Msg Box. Pour cela j'utilise l'opérateur LIKE qui pointe vers la valeur String d'une cellule (E13). Quand je remplace la valeur de la variable par le nom d'un pays en anglais il me le transcrit en Français. Dès que j'insère la variable avec l'opérateur & ça plante.
J'ai cherché dans le suprême de code, j'ai tenté de mettre démettre guillemet et simple quote en vain.
Je pense que la solution est toute bête mais bon je m'arrache les cheveux
En vous remerciant
Code : Tout sélectionner
Sub RequeteBase_V02
Dim oDBContext As Object , oDB As Object , oBase As Object
Dim oStatement As Object , oRequete As Object
Dim strSQL As String , Fichier As String
Dim feuille as object, cellule as String
feuille = ThisComponent.getSheets.getByName("Feuille1")
cellule = feuille.getCellRangeByName("E13").String
MsgBox cellule
Fichier = ConvertToURL("adresse de ma base")
oDBContext = CreateUnoService("com.sun.star.sdb.DatabaseContext")
oDB = oDBContext.getbyName(Fichier)
oBase = oDB.getConnection("","")
oStatement = oBase.createStatement()
strSQL = "SELECT ""NameFR"" FROM ""sql-pays"" WHERE ""NameGB"" LIKE '& cellule'"
oRequete = oStatement.executeQuery( strSQL )
If Not IsNull(oRequete) Then
While oRequete.next
test= test & oRequete.getString(1) & Chr(13)
Wend
MsgBox test
End If
oRequete.Close
oStatement.Close
oBase.Close
oBase.Dispose
End Sub
