生徒：先生、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" ' …

SELECT CStr(フィールド名) AS 文字列フィールド名 FROM テーブル名;

発注先毎の連番: DCount("*","クエリ2","[項目] < '" & [項目] & "' and [発注先] =" & [発注先])+1

Sub GetDataFromOracleViaAccess() Dim conn As Object Dim rs As Object Dim strConn As String Dim strSQL As String Dim ws As Worksheet Dim i As Integer ' Accessデータベースのパス Dim dbPath As String dbPath = "C:\Path\To\Your\Access\Database.…

Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Declare PtrSafe Function FindWindowEx Lib "user32" Alias "FindWindowExA" _ (ByVal hWnd1 As Long, ByV…

Sub RunAccessQueryAndLoginToOracle() Dim accessApp As Object Dim dbPath As String Dim queryName As String Dim odbcDriverName As String Dim oracleUsername As String Dim oraclePassword As String Dim hWnd As Long Dim startTime As Double ' Acc…

Sub GetDataFromAccess() Dim conn As Object Dim rs As Object Dim strConnection As String Dim strSQL As String Dim ws As Worksheet ' Create a new ADODB connection object Set conn = CreateObject("ADODB.Connection") ' Create a new ADODB record…

Sub GetDataFromAccessUsingDSN() Dim conn As Object Dim rs As Object Dim strConnection As String Dim strSQL As String Dim ws As Worksheet ' Create a new ADODB connection object Set conn = CreateObject("ADODB.Connection") ' Create a new ADOD…

Sub GetDataFromAccess() '「Microsoft ActiveX Data Objects 2.8 Library」をチェック Dim conn As Object Dim rs As Object Dim strConnection As String Dim strSQL As String ' Create a new ADODB connection object Set conn = CreateObject("ADODB.Co…

--------------------------------------------------------------------------------------------- ' ユーザー名とパスワードを設定 Dim userid As String Dim password As String userid = "ユーザー名" ' 適切なユーザー名に置き換えてください password …

Sub ExcelからAccessデータ抽出() ' 変数定義 Dim conn As Object Dim rs As Object Dim strConnection As String Dim strSQL As String Dim ws As Worksheet Dim param1 As String Dim param2 As String Dim param3 As String ' Accessデータベースのパス D…