そもそも何が問題やったん？ 先生：ななぁ、前のコードな、実は「やり方」がめっちゃ要領悪かったんや。 生徒：え、動いてたやん！何があかんの？ 先生：たとえるならな、算数のドリルをやってて、「1問解くたびに、職員室の先生のところまで行って『これで…

‍ ケンタと先生のVBA教室：データベース接続編 ケンタ： 先生！また新しいコードや！今度は「Oracle（オラクル）」って書いてあるけど、これなぁに？ 先生： おっ、ええところに気づいたな！Oracleっていうのはな、学校の図書室の何百倍もの本（データ）が詰…

‍ ケンタと先生のVBA教室：SQLお片付け編 ケンタ： 先生！今回のコード、最初のところに「Excel」じゃなくて「DAO.Database」とか書いてある！これって何？ 先生： お、さすがケンタ！今回はな、Excelじゃなくて**「Accessくんの画面の中」で直接動かすプロ…

‍ ケンタと先生のVBA教室：Access接続編 ケンタ： 先生！今回のコード、こないだの「Oracle」のやつとそっくりやん！使い回し？ 先生： 目のつけどころがシャープやね、ケンタ！そう、流れはほとんど一緒や。でも今回は行く大倉庫が「Oracle」じゃなくて、Mi…

‍ ケンタと先生のVBA教室：Accessスマート編 ケンタ： 先生！このコード、さっきの「Access Pro版」と名前が似てるけど、何が違うの？ 先生： お、いい質問や！今回はな、前のやつから「メモ書き（コメント）を消すお掃除機能」をなくして、コードを短くシン…

‍ ケンタと先生のVBA教室：改行と出力の進化編 ケンタ： 先生！また同じ名前のコードやけど、コメントに「ここが重要！」とか書いてある！ 先生： お、鋭いな！まず1つ目の大進化は、そのコメントが書いてある「改行コードの統一」の場所や。 rawSql = Repla…

‍ ケンタと先生のVBA教室：画面リフレッシュ編 ケンタ： 先生！またAccessのお片付けロボやけど、今回はコードが2つもある！何が違うの？ 先生： お、いい質問や！実はな、1つ目のコードでお片付け（上書き保存）をしたとき、Accessくんがのんびり屋さんすぎ…

‍ ケンタと先生のVBA教室：SQL裏画面テスト編 ケンタ： 先生！またAccessの命令書（SQL）をお片付けするやつや！でも、前のやつと何が違うの？ 先生： お、よく気づいたな！今回はな、ただキーワードで改行するだけじゃなくて、命令を「1文字ずつじっくり観…

① 一発で「月」を作る方法（クエリだけ） 集計月: Format(CDate(Left([売上日],4) & "/" & Mid([売上日],5,2) & "/" & Right([売上日],2)),"yyyy/mm") メリット： 1列だけで月の文字列を作れる 計算フィールド1つで完結 デメリット： CDate() と Format() を…

1. Nz関数 比較結果: Nz([MasterTable].[対象], "対象データなし") Nullなら第2引数を返すシンプルな関数。 書き方が短くてスッキリ。 Access専用関数なのでExcelや他のSQL環境では使えません。 対象部番がNullの場合にだけ置き換えたいときに便利。 2. IIf …

生徒：先生、Nz関数ってなんですか？ 先生：Nz関数は、Null値（空の値）を他の値に置き換える関数やで。例えば、Nz([Amount], 0)って書くと、もし[Amount]がNullなら0を返すんや。 生徒：なるほど！次に、DateAdd関数って何ですか？ 先生：DateAdd関数は、日…

生徒：先生、このコードは何してるんですか？ 先生：これは、パラメータを設定してSQLのコマンドに渡すときのデータ型を指定してる部分やな。 生徒：データ型って何ですか？ 先生：データ型は、値がどんな種類かを決めるものやで。例えば、文字列とか数値、…

生徒：「先生、このコードは何してるんですか？」 先生：「このコードはな、Excelから特定のデータを条件に合わせてAccessのデータベースから取り出してくるもんやで。Excelにある条件を使って、Accessのデータを絞り込んで、結果をExcelに表示させるんや。…

生徒：「先生、これって何のことですか？」 先生：「これはデータ型って言って、パソコンが扱うデータの種類を表すもんやで。」 生徒：「データ型って、どういう種類があるんですか？」 先生：「まず、文字列って言うのは『文字』を扱うもんや。例えば名前と…

生徒: 先生、このコードは何をしてるんですか？ 先生: このコードは、ExcelからAccessというデータベースにデータを取り出したり、逆にデータをOracleっていう別のデータベースに移したりするためのものやで。 生徒: それって、どんな風にデータを動かしてる…

先生: 今日は「OracleODBCConnect」っていうコードを見ていこうな。これは、Oracleデータベースに接続して、データを取得して別の場所に保存するためのコードやで。 生徒: Oracleデータベースに接続するって、どういうこと？ 先生: そうやな、データベースっ…

先生: 今日は、2つのコードを見てみような！まず1つ目は「AutoFillPopup」っていうコードやけど、これでやってることは、接続ポップアップを自動で操作して、ユーザー名やパスワードを入力して接続するっていうことやで。 生徒: へー、ポップアップを自動で…

先生: 今日は、ExcelからAccessのデータを抽出する方法を教えるで！このコードを使うと、ExcelからAccessにアクセスして、指定したクエリを実行できるんや。 生徒: え、ExcelからAccessってどうやってつなげるんですか？ 先生: まず、Excelのシートからユー…

先生: 今日は「データをAccessからOracleに転送して、Excelに保存するプログラム」について学ぶで。まず、データベースからデータを取り出して、それをExcelに書き出して、さらにOracleにも転送するんや。 生徒: え？なんかいろんなことをしてるんですね！ど…

'//-------------------- ' AccessのVBAモジュールに追加Function GetDataFromOracle(searchCondition As String) As Variant Dim conn As Object Dim rs As Object Dim data As Variant Dim i As Integer, j As Integer Dim sql As String ' ADO接続を作成 …

先生: 今日は、ExcelからOracleのデータベースに接続して、データを検索してExcelに書き出すプログラムの説明をするで。 生徒: それってどうやってするんですか？ 先生: まず、このプログラムでは、Excelにある情報を使って、Oracleのデータベースからデータ…

先生: 今日は、AccessとExcelを使って、Oracleデータベースからデータを取り出して、Excelに書き込む方法を説明するで。 生徒: それはすごいですね！どうやってやるんですか？ 先生: まず、最初のコードは「Access」のVBAのコードやな。これがOracleに接続し…

先生: 今日は、VBSスクリプトを使って、AccessのクエリからSQLを取り出す方法を説明するで。まず最初に、Accessを開く準備をするんや。 生徒: なるほど！Accessを開くんですね、どうやって？ 先生: そうやで！まず、CreateObject("Access.Application")って…

Function GetOracleConnectionString(uid As String, pwd As String) As String On Error GoTo ErrorHandler Dim connStr As String connStr = "Provider=MSDAORA.1;User ID=" & uid & ";Password=" & pwd & ";Data Source=YourDataSourceName" GetOracleCon…

参照設定のMicrosoft DAO 3.6 Object Libraryを外し Microsoft Office 14.0 Access database engine Object Libraryに変更

1.リンクテーブルを右クリック ⇒ 「リンクテーブルマネージャー」をクリック 2.該当のデータソース名のものをレ点チェックして、「編集」をクリック 3.接続文字列内にコードを追記DSN=***;APP=Microsoft Office;DATABASE=*****;UID=ユーザ名;PWD=パスワード;

'//Access側のvba code Function GetOracleConnectionString(dsn As String, uid As String, pwd As String) As String Dim connStr As String connStr = "ODBC;DSN=" & dsn & ";UID=" & uid & ";PWD=" & pwd GetOracleConnectionString = connStrEnd Functi…

Sub FetchDataUsingAccessVBA() Dim accessApp As Object Dim dbPath As String Dim connStr As String Dim conn As Object Dim rs As Object Dim sqlStr As String Dim ws As Worksheet Dim i As Integer Dim j As Integer Dim vbaCode As String Dim dsn A…

Sub FetchDataUsingAccessVBA() Dim accessApp As Object Dim dbPath As String Dim connStr As String Dim conn As Object Dim rs As Object Dim sqlStr As String Dim ws As Worksheet Dim i As Integer Dim j As Integer Dim vbaCode As String ' Access…

1.Access VBAでOracleに接続するコードの準備 '// Access内のVBAモジュールFunction ★GetOracleConnectionString() As String ' Oracleへの接続文字列 (DSN使用) Dim connStr As String connStr = "ODBC;DSN=YourDSN;UID=YourUsername;PWD=YourPassword" ' …