VB.NETからoracle 接続

Dim ConnStr As String = "user id=scott;password=tiger;data source=orcl;"

Dim OraCon As New OracleConnection(ConnStr)

Dim strSQL As String = "SELECT * FROM EMP"

Dim Cmd As New OracleCommand(strSQL, OraCon)

Dim Rdr As OracleDataReader = Nothing



Try ' Open the connection

	Cmd.Connection.Open();



	Console.WriteLine("Connection to Oracle database established successfully !")

	Console.WriteLine(" ")

	MessageBox.Show(OraCon.State.ToString() & "状態です", "結果通知")



	Rdr = Cmd.ExecuteReader()

	Dim res As New System.Text.StringBuilder

	While Rdr.Read()

		res.AppendFormat("{0:9999} {1}{2}" _

		, Rdr.GetInt16(0) _

		, Rdr.GetString(1) _

		, VbCrLf)

	End While

	TextBox1.Text = res.ToString()



Catch ex As Exception

	Console.WriteLine(ex.Message)



Finally

	If Not Rdr Is Nothnig Then Rdr.Close()

	OraCon.Close()

	Cmd.Dispose()

End Try