Comment gérer un code retour d'une procédure SQL serveur appelé a partir de VB

Question

Bonjour,

j'ai dans un prog VB un appel a une proc&#233;dure SQL serveur comme suit:

Dim cmd As ADODB.Command
Set cmd = New ADODB.Command

cmd.CommandText = "[" & DATABASE & "].[" & USER & "].[MAJ_EXPORT_LOT] " & szNumLot
Set cmd.ActiveConnection = cnx
cmd.Execute
Set cmd = Nothing

Avec la proc&#233;dure SQL serveur suivante:

CREATE   PROCEDURE RSGDF.MAJ_EXPORT_LOT (@E_NOM varchar(50))  AS DECLARE @CPT INTEGER;


SELECT @CPT (SELECT COUNT(E_NOM) FROM Export_Lot WHERE E_NOM @E_NOM)


IF @CPT = 0 
 INSERT INTO Export_Lot(E_NOM, E_CPT)  VALUES (@E_NOM, 1)
ELSE
 BEGIN  SELECT @CPT (SELECT E_CPT+1 FROM Export_Lot WHERE E_NOM @E_NOM)  UPDATE Export_Lot SET E_CPT @CPT WHERE E_NOM @E_NOM
 END

J'aimerai pouvoir g&#233;rer un code retour de la proc&#233;dure sql serveur, etre capable de renvoyer un boolean, ou un integer 0 ou 1, mais je ne sais pas comment faire le lien VB - SQL serveur

Quelqu'un aurait une id&#233;e?
merci d'avance

Olivier

jrivet · Answer

Salut,

Lorsque tu execute une commande, elle te retourne un recordset, essaie de voir si le contenu de ce Recordset ne poss&#232;de pas dans l'un des champs, le valeur retourn&#233;e par la proc&#233;dure SQL.

Dim rs as ADODB.Recordset

Set rs = cmd.execute (ou un truc dans le style)
Voila en esp&#233;rant que cela puisse t'aider un peu
@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

cs_opala · Answer

tout a fait, j'avais vu qu'on pouvait utilis&#233; un objet recordset, mais souvent les exemples s'arretent a Set rst = cmd.Execute et je ne sais pas comment lire apres mes infos
j'ai essay&#233; ca mais apres Set rst = cmd.Execute ca ne marche plus

Dim rs As ADODB.Recordset
Dim cmd As ADODB.Command
Set cmd = New ADODB.Command
Set rst = New ADODB.Recordset


Dim szNumLot As String


USER = "user"
PASSWORD = "password"
DATABASE = "mabase"
SERVEUR = "monserveur"


szNumLot = "titi"


Call InitialiseChaineConnexion(cnx)


'on va acceder &#224; la base pour mettre &#224; jour le compteur de document du lot en cours
cmd.CommandText = "[" & DATABASE & "].[" & USER & "].[MAJ_EXPORT_LOT] " & szNumLot
Set cmd.ActiveConnection = cnx
Set rst = cmd.Execute


'ne marche pas
If Not rst.BOF And rst.EOF Then
    rst.MoveFirst
    MsgBox rst(0)
End If


Set cmd = Nothing
Set rst = Nothing


End Sub

 · Answer

bon j'ai trouv&#233;,

j'utilisais une proc&#233;dure SQL serveur, mais j'ai essay&#233; avec une fonction, ca marche beaucoup mieu

voici le code

Public USER As String
Public PASSWORD As String
Public DATABASE As String
Public SERVEUR As String


Public cnx As ADODB.Connection


Public Function InitialiseChaineConnexion(ByRef cnx As ADODB.Connection) As Boolean
    'On se connecte a la base de reference
    On Error GoTo ConnectError
    
    Set cnx = New ADODB.Connection


    'D&#233;finition de la cha&#238;ne de connexion
    cnx.ConnectionString = "UID=" & USER & ";PWD=" & PASSWORD & ";" & "DRIVER={SQL Server};Server=" & SERVEUR & ";Database=" & DATABASE & ";"
    'Fermeture de la base de donn&#233;es
    cnx.Open
    InitialiseChaineConnexion = True
    Exit Function
ConnectError:
    MsgBox "Erreur lors de l'ouverture de la base de donn&#233;e : " & Err.Description, vbCritical
    InitialiseChaineConnexion = False
End Function


Private Sub Command1_Click()
Dim rs As ADODB.Recordset


Dim cmd As ADODB.Command
Set cmd = New ADODB.Command
Set rst = New ADODB.Recordset


Dim szNumLot As String


USER = "user"
PASSWORD = "password"
DATABASE = "database"
SERVEUR = "serveur"


Call InitialiseChaineConnexion(cnx)


'on va acceder &#224; la base pour mettre &#224; jour le compteur de document du lot en cours
cmd.CommandText = "SELECT [GDF_TIS].[dbo].[FN_FIRST_CAP]('olivier')"
Set cmd.ActiveConnection = cnx
rst = cmd.Execute


MsgBox (rst(0)) 'affiche OLIVIER


End Sub

CREATE FUNCTION FN_FIRST_CAP (@NAME VARCHAR(8000))
RETURNS VARCHAR(8000)
AS
BEGIN
   IF @NAME IS NULL
      RETURN NULL
   RETURN UPPER(@NAME)
END

Comment gérer un code retour d'une procédure SQL serveur appelé a partir de VB

3 réponses

Discussions similaires