VB.net

  ODBC 読み込み( 一行のデータ )



  
' **************************************************
' 接続文字列作成
' **************************************************
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()
  



  ODBC 更新



  
' **************************************************
' 接続文字列作成
' **************************************************
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 = _
"UPDATE 社員マスタ set 氏名 = 'あたらしい名前' where 社員コード = '0001'"

Dim myCommand As OdbcCommand = New OdbcCommand()
myCommand.CommandText = myQuery
myCommand.Connection = myCon

' **************************************************
' 更新
' **************************************************
Dim ret As Integer
' 実行
Try
	ret = myCommand.ExecuteNonQuery()
Catch ex As OdbcException
	Console.WriteLine("実行エラーです")
	Console.WriteLine( ex.Message )
End Try

' **************************************************
' 接続解除
' **************************************************
myCon.Close()
myCon.Dispose()
  










  infoboard   管理者用   
このエントリーをはてなブックマークに追加





フリーフォントWEBサービス
SQLの窓WEBサービス

SQLの窓フリーソフト

素材

一般WEBツールリンク

SQLの窓

フリーソフト

JSライブラリ