VB.NET でSQLServerとORACLE接続しクエリをテーブル状に表示

単純に接続後DataGridViewにクエリを表示

NuGetを使いOracle.ManagedDataAccessを導入

WS027

 

Imports System.Data.SqlClient
Imports Oracle.ManagedDataAccess.Client

Public Class Form1
'SQLサーバ用
Private Sub btnShow_Click(sender As Object, e As EventArgs) Handles btnShow.Click
Dim cnStr As String = "Data Source=localhost\sqlexpress;Initial Catalog=SMS01;Persist Security Info=True;User ID=sa;Password=hogehoge"
Dim sql As String = "select * from T分類マスタ"
Dim dt As New DataTable
Dim da As New SqlDataAdapter(sql, cnStr)
Try
da.Fill(dt)
DataGridView1.DataSource = dt
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
End Sub
'ORACLE用
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim cnStr As String = "DATA SOURCE=XE;PASSWORD=hogehoge;PERSIST SECURITY INFO=True;USER ID=SHUKEI"
Dim sql As String = "select * from EMP"
Dim dt As New DataTable
Dim da As New OracleDataAdapter(sql, cnStr)
Try
da.Fill(dt)
DataGridView1.DataSource = dt
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
End Sub
End Class

こちらがSQLServer

WS028 

こちらがOracleから

WS029

 

コメント