VBAでoracleDBへcreate文を実行したい

Question

実現したいこと

VBAでoracleへcreatetabeしたい

ネットでコードを調べたが、よくわからなかったので教えていただけないでしょうか。
下記コードはセレクト文発行のものを試しに触って動かしてみましたがうまく
行きませんでした。

よろしくお願いいたします。

Sub create()
    Dim SQL As String
    Dim i As Long
    Dim row As Long

    Const DSN = "XE"                          'データソース名
    Const USERNAME = "system"                 '接続するデータベースのユーザー名
    Const PASSWORD = "M"             'パスワード

    SQL = "create table test2 (a number , b number);"
    
    Dim conn As New ADODB.Connection
        
    conn.ConnectionString = _
    "DSN=" & DSN & ";" & _
     "UID=" & USERNAME & ";" & _
     "PWD=" & PASSWORD & ";"
    conn.Open
    
    Dim rs As New ADODB.Recordset

    rs.Source = SQL
    rs.ActiveConnection = conn
    
    conn.Close
    Set rs = Nothing
    Set conn = Nothing


End Sub

Comments

[KOZ6.0]

環境を書きましょう。
・Oracle のバージョンは？
・Oracle クライアントは 32bit/64bit のどちらですか？
・Office は 32bit/64bit のどちらですか？
Office と Oracle で一致していないと動きません。

どううまくいかないのですか？
エラーメッセージが出ているなら記入してください。

[KOZ6.0]

SELECT を実行するものと、INSERT, UPDATE, DELETE, MERGE などを行う方法は違います。
CREATE TABLE は後者のやり方になるので、検索してみてください。
接続文字列にも注意です。
https://excel-ubara.com/excelvba4/EXCEL273.html#sec04_07

Answer 1

32bit/64bit の違いによる接続の確認については

「VBAからoracleへの接続方法」
https://teratail.com/questions/4o29ba371pqd38#reply-nmgcqn9ohv6run

の私の回答を参照してください。

コード例ですが、CharGPT に聞いてみました。（手抜きですみません）

Q: VBA で ORACLE にテーブルを作成する SQL を実行するサンプルをください

A: VBAを使用してOracleデータベースにテーブルを作成するには、ADO（ActiveX Data Objects）を使用してデータベースに接続し、SQL文を実行する必要があります。以下は、VBAを使用してOracleにテーブルを作成するサンプルコードです。

まず、ADOライブラリを参照に追加してください。VBAエディタで「ツール」>「参照設定」を選択し、Microsoft ActiveX Data Objects x.x Library（x.xはバージョンに依存します）をチェックしてください。

次に、以下のVBAコードを使用してOracleにテーブルを作成できます。このコードは、Oracleへの接続、SQLの実行、およびテーブル作成の例を示しています。このコードを必要に応じてカスタマイズしてください。

Sub CreateOracleTable()
    Dim conn As Object
    Set conn = CreateObject("ADODB.Connection")
    
    ' Oracle接続文字列を設定します。必要に応じてユーザー名、パスワード、データベース名を変更してください。
    conn.Open "Provider=OraOLEDB.Oracle;Data Source=Your_Oracle_Server;User ID=Your_Username;Password=Your_Password;"
    
    ' テーブル作成SQL文を定義します。必要に応じてテーブル名、列名、データ型を変更してください。
    Dim createTableSQL As String
    createTableSQL = "CREATE TABLE Your_TableName (" & _
                     "ID NUMBER(10) PRIMARY KEY, " & _
                     "Name VARCHAR2(255), " & _
                     "Age NUMBER(3))"
    
    ' SQL文を実行します。
    conn.Execute createTableSQL
    
    ' 接続を閉じます。
    conn.Close
    
    ' メッセージボックスを表示してテーブル作成が完了したことを通知します。
    MsgBox "テーブルが作成されました。"
End Sub

このコードを使用する前に、Your_Oracle_Server、Your_Username、Your_Password、およびYour_TableNameを実際のOracleサーバー、ユーザー名、パスワード、およびテーブル名に置き換えてください。また、必要に応じてテーブルの列定義をカスタマイズしてください。

このVBAコードは、指定したOracleデータベースに新しいテーブルを作成するためのものです。実行する前に、適切なOracleデータベースへのアクセス許可を持っていることを確認してください。