Exécution de proc stockée 2

[Brice]

Merci pour vos solutions mais g tjrs des pbs.

J'avais déjà vu le 1er ex sur le site microsoft, qui ne
passe qu'1 seul paramètre (j'en ai 5 à passer et
multiplier les "parameter.append" ne marche pas)

Le 2ème ex n'est pas un code VB (ou il manque des bouts
dans les déclarations et VB ne connait pas
sqlcommand,sqlparameter...)

Si vous avez une autre solution prenant en compte
plusieurs paramètres à passer dans la proc stockée, je
vous en serais très reconnaissant.

Merci d'avance.

[Sébastien]

VB n'a pas reconnu très certainement parce que u n'as pas fait les imports
en début de code il faut saisir
imports system.data
imports system.data.sqlclient
Sébastien
"Brice" <Brice...@caramail.com> a écrit dans le message de news:
024d01c2cb6a$880276f0$cef82ecf@TK2MSFTNGXA08...

[Zoury]

Bonjour Sébastien!

Il n'y as pas d'import en VB 6.0... ;O)

--
Cordialement
Zoury
_________________________________________
Merci de répondre dans le newsgroup :O)

La FAQ VB
http://faq.vb.free.fr

API-Guide, indispensable pour les APIs
http://www.allapi.net/agnet/apiguide.shtml

Mz-Tools, add-in pour VB
http://www.mztools.com/

*************************************************************
"Sébastien" <sebast...@hotmail.com> wrote in message
news:#ZJjez2yCHA.2816@TK2MSFTNGP09...

[Zoury]

Salut!

Voici un bout de code qui écrit un enregistrement dans une bd à l'aide d'une
procédure stockée. L'enregistrement se voit attribué un numéro automatique
(Identity = Yes) :

'Procédure VB
Public Sub CreateRecord()

Dim lRec As Long
Dim cmd As ADODB.Command

'Initialisation de la commande
Set cmd= New ADODB.Command

cmd.CommandType = adCmdStoredProc
cmd.CommandText = "CreateGabarit"

'Affectation des paramètres
With cmd.Parameters
.Append cmd.CreateParameter("No", adInteger, adParamInputOutput, 0,
0)
.Append cmd.CreateParameter(, adVarChar, adParamInput, 50, m_sNom)
.Append cmd.CreateParameter(, adVarChar, adParamInput, 500,
m_sDescription)
.Append cmd.CreateParameter(, adVarChar, adParamInput, 50,
m_sCategorie)
.Append cmd.CreateParameter(, adDBTimeStamp, adParamInput, ,
m_dtCreation)
.Append cmd.CreateParameter(, adVarChar, adParamInput, 50,
m_sAuteur)
End With

'Initialisation de la connexion
Set cmd.ActiveConnection = g_oConnexion

'Exécution de la commande
cmd.Execute lRec

'Validation du résultat obtenu
If lRec <> 0 Then
'Récupère le numéro de l'objet créé
m_lNo = cmd.Parameters.Item("No").Value
End If

End Sub

'Code de la procédure stockée
CREATE PROCEDURE CreateGabarit
(
@lNo int output,
@sNom varchar(50),
@sDescription varchar(500),
@sCategorie varchar(50),
@datCreation datetime,
@sAuteur varchar(50)
)
As
INSERT INTO Gabarit( sNom,
sDescription,
sCategorie,
datCreation,
sAuteur)
VALUES( @sNom,
@sDescription,
@sCategorie,
@datCreation,
@sAuteur)
SELECT @lNo = @@Identity

GO

--
Cordialement
Zoury
_________________________________________
Merci de répondre dans le newsgroup :O)

La FAQ VB
http://faq.vb.free.fr

API-Guide, indispensable pour les APIs
http://www.allapi.net/agnet/apiguide.shtml

Mz-Tools, add-in pour VB
http://www.mztools.com/

*************************************************************
"Brice" <Brice...@caramail.com> wrote in message
news:024d01c2cb6a$880276f0$cef82ecf@TK2MSFTNGXA08...

[Sébastien]

Bonjour Zoury,
c'est vrai je vais jamais attention que dans ce news group on parle de VB6
principalement et non de VB .NET or je donnes toujours les réponses pour
VB.NET
Désolé, de cette inattention
Sébastien
"Zoury" <yanick_...@hotmail.com> a écrit dans le message de news:
eS2Bqi4yCHA.1924@TK2MSFTNGP12...