Convertion SQL en VBA

[invite5b91726d]

Bonjour,

Je cherche à mettre la valeur d'un attribut d'un requête sql dans une variable String, le tout dans une macro en VBA. A noter que la connexion au serveur et le lancement de la requete SQL sont fait par la macro ainsi que la récupération de la valeur de l'attribut.

Quand la valeur de l'attribut n'est pas vide, il n'y a aucun soucis tandis que dans l'inverse, la macro bug, j'ai essayé de contourner le problème par différentes solutions mais aucune n'a fonctionné, les voici :

Dim var as string
...
lancement de la requête
...
if oRs("cvoie") is null then
var = ""
else
var = oRs("cvoie")
end if
...

j'ai tenté comme condition pour les if :
if oRs("cvoie") = null then
if oRs("cvoie") is empty then
if oRs("cvoie") = empty then
if oRs("cvoie") = "" then

Aucune ne fonctionne, je veux juste pouvoir mettre la valeur de l'attribut "cvoie" dans une variable, mais lorsque l'attribut est vide, le programme bug.

J'ai regardé l'option pour voir l'évolution de l'attribut "cvoie", il m'indique bien "null", mais en type, il m'indique "Variant/Object/Field", là, je ne sais pas trop à quoi cela correspond, je suis bloqué.

Si quelqu'un a une piste pour m'aider, ce serait très gentil, merci d'avance.


-----

[inviteba9bce0d]

Je suis loin d'être un pro du VBA, par contre quand tu dis récupérer la valeur de l'attribut d'une requête, tu veux dire qu'elle ne retourne qu'un unique résultat ? Que ce passe-t-il si elle renvoie plusieurs valeurs ? (Utilise un Recordset dans ce cas)

Ce serait possible d'avoir tout le code avec la structure des tables ?

[invite5b91726d]

Voici une partie du programme :

sub main()
'init de la page excel à compléter
Dim num As Integer
Dim path As String
Dim xlsfile, projectname As String
Dim scriptname As String
Dim LogPath As String
scriptname = Me.Name
projectname = get_projet_name(scriptname)
xlsfile = "\" & projectname & "\TRI.xls"
num = 1 'worksheet number
path = TmpDir & xlsfile
initiate path, num

'init de la requête SQL
Dim Cnxn: Set Cnxn = CreateObject("ADODB.Connection ")
Dim oRs: Set oRs = CreateObject("ADODB.Recordset" )
Dim strCnxn As String
Dim requete As String
Dim message As String
Dim com1 As String
Dim com2 As String
Dim voie1 As String
Dim voie2 As String
Dim i As Integer

'ouverture de la connexion
strCnxn = "Driver={Microsoft ODBC pour Oracle}; " & _
"CONNECTSTRING=*****; uid=********;pwd=*******;"
Cnxn.Open strCnxn


'programme
requete = "select ........."
Set oRs = Cnxn.Execute(requete)
oRs.MoveFirst
'init
com2 = ""
voie2 = ""
i = 1
'boucle pour lire chaque ligne de la requête
Do While Not oRs.EOF

com1 = oRs("ccom")

'partie du code qui ne fonctionne pas
'If oRs("cvoie") = Empty Then
'voie1 = ""
'Else
'ligne de code qui bug lorsque la requête ne renvoie pour l'attribut oRs("cvoie")
'voie1 = oRs("cvoie")
'End If

'If (voie1 <> voie2) And (com1 = com2) Then
'cell = "A" & i + 1
'WriteText cell, oRs("nua")
'cell = "B" & i + 1
'WriteText cell, oRs("cdep")
'cell = "C" & i + 1
'WriteText cell, oRs("ccom")
'cell = "D" & i + 1
'WriteText cell, oRs("cvoie")
'i = i + 1
'com2 = oRs("ccom")
'voie2 = oRs("cvoie")
'End If

'partie di code qui fonctionne car l'attribut oRs("ccom") est toujours rempli
If com1 <> com2 Then
cell = "A" & i + 1
WriteText cell, oRs("nua")
cell = "B" & i + 1
WriteText cell, oRs("cdep")
cell = "C" & i + 1
WriteText cell, oRs("ccom")
cell = "D" & i + 1
WriteText cell, oRs("cvoie")
i = i + 1
com2 = oRs("ccom")
End If

oRs.MoveNext

Loop

'fermeture de la connexion SQL
Cnxn.Close
Set Cnxn = Nothing

close_file 'enregistrement du fichier excel et fermeture

end sub

[JPL]

S'il te plaît peux-tu utiliser la balise Code pour garder les indentations dans le listing ? Merci.

[A voir en vidéo sur Futura]

[inviteba9bce0d]

Je pense que çà vient de la gestion des donnée (table SQL). Le déboguage donne quoi ? oRs("cvoie") affiche ce qui est attendu ? Ce serait possible d'avoir la requête entière et la structure des tables.

[invite5b91726d]

J'ai trouvé une solution avec la fonction

IsNull(MonRecordset("MonChamp" ).Value) qui renvoie une valeur booléenne suivant le résultat

à noter que du fait faire

if oRs("cvoie").value is null

fonctionne aussi

[inviteba9bce0d]

Oui, ce que je comprend pas c'est que tes parties du code qui fonctionnés n'avaient pas de propriété Value (enfin, tu ne les utilisait pas). Parfois faut pas chercher avec VBA