VB.NETでWITH句を使った複数のSQLを一度にOracleに送信するコード

2024.02.26

カテゴリ：VB.NET

Imports System

Imports Oracle.DataAccess.Client

Module Program

Sub Main(args As String())

Dim connectionString As String = "User Id=myUsername;Password=myPassword;Data Source=myOracleDataSource"

' Oracleへの接続を作成

Using connection As New OracleConnection(connectionString)

connection.Open()

' OracleDataAdapterを使用してデータを取得するためのDataSetを作成

Dim dataSet As New DataSet()

' 複数のSQL文を含むクエリを作成

Dim sql As String = "

WITH temp1 AS (SELECT * FROM TableA),

temp2 AS (SELECT * FROM TableB)

SELECT * FROM temp1 INNER JOIN temp2 ON temp1.id = temp2.id;

WITH temp3 AS (SELECT * FROM TableC),

temp4 AS (SELECT * FROM TableD)

SELECT * FROM temp3 INNER JOIN temp4 ON temp3.id = temp4.id;

' OracleDataAdapterを使用してデータを取得

Using adapter As New OracleDataAdapter(sql, connection)

' DataSetにデータを格納

adapter.Fill(dataSet)

End Using

' 結果を処理

For Each table As DataTable In dataSet.Tables

For Each row As DataRow In table.Rows

For Each column As DataColumn In table.Columns

Console.WriteLine(row(column))

End Using

End Sub

End Module

お気に入りの記事を「いいね！」で応援しよう

Last updated 2024.02.26 02:11:48

[VB.NET] カテゴリの最新記事

「東雲 忠太郎」の平凡な日常のできごと