ＶＢ2005のＳＱＬにて定義した変数の使用について

質問

ＶＢ2005、ＤＢはＳｑｌｓｅｒｖｅｒ2005　についてです。
以下のようなＳＱＬにて変数に値を設定して、フォーム上のテキストボックスにその値を
表示させたいのですが、うまくいきません。
どうしたらよいかアドバイス頂けると助かります。
＜ＳＱＬ＞
command.CommandText = "BEGIN DECLARE @SQL-todoufuken_code VARCHAR(20) " & _
"SET @SQL-todoufuken_code = (SELECT MAX(todoufuken_code)
FROM tbl_todoufuken)" & _
"END"
＜テキストボックスへの設定＞
txtTodoufuken_code.Text = @SQL-todoufuken_code

回答No.1

ape5 · ベストアンサー

そういったタイプのT-SQLはできないかと思います。
やるなら2通りの方法があるかと思います。
1)DataReaderを使うタイプ
command.CommandText = "SELECT MAX(todoufuken_code) FROM tbl_todoufuken"
Dim rdr As SqlDataReader = command.ExecuteReader()
rdr.Read()
txtTodoufuken_code.Text = rdr(0)
rdr.Close()

2)パラメータクエリを使うタイプ
command.CommanText = "SELECT @ret=MAX(todoufuken_code FROM tbl_todoufuken"
Dim pRet As SqlParameter = command.Parameters.Add("@ret",SqlDbType.VarChar,20)
pRet.Direction = ParameterDirection.Output

command.ExecuteNonQuery()

txtTodoufuken_code.Text = pRet.Value

詳しく知りたいのならば[プログラミングADO.NET 2.0]がお勧めです。厚い本ですがためになります。