mysqlconnect

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