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 ‘値格納用の変数を要素未定で宣言

strSQL = "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


コメントを残す

CAPTCHA


サブコンテンツ

カレンダー

2017年12月
« 11月    
 123
45678910
11121314151617
18192021222324
25262728293031

アーカイブ

このページの先頭へ