SVP URGENT!!! Utilisation d'une classe personnel SVP URGENT!!!

Question

Bonjour,

J'ai cr&#233;e une classe qui me permet de me connecter a SQL Server,ainsi que de cr&#233;er une commande et des parametres pour executer des proc&#233;dures stock&#233;es.

Mon souci est le suivant lors de la 1ere execution du code pas de probleme, mais si l'ex&#233;cute une 2eme fois , il y a un erreur qui est la suivante :
"Trop d'arguments sont sp&#233;cifi&#233;s pour la proc&#233;dure ou la fonction 'Nom de la proc&#233;dure stock&#233;e'."

Voici le code source de ma classe :


Option
 Strict 
On


Option
 Explicit On 


Imports
 System.Data


Imports
 System.Data.SqlClient


Namespace
 My_Acces_Data_Base


Public Class Cls_Transaction


Implements IDisposable


Private _Ch_Cnx As String


Private Shared _Sql_Conx As New SqlConnection()


Private Shared _Sql_Cmd As New SqlCommand()


Private Shared _Sql_Adp As New SqlDataAdapter()


Public Property Ch_Cnx_Sql() As String


Get


Return _Ch_Cnx


End Get


Set(ByVal Value As String)


_Ch_Cnx = Value


_Sql_Conx.ConnectionString = _Ch_Cnx


End Set


End Property


Public Shared Sub AddCommand(ByVal Str_Nom_Proc As String)


Try


With _Sql_Cmd


.CommandText = Str_Nom_Proc


.Connection = _Sql_Conx


.CommandType = CommandType.StoredProcedure


End With


Catch ex As Exception


Throw ex


End Try


End Sub


Public Shared Sub AddParameter(ByVal Str_Nom_Para As String, _


ByVal Obj_Valeur As Object)


Try


Dim Sql_prm As New SqlParameter()


Sql_prm = _Sql_Cmd.Parameters.Add(Str_Nom_Para, SqlDbType.Bit)


Sql_prm.Value = Obj_Valeur


Catch ex As Exception


Throw ex


End Try


End Sub


Public Shared Function DataSet() As DataSet


Try


_Sql_Adp = New SqlDataAdapter(_Sql_Cmd)



 


Dim _ds As New DataSet()


_Sql_Adp.Fill(_ds)


Return _ds


Catch ex As Exception


Throw ex


End Try


End Function


End 
Class


End
 Namespace

Et forc&#233;ment cette classe est instanci&#233; dans le projet.

Si quelqu'un a une info, ce serait super car cela fais 1 semaine que je suis sur ce probleme et franchement je ne sais pas comment faire.

Merci, pour l'aide que vous pourriez m'apporter.

tryborg · Answer

Tu peux r&#233;p&#233;ter, j'ai pas compris :o)


tryborg

Little_Dev · Answer

Je suis a fond

SVP URGENT!!! Utilisation d'une classe personnel SVP URGENT!!!

2 réponses

Discussions similaires