将数据表从vb.net传递到SQL Server中的存储过程时出错

Question

I have a stored procedure that receives a table, but whenever I make the insert I get this error:

Cannot convert a char value to money. The char value has incorrect syntax.

I create a table as type

CREATE TYPE dbo.Example AS TABLE
(
  Id_Exmp          int, 
  Discount_Amount  Money
)

I have a stored procedure that takes a datatable as a parameter:

CREATE PROCEDURE dbo.SP_Exmp
    @datatable dbo.Example READONLY
AS
BEGIN
    SET NOCOUNT ON;

    INSERT INTO dbo.destination_table(column_list)
        SELECT column_list 
        FROM @datatable;
END

This is the code I have in VB.net:

Function Example(ByVal dtTable as datatable)
    Try
        ConexionSQL = New SqlConnection(IniciaConexion)
        Command = New SqlCommand("SP_Exmp", ConexionSQL)
        Command.CommandType = CommandType.StoredProcedure

        'Parametros a Utilizar
        Command.Parameters.AddWithValue("@datatable ", dtTable )

        ConexionSQL.Open()
        If Command.ExecuteNonQuery() Then
            Return True
        Else
            Return False
        End If
        ConexionSQL.Close()
        ConexionSQL.Dispose()
        Command.Dispose()

    Catch ex As Exception
        MensajeError(ex, "Error")
        Return False
    End Try
End Function

Answer 1

A couple of things:

1. Command.Parameters.AddWithValue("@datatable ", dtTable )

You need to set its SqlDbType:

Command.Parameters.AddWithValue("@datatable ", dtTable).SqlDbType = SqlDbType.Structured;

---

2. Dispose your command before the connection, or even better use Using pattern:

 Using ConexionSQL = New SqlConnection(IniciaConexion) Using command As New SqlCommand End Using End Using 

---

3. Instead of the Money DataType, try changing your SQL DataTable to have a second column of Decimal and your .Net Datatable to have a Decimal, eg:

 DataTable dtTable = new DataTable(); dtTable.Columns.Add("Id_Exmp", typeof(int)); dtTable.Columns.Add("Discount_Amount", typeof(decimal)); 

Answer 2

I found out what it was the problem, the main issue was the order how I create the dtTable, in order to fill correctly the table type, I most create the column with the same order on the type, as an Example.

Dim DtTable as datatable = Exec_Query(Query:="Select Id_exm, Discoun..", LRw:=false)

for wherever reason I put in disorder, discount first and id second, I didn't pay attention to that,

then everything works just fine.

Answer 3

您必须打开连接。

ConexionSQL.Open().