Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles Button3.Click
Try
Using conn As MySQLConnection = New MySQLConnection( _
New MySQLConnectionString("localhost", _
"test", _
"root", _
"", _
3306).AsString)
conn.Open()
Using dt As DataTable = New MySQLSelectCommand(conn, _
New String() {"id", "name", "sex"}, _
New String() {"emp"}, _
Nothing, _
New String(,) {{"sex", "=", "'女'"}}, _
New String(,) {{"id", "ASC"}}).Table
If (dt.Rows.Count <> 0) Then
Dim drow As DataRow
For Each drow In dt.Rows
Trace.WriteLine(String.Format("id:{0},name:{1},sex:{2}", _
drow("id"), drow("name"), drow("sex")))
Next
End If
End Using
End Using
Catch ex As MySQLException
MessageBox.Show(ex.Message, "MySQLエラー")
Catch ex As Exception
MessageBox.Show(ex.Message, "一般エラー")
End Try
MessageBox.Show("処理完了")
End Sub
'実行結果
'id:1,name:山田 麗華,sex:女
'id:4,name:山崎 真由美,sex:女
|