![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
ADOでAccessファイルに接続して、ファイルの更新日時を取得するには?
access2003です、
Private Sub 更新日時を取得()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim MyFileName As String
MyFileName = "D:\My Documents\システム.mdb"
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source= " & MyFileName
'ここで更新日時を取得
rs.Close: Set rs = Nothing
cn.Close: Set cn = Nothing
End Sub
この状態で、更新日時を取得するにはどうすればいいでしょう?
ご教授よろしくお願いします。
No.1ベストアンサー
- 回答日時:
> この状態で、更新日時を取得するにはどうすればいいでしょう?
これは、どう解釈すればよいのでしょうか。
Connection の中には、それらしい情報はないようです。
1)アクセスファイル自体の更新日付(エクスプローラで見た時の)なら、以下の方法になると思います。
http://www.officetanaka.net/excel/vba/filesystem …
2)接続した先の各テーブルの更新日付なら以下の様な雰囲気で
Microsoft ADO Ext ・・・・ の参照設定が必要です。
Dim cn As New ADODB.Connection
Dim catx As New ADOX.Catalog
Dim v As Variant
Const sPath As String = "D:\My Documents\システム.mdb"
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sPath & ";"
Set catx.ActiveConnection = cn
Debug.Print ">> catx Tables <<"
For Each v In catx.Tables
Debug.Print v.Name, v.DateCreated, v.DateModified
Next
cn.Close
3)テーブル内のレコードの更新日付なら、
それなりのフィールドがあり、その都度設定されていないと得ることが出来ないと思います。
データを追加/更新したからといって、テーブルの更新日付は変わらないようです。
ADOではファイルの更新日時は取得できないようですね。
FSOかADOXを使うとできるのですか。
2)の方法は、ファイルの更新日時ではなくテーブルの更新日時が取得できるのですか。
今は使いませんが、いつか使える時が来そうです。メモしました。ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Access(アクセス) access,vbaでフォルダ内のファイルをテーブルにインポート、ファイル名もフィールドに追加したい 1 2022/08/31 11:11
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Visual Basic(VBA) ExcelからAccessのテーブルに書き込む時に時間がかかる 1 2022/10/14 20:38
- Visual Basic(VBA) outlook マクロが終了しません。 1 2022/09/02 11:14
- Visual Basic(VBA) VBA This Workbookモジュールを別ファイルにコピーする方法 1 2022/09/14 01:51
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ACCESS DCOUNTの抽出条件について
-
ACCESS VBAでテーブル内の特定...
-
Access vbaで重複レコードの削...
-
データがあれば○○なければのSQL
-
ACCESSで購入回数を表示する方...
-
重複した複数のレコードを1レ...
-
アクセスで定数を利用したい。
-
DAOでSQLServerに接続し、LeftJ...
-
SQLServer→Access インポート
-
VBAでテーブル名とカラム名を動...
-
ADOでAccessファイルに接続して...
-
別のaccessファイルからデータ...
-
「ご処理進めて頂きますようお...
-
CloseとDisposeの違い
-
エクセルで、日付を入力すると...
-
VBAでループ内で使う変数名を可...
-
VBA エンターキーでイベントに...
-
エクセルVBAで、MsgBox やInput...
-
Excelで、ボタンにコメントをつ...
-
「PC Helpsoft Driver Updated...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
データがあれば○○なければのSQL
-
ACCESS DCOUNTの抽出条件について
-
ACCESS VBAでテーブル内の特定...
-
【access】複数のフィールドの...
-
Accessで縦と横を入れ替えたい
-
Access vbaで重複レコードの削...
-
抽出条件でデータ型が一致しま...
-
SQLServer→Access インポート
-
別のaccessファイルからデータ...
-
sql文で削除クエリを書く
-
ACCESSで購入回数を表示する方...
-
Accessリンクするテーブルが見...
-
DAOでSQLServerに接続し、LeftJ...
-
アクセスで定数を利用したい。
-
access vbaで前景色を指定したい
-
VBAでテーブル名とカラム名を動...
-
access追加クエリーでform入力...
-
ACCESSのクエリ、SQLに変数を使...
-
Access BetweenとLikeの組み合...
-
【PHP/MySQL】コード上で生成...
おすすめ情報