SqlParameter Typage pour t-sql

Bonjour,

Je travail actuellement sur un vieux un projet ou j'ai quelques problèmes avec le typage en VB.NET -> T-SQL notamment sur tout ce qui est float, decimal, money ...

Le système actuellement utilisé par le projet est le constructeur "SqlParameter (String, Object)", mais à l'heure actuel je ne trouve pas le moyen de faire SqlParameter (String, Object, SqlDbType).

Ce que j'ai trouvé qui se rapproche le plus de ce que je souhaite mettre en place c'est sur MSDN : "SqlParameter (String, SqlDbType, Int32, String)" ... mais je comprends pas comment il fonction, ou est passé Object ? :weird:
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 Public Function ExecuteDataSet(ByVal commandtext As String) As DataSet If arParams.Count > 0 Then Dim arParamsList() As SqlParameter = New SqlParameter(arParams.Count) {} For i As Integer = 0 To arParams.Count - 1 arParamsList(i) = New SqlParameter(CStr(arParams(i)(0)), CStr(arParams(i)(1))) Next Return SqlHelper.ExecuteDataset(cnn, CommandType.Text, commandtext, arParamsList) Else Return SqlHelper.ExecuteDataset(cnn, CommandType.Text, commandtext) End If arParams.Clear() End Function Public Sub AddParam(ByVal paramname As String, ByVal paramvalue As Object) Dim tParams As String() = {paramname, paramvalue} arParams.Add(tParams) End Sub Public ReadOnly Property Parameters() As ArrayList Get Return arParams End Get End Property
Merci de votre aide

quand la conversion peut se faire implicitement ca marche bien sans préciser le type (decimal vers float ou autre)

après la syntaxe que tu cherches doit être
Code:

1 2 dim p as new sqlparameter("@nom", sqldbtype.float) p.value = variable

Bien penser à remplacer les valeurs nulles pour les paramètres (Nothing en vb net) par des DBNull.Value

@Pol63 :

Citation:

quand la conversion peut se faire implicitement ca marche bien sans préciser le type (decimal vers float ou autre)

Malheureusement sa fonctionne pas avec la syntaxe qu'utilise le projet.
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 35 36 37 38 39 40 Private Sub myTest() Dim dbl As Double = 4.44 Dim dcl As Decimal = 3.33 Dim reqSql As String = "" 'reqSql = "INSERT INTO SqlTest023 (dcl1, dcl2, flt1, flt2, mny1, mny2) VALUES (@dbl, @dcl, @dbl, @dcl, @dbl, @dcl) " 'reqSql = "INSERT INTO SqlTest023 (dcl1, dcl2, flt1, flt2, mny1, mny2) VALUES (CAST(@dbl AS decimal(18, 4)), CAST(@dcl AS decimal(18, 4)), CAST(@dbl AS float), CAST(@dcl AS float), CAST(@dbl AS money), CAST(@dcl AS money)) " 'reqSql = "INSERT INTO SqlTest023 (dcl1, dcl2, flt1, flt2, mny1, mny2) VALUES (CAST('@dbl' AS decimal(18, 4)), CAST('@dcl' AS decimal(18, 4)), CAST('@dbl' AS float), CAST('@dcl' AS float), CAST('@dbl' AS money), CAST('@dcl' AS money)) " 'reqSql = "INSERT INTO SqlTest023 (dcl1, dcl2, flt1, flt2, mny1, mny2) VALUES (CAST('" & dbl & "' AS decimal(18, 4)), CAST('" & dcl & "' AS decimal(18, 4)), CAST('" & dbl & "' AS float), CAST('" & dcl & "' AS float), CAST('" & dbl & "' AS money), CAST('" & dcl & "' AS money)) " 'reqSql = "INSERT INTO SqlTest023 (dcl1, dcl2, flt1, flt2, mny1, mny2) VALUES (CAST('" & Replace(dbl, ",", ".") & "' AS decimal(18, 4)), CAST('" & Replace(dcl, ",", ".") & "' AS decimal(18, 4)), CAST('" & Replace(dbl, ",", ".") & "' AS float), CAST('" & Replace(dcl, ",", ".") & "' AS float), '" & Replace(dbl, ",", ".") & "', '" & Replace(dcl, ",", ".") & "') " 'reqSql = "INSERT INTO SqlTest023 (dcl1) VALUES (CAST(@dbl AS decimal(18, 4))) " 'reqSql = "INSERT INTO SqlTest023 (dcl2) VALUES (CAST(@dcl AS decimal(18, 4))) " 'reqSql = "INSERT INTO SqlTest023 (flt1) VALUES (CAST(@dbl AS float)) " 'reqSql = "INSERT INTO SqlTest023 (flt2) VALUES (CAST(@dcl AS float)) " 'reqSql = "INSERT INTO SqlTest023 (mny1) VALUES (CAST(@dbl AS money)) " 'reqSql = "INSERT INTO SqlTest023 (mny2) VALUES (CAST(@dcl AS money)) " Dim statement As String = "---" If reqSql <> "" Then Dim db As New DAL_SQL db.AddParam("@dbl", dbl) db.AddParam("@dcl", dcl) Try db.ExecuteNonQuery(reqSql) statement = "isOk" Catch ex As Exception statement = ex.ToString End Try db = Nothing Else statement = "reqSql isEmpty" End If litRslt.Text = statement End Sub
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Public Function ExecuteNonQuery(ByVal commandtext As String) As Integer Dim x As Integer = -1 If arParams.Count > 0 Then Dim arParamsList() As SqlParameter = New SqlParameter(arParams.Count) {} For i As Integer = 0 To arParams.Count - 1 arParamsList(i) = New SqlParameter(CStr(arParams(i)(0)), CStr(arParams(i)(1))) Next x = SqlHelper.ExecuteNonQuery(cnn, CommandType.Text, commandtext, arParamsList) Else x = SqlHelper.ExecuteNonQuery(cnn, CommandType.Text, commandtext) End If Return x End Function
Citation:

REQ 1 : System.Data.SqlClient.SqlException (0x80131904): Erreur de conversion du type de données varchar en numeric
REQ 2 : System.Data.SqlClient.SqlException (0x80131904): Erreur de conversion du type de données nvarchar en numeric
REQ 3 : System.Data.SqlClient.SqlException (0x80131904): Erreur de conversion du type de données varchar en numeric
REQ 4 : System.Data.SqlClient.SqlException (0x80131904): Erreur de conversion du type de données varchar en numeric
REQ 5 : OK
idST23 dcl1 dcl2 flt1 flt2 mny1 mny2
----------- --------------------------------------- --------------------------------------- ---------------------- ---------------------- --------------------- ---------------------
4 4.4400 3.3300 4,44 3,33 4,44 3,33

REQ 6 : System.Data.SqlClient.SqlException (0x80131904): Erreur de conversion du type de données nvarchar en numeric
REQ 7 : System.Data.SqlClient.SqlException (0x80131904): Erreur de conversion du type de données nvarchar en numeric
REQ 8 : System.Data.SqlClient.SqlException (0x80131904): Erreur de conversion du type de données nvarchar en float
REQ 9 : System.Data.SqlClient.SqlException (0x80131904): Erreur de conversion du type de données nvarchar en float
REQ 10 : Ok - mais résultat ne correpond pas à l'entrée
idST23 dcl1 dcl2 flt1 flt2 mny1 mny2
----------- --------------------------------------- --------------------------------------- ---------------------- ---------------------- --------------------- ---------------------
12 0.0000 0.0000 0 0 444,00 0,00
REQ 11 : Ok - mais résultat ne correpond pas à l'entrée
idST23 dcl1 dcl2 flt1 flt2 mny1 mny2
----------- --------------------------------------- --------------------------------------- ---------------------- ---------------------- --------------------- ---------------------
13 0.0000 0.0000 0 0 0,00 333,00

CAST; CONVERT même combat ;)

@dzediar : ;)

c'est pas de ma faute si toi tu donnes un string en paramètre ...
et c'est une mauvaise idée pour plein de raisons, le séparateur de décimale n'est pas forcément le même d'un pc à l'autre, y compris côté base de données

je pense que c'est l'origine des données qui est à revoir car un nombre ce n'est pas un string ...

Citation:

c'est pas de ma faute

hein ??? :aie:

Citation:

je pense que c'est l'origine des données qui est à revoir car un nombre ce n'est pas un string ...

Jusque là on est d'accord ...

Citation:

tu donnes un string en paramètre ...
Code:

1 2 Dim dbl As Double = 4.44 Dim dcl As Decimal = 3.33
moi ce que j'envoie est "casté" ?!

EDIT :

Code:

arParamsList(i) = New SqlParameter(CStr(arParams(i)(0)), CStr(arParams(i)(1)))

tu parles surement de ça du coup ?
je n'avais pas remarqué mais après test, que ce arParams(i)(1) soit casté string, non casté, ou casté object, j'ai toujours les mêmes résultats.

efface tout et recommence en plus simple, mais normalement si tu as une variable de type decimal et que tu fais un sqlparameter en lui donnant le decimal sans cast et qu'il n'y a pas de cast dans la requete ca doit passer

de toute façon s'il y a "impossible de caster un varchar/nvarchar en autre chose" c'est bien que tu as fourni un string au lieu de quelque chose de bien typé au départ

tu peux aussi mettre un point d'arrêt avant l'execution de la requete pour regarder le contenu des paramètres (shift+F9), et ca te dira le type réel de Value malgré qu'il soit as object

hi

super!