Synthaxe VBA-SQL variable NULL store procedure

Oui mais quand j´execute ma procedure en SQL avec pour valeur a mes variables, il me renvoie toutes les valeurs possible, je cherche a faire pareil en vba,

En SQL
if @cuenta = ' '
begin
set @cuenta = '%'
end

Pourrait fonctionner?

J´ai ma réponse cela ne fonctionne pas

Oui mais dans ta proc tu teste ' ' un espace pas null!

Code:

---

1 2 3 4 5

En SQL if @cuenta = ' ' begin set @cuenta = '%' end

---

Set prm(0) = Con.Param("FechaC", 200, 1, 15, " ")

Oui je suis d´accord mais je voulais lui envoyer null en texte,
pas fonctionner alors null en variant pas fonctionner,

Je lui envoie vide en dur: comme ca
Set prm(3) = Con.Param("Cuentas", 200, 1, 30000, " ")

avec ce bout de code en sql:
if @cuenta = ' '
begin
set @cuenta = null
end

Pas fonctionner...

Je vais essayer en le remplacant par:
if @cuenta = 'null'
begin
set @cuenta = null
end

Code:

---

Set prm(3) = Con.Param("Cuentas", 200, 1, 30000, "%")

---

Null c'est rien alors % c'est tout!

C'est bien ce que tu veux non ?

J´ai ma réponse cela ne fonctionne pas :(

Fais une proc stok qui prend une valeur et renvoie la valeur donnée en paramètre.

Code:

---

Set prm(3) = Con.Param("Cuentas", 200, 1, 30000, "%")

---

Fonctionne pas non plus...

Pas compris dis m´en plus stp...

Tu rédiges une procédure stocké avec un paramètre et qui ce contente de retourner la valeur donné!

En suite on fera de teste dessus is null like etc...

une procedure avec juste un parametre et se contente juste de retourner la valeur du parametre?

Oui dans un premier temps!

Apres on testera le null le %

Identifions qui est a la ramasse!

Dsl d´etre un peu long a comprendre face a ta réactivité...

Code SQL

Code:

---

1 2 3 4 5 6

ALTER PROCEDURE SBO_SP_LP_PRUEBA @Valor nvarchar(10) AS SELECT @valor   exec SBO_SP_LP_PRUEBA 'NULL'

---

Code VBA

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

Function ConectP(Feuille As String, VFilas, Valor As String) Dim Con As New ADODBRD, Sql As String   Con.TYPEBASE = SQLSERVER2005 Con.Server = "BLADELAB01" Con.Base = "SBO_PORTUGAL_PRODUCCION" Con.User = "etiquetas" Con.PassWord = "francia"   Dim prm(0) As Object Con.OpenConnetion Set prm(0) = Con.Param("Valor", 200, 1, 15, Valor) Sql = "SBO_SP_LP_PRUEBA"   On Error GoTo ErrorBD   Set Rs = Con.CommadExecute(adCmdStoredProc, prm, Sql) If Rs.EOF Then MsgBox "Sin datos corespondiendo", vbInformation, "Mensaje" Else Do While Not Rs.EOF With Sheets(Feuille) .Cells(VFilas, 1).Value = Rs(0).Value End With Rs.MoveNext VFilas = VFilas + 1 Loop End If Con.CloseConnection   Exit Function ErrorBD: MsgBox "Error en el acceso a BD. Revisar " & Err.Description End Function

---

Appel de ma fonction depuis usf:

Code:

---

1 2 3 4

Private Sub CommandButton1_Click() Dim Feuille As String ConectP "Prueba", 2, "test" End Sub

---

Et ca fonctionne...

Quand je dis que cela fonctionne, cad que:

Code:

---

ConectP "Prueba", 2, "null"

---

retourne null

Code:

---

ConectP "Prueba", 2, "%"

---

retourne %

Maintenant tu modifies ta procédure pour qu'elle retourne 'Null' quand le.paramètre est Null.

Code:

---

Set prm(0) = Con.Param("Valor", 200, 1, 15, Null)

---

Code:

---

1 2 3 4

Private Sub CommandButton1_Click() Dim Feuille As String ConectP "Prueba", 2, Null End Sub

---

me retourne rien, fonctionne mais me retourne pas de valeur

Donc code sql:

Code:

---

1 2 3 4 5 6

ALTER PROCEDURE SBO_SP_LP_PRUEBA @Valor nvarchar(10) AS SELECT ISNULL(@valor,'NULL')   exec SBO_SP_LP_PRUEBA NULL

---

Code vba:

Code:

---

ConectP "Prueba", 2, Null

---

Cela me renvoie le texte null

Dans ta procédure stocké tu fais un truc genre if param is null

Si je regarde ton poste #39 j'ai tendance a dire ça fonctionne!

Bonjour a tous,

apres de plusieurs essaies j´y suis enfin arrivé!

Merci a tous pour vos précieuses aides!

Merci Dysorthographie ;)

Bonjour Tinni,

Cool :ccool: