vb.netからMySqlCommandをつかって、プロシージャに接続させる。
MySQLへのコネクションを確立するクラスdbがあります。
dbクラスのプロパティ db.Conn でコネクションを取得できます。
Dim cmd As New MySqlCommand("GetSyainInfo", db.Conn)
cmd.CommandType = CommandType.StoredProcedure
cmd.Parameters.Add("logon_name", MySqlDbType.VarChar, 255).Value = logonname
cmd.Parameters.Add("param_id", MySqlDbType.Int32, 11).Direction = ParameterDirection.ReturnValue
cmd.Parameters.Add("param_group", MySqlDbType.VarChar, 50).Direction = ParameterDirection.ReturnValue
cmd.Parameters.Add("param_syozoku", MySqlDbType.VarChar, 50).Direction = ParameterDirection.ReturnValue
cmd.ExecuteNonQuery()
Dim id As Integer = CInt(cmd.parameters("param_id").Value)
Dim group As String = CStr(cmd.parameters("param_group").Value)
SQL文を投げて結果を取りたい
Dim myvalue() As String '値格納用の変数を要素未定で宣言
ｓｔｒSQL = "SELECT ・・・・・"
Dim cmd As New MySqlCommand(strSQL, db.conn)
cmd.CommandType = CommandType.Text
Dim dr As MySqlDataReader
dr = mySqlCmd.ExecuteReader()
Dim i As Integer = -1 '配列インデックス用
While dr.Read()
i = i + 1
ReDim Preserve myvalue(i) 'Preserveすることで値を追加していく
myvalue(i) = dr("列名")
End While
