VBからSQLserverのSPへ配列を投げられない」

Question

VBからSQLserverのSPへ配列を投げるテストをしています。
うまくいきません。

以下がソースです。

drop type MeishoType;
go
create type MeishoType as table(
  id int,
  name varchar
);
go
drop table Meisho;
go
create table Meisho(
  id int,
  name varchar
);
go
drop procedure MeishoIns;
go
create procedure MeishoIns
    @MeishoTableValues MeishoType readonly 
as
begin
    insert into Meisho(id, name) select id, name from @MeishoTableValues
end
go

Private Sub CallSP(sender As Object, e As EventArgs) Handles Button2.Click

    Dim cmd As New SqlClient.SqlCommand
    Try

        Dim dt As New DataTable
        dt.Columns.Add("id", GetType(Integer))
        dt.Columns.Add("name", GetType(String))
        dt.Rows.Add(1, "阿部")
        dt.Rows.Add(2, "加藤")
        dt.Rows.Add(3, "佐々木")

        cmd.Connection = Cn
        cmd.CommandText = "MeishoIns"
        cmd.CommandType = CommandType.StoredProcedure
        cmd.Parameters.Clear()
        cmd.Parameters.Add("@MeishoTableValues", SqlDbType.Structured)
        cmd.Parameters("@MeishoTableValues").TypeName = "MeishoType"
        cmd.Parameters("@MeishoTableValues").Value = dt
        If Cn.State = ConnectionState.Closed Then Cn.Open()
        cmd.ExecuteNonQuery()

    Finally
        cmd.Dispose()

    End Try

End Sub

こんなエラーになります。

教えてくださすと嬉しいです。
よろしくお願いします。

Answer 1

create type MeishoType as table(
  id int,
  name varchar
);

create table Meisho(
  id int,
  name varchar
);

varchar(1)のテーブルになっているためだと思います。
定義で適切な長さを指定してみてください。

Comments

[sala]

まさにその通りでした。
省略したらmaxになると思い込んでいました。
ありがとうございます。