|
' **************************************************
' 接続文字列作成
' **************************************************
Dim builder As New OdbcConnectionStringBuilder()
' ドライバ
builder.Driver = "MySQL ODBC 5.1 Driver"
' 接続用のパラメータを追加
builder.Add("SERVER", "localhost")
builder.Add("DATABASE", "lightbox")
builder.Add("UID", "root")
builder.Add("PWD", "password")
' **************************************************
' 接続
' **************************************************
' 新しい OdbcConnection オブジェクトを作成
Dim myCon As New OdbcConnection()
' 接続文字列を設定
myCon.ConnectionString = builder.ConnectionString
' 接続を開く
Try
myCon.Open()
Catch ex As OdbcException
Console.WriteLine("接続エラーです")
Console.WriteLine( ex.Message )
Return
End Try
' **************************************************
' 読み込みの準備
' **************************************************
Dim myQuery As String = _
"SELECT * from 社員マスタ where 社員コード = '0001'"
Dim myCommand As OdbcCommand = New OdbcCommand()
myCommand.CommandText = myQuery
myCommand.Connection = myCon
' **************************************************
' 読み込み
' **************************************************
Dim myReader As OdbcDataReader
myReader = myCommand.ExecuteReader()
Dim fld As Integer = myReader.GetOrdinal("氏名")
if myReader.Read() then
If Not myReader.IsDBNull(fld) Then
Console.Write( myReader.GetString(fld))
End if
End if
' **************************************************
' 接続解除
' **************************************************
myReader.Close()
myReader.Dispose()
myCon.Close()
myCon.Dispose()
| |