[VB & SQL SERVER] Esecuzione StoredProcedure

[ladyBlu]

Buongiorno ragazzi...

sto effettuando operazioni su un db tramite StoredProcedure di INSERT, UPDATE e DELETE. Sulla Delete nessun problema, e sulla Insert nemmeno, almeno non su quelle monoparametriche.

Quando devo effettuare una stroredprocedure di Update su una tabella non riesco a passare i parametri da vb a sql...:master:

Signore&Signori, vi posto il codice... ditemi voi dove sbaglio......mi rimetto alla vostra sapienza...


CODICE DI VB

Sub Update()
 
   Dim cmd As New ADODB.Command
   Dim rs As New ADODB.Recordset
      
   cmd.ActiveConnection = miaConn
      
   cmd.CommandType = adCmdStoredProc
   cmd.CommandText = "sp_AggiornaLingua ?,?"
      
   cmd.Parameters.Append cmd.CreateParameter(, adInteger, &_
       adParamInput, 4, mvarIDLingua)
   cmd.Parameters.Append cmd.CreateParameter(, adVarChar, &_
       adParamInputOutput, 50, mvarLingua)
 
   Set rs = cmd.Execute
 
   Set rs = Nothing
   Set cmd = Nothing
 
End Sub

STORED-PROCEDURE

CREATE PROCEDURE [sp_AggiornaLingua]
 (@mioIDLingua  [int], @miaLingua [varchar](50))

AS 
 
UPDATE [dbArchivio].[dbo].[tbLingue] 
SET  [Lingua] = @miaLingua
WHERE ([IDLingua] = @mioIDLingua)

GO

ragazzi, che cavolo c'è di sbagliato???...


grazie a tutti voi per la collaborazione...

[darkblOOd]

Originariamente inviato da ladyBlu
Buongiorno ragazzi...

sto effettuando operazioni su un db tramite StoredProcedure di INSERT, UPDATE e DELETE. Sulla Delete nessun problema, e sulla Insert nemmeno, almeno non su quelle monoparametriche.

Quando devo effettuare una stroredprocedure di Update su una tabella non riesco a passare i parametri da vb a sql...:master:

Signore&Signori, vi posto il codice... ditemi voi dove sbaglio......mi rimetto alla vostra sapienza...


CODICE DI VB

Sub Update()
 
   Dim cmd As New ADODB.Command
   Dim rs As New ADODB.Recordset
      
   cmd.ActiveConnection = miaConn
      
   cmd.CommandType = adCmdStoredProc
   cmd.CommandText = "sp_AggiornaLingue ?,?"
      
   cmd.Parameters.Append cmd.CreateParameter(, adInteger, &_
       adParamInput, 4, mvarIDLingua)
   cmd.Parameters.Append cmd.CreateParameter(, adVarChar, &_
       adParamInputOutput, 50, mvarLingua)
 
   Set rs = cmd.Execute
 
   Set rs = Nothing
   Set cmd = Nothing
 
End Sub

STORED-PROCEDURE

CREATE PROCEDURE [sp_AggiornaLingua]
 (@mioIDLingua  [int], @miaLingua [varchar](50))

AS 
 
UPDATE [dbArchivio].[dbo].[tbLingue] 
SET  [Lingua] = @miaLingua
WHERE ([IDLingua] = @mioIDLingua)

GO

ragazzi, che cavolo c'è di sbagliato???...


grazie a tutti voi per la collaborazione...

[ladyBlu]

Originariamente inviato da darkblOOd

...ehm... era solo un errore di digitazione(adesso lo correggo)... sul prg è scritto bene... quindi il probl non è quello...:master:...



...cmq, thanks dark...

[vonkranz]

CREATE PROCEDURE [sp_AggiornaLingua]
 (@mioIDLingua  [int], @miaLingua [varchar](50))

AS 
BEGIN 
UPDATE [dbArchivio].[dbo].[tbLingue] 
SET  [Lingua] = @miaLingua
WHERE ([IDLingua] = @mioIDLingua)
END

..e con questa modifica alla stored procedure?? :master:

[ladyBlu]

Originariamente inviato da vonkranz

CREATE PROCEDURE [sp_AggiornaLingua]
 (@mioIDLingua  [int], @miaLingua [varchar](50))

AS 
BEGIN 
UPDATE [dbArchivio].[dbo].[tbLingue] 
SET  [Lingua] = @miaLingua
WHERE ([IDLingua] = @mioIDLingua)
END

..e con questa modifica alla stored procedure?? :master:

"nessun valore specificato x alcuni parametri necessari"...

si genera sull'istruzione di vb: set rs = cmd.Execute


:master:

[darkblOOd]

ma l'execute di un command non si fa sulla connection?

[vonkranz]

Originariamente inviato da ladyBlu
CODICE DI VB

Sub Update()
 
   Dim cmd As New ADODB.Command
   Dim rs As New ADODB.Recordset
      
   cmd.ActiveConnection = miaConn
      
   cmd.CommandType = adCmdStoredProc
   cmd.CommandText = "sp_AggiornaLingua ?,?"
      
   cmd.Parameters.Append cmd.CreateParameter(, adInteger, &_
       adParamInput, 4, mvarIDLingua)
   cmd.Parameters.Append cmd.CreateParameter(, adVarChar, &_
       adParamInputOutput , 50, mvarLingua)
 
   Set rs = cmd.Execute
 
   Set rs = Nothing
   Set cmd = Nothing
 
End Sub

....e mettere...adParamInput

[ladyBlu]

calma calma... ragazzi, non ci agitiamo...

funziona... io e la mia collega siamo grandi...:metallica

ecco il codice di VB funzianante:

Sub Update()
   Dim cmd As New ADODB.Command
      
   cmd.ActiveConnection = miaConn
   cmd.CommandText = "Exec sp_AggiornaLingua " & mvarIDLingua & _
       ",""" & mvarLingua & """"
 
   cmd.Execute
   Set cmd = Nothing
 
End Sub

pensate che modificando il nome della StoredProcedure e delle variabili all'interno della stringa del CommandText, questo stesso codice funziona perfettamente anche per Delete e Add... non è fantastico?!...



amici, come sempre vi ringrazion tantissimo... siete sempre disponibili...

[darkblOOd]

Originariamente inviato da ladyBlu
funziona... io e la mia collega siamo grandi...:metallica

TZE! ingrata, ti ho detto io che dovevi associare il command alla connection

[ladyBlu]

Originariamente inviato da darkblOOd

TZE! ingrata, ti ho detto io che dovevi associare il command alla connection

guarda che il command era già associato alla connection... anche nel mio primo post...