コメント |
必要な名前空間 : http://msdn.microsoft.com/ja-jp/library/system.data.odbc.aspx|(System.Data.Odbc)
読み込み
@DIV
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim strCon As String
' 接続文字列作成
strCon = "Driver={Microsoft ODBC for Oracle};SERVER=localhost/ORCL;UID=lightbox;PWD=lightbox"
' 接続準備
Dim myCon As OdbcConnection = New OdbcConnection(strCon)
' コマンド
Dim strQuery As String = "select * from 社員マスタ"
' コマンド準備
Dim myCommand As OdbcCommand = New OdbcCommand(strQuery)
' コマンドを使用する接続用インスタンスを関係付ける
myCommand.Connection = myCon
' 接続
myCon.Open()
' レコード取得用のオブジェクト
' レコード取得用のオブジェクトを取得
Dim myReader As OdbcDataReader = myCommand.ExecuteReader()
' データ取得用の変数
Dim str As String = ""
Dim fld As Integer
' 全てのレコードを取得
Do While myReader.Read()
' 列の番号
fld = myReader.GetOrdinal("社員コード")
' 列の文字列値
If myReader.IsDBNull(fld) Then
str += "null"
Else
str += myReader.GetString(fld)
End If
' 列の番号
fld = myReader.GetOrdinal("氏名")
If myReader.IsDBNull(fld) Then
str += "|null"
Else
str += "|" + myReader.GetString(fld)
End If
str += vbCrLf
Loop
' 接続解除
myCon.Close()
Me.TextBox1.Text = str
End Sub
@END
更新
@DIV
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim strCon As String
' 接続文字列作成
strCon = "Driver={Microsoft ODBC for Oracle};SERVER=localhost/ORCL;UID=lightbox;PWD=lightbox"
' 接続準備
Dim myCon As OdbcConnection = New OdbcConnection(strCon)
' 接続
myCon.Open()
' コマンド
Dim strQuery As String = "insert into 社員マスタ (社員コード) values('9901')"
' コマンド準備
Dim myCommand As OdbcCommand = New OdbcCommand(strQuery, myCon)
' 実行
myCommand.ExecuteNonQuery()
' コマンド
myCommand.CommandText = "insert into 社員マスタ (社員コード) values('9902')"
' 実行
myCommand.ExecuteNonQuery()
' 接続解除
myCon.Close()
End Sub
@END
|