Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
530 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【11251】共有ドライブへのデータ接続方法 AccessVBA初心者 09/11/22(日) 18:20 質問[未読]
【11252】Re:共有ドライブへのデータ接続方法 小僧 09/11/24(火) 17:12 回答[未読]
【11253】Re:共有ドライブへのデータ接続方法 AccessVBA初心者 09/11/25(水) 1:02 お礼[未読]
【11251】共有ドライブへのデータ接続方法
質問  AccessVBA初心者  - 09/11/22(日) 18:20 -
引用なし
パスワード
   質問です。

・共有(Rﾄﾞﾗｲﾌﾞ)ドライブにあるMDBにｸﾗｲｱﾝﾄ側(Gﾄﾞﾗｲﾌﾞ)から接続する方法がしりたいです。
共有ドライブにあるMDBはセキュリティーの関係上パスワードがついております。

クラスモジュールで下記のような書き方だとエラーになります。
上記のようにパスワードがついているとどうしたらいいのか分かりません。

ご返答の程宜しくお願い致します。

Private adoCon As ADODB.Connection 'コネクションオブジェクト
Private adoRS　As ADODB.Recordset　'レコードセットオブジェクト

'■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
'■クラス初期処理（生成時に自動実行）
'■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
Private Sub Class_Initialize()

　 Const myPath As String = "D:\6108"
　 Dim Path As String
　 Path = myPath

　 Set adoCon = New ADODB.Connection

　 adoCon.Open "Driver={Microsoft Access Driver (*.mdb)};" _
　　　　　　 & "DBQ=" & Application.CurrentProject.Path & "\database.mdb;"

End Sub

◇Rﾄﾞﾗｲﾌﾞ：共有用◇　　　←　　　◇Gﾄﾞﾗｲﾌﾞ：個人用◇
ABC.mdb　　　　　　　　　　　　　DEF.mdb
ﾃｰﾌﾞﾙのみある　　　　　　　　　　フォームのみある
※ﾊﾟｽﾜｰﾄﾞ設定有り

という「←」の部分にたいする質問です。
【11252】Re:共有ドライブへのデータ接続方法
回答  小僧  - 09/11/24(火) 17:12 -
引用なし
パスワード
   ▼AccessVBA初心者 さん：
こんにちは。

ご提示された内容ですと、
どの辺が行き詰っているのかが解りづらいですね。


> 共有ドライブへのデータ接続方法（題名）
共有ドライブでなかったら接続できますか？

> セキュリティーの関係上パスワードがついております。
パスワードが付いてなかったら接続できますか？

> クラスモジュールで下記のような書き方だとエラーになります。
クラスモジュールを使わなければエラーが出ないのですか？


> ◇Rﾄﾞﾗｲﾌﾞ：共有用◇　　　←　　　◇Gﾄﾞﾗｲﾌﾞ：個人用◇
> ABC.mdb　　　　　　　　　　　　　DEF.mdb
> Const myPath As String = "D:\6108"
> DBQ=" & Application.CurrentProject.Path & "\database.mdb;"

提示されている情報がバラバラですよね。

そのままご提示されている内容から判断すると、
ただ単に データMDBのパス名、ファイル名が違う為
ファイルが存在しないエラーが発生しているだけに思えてしまいます。


パスワード付きMDBへADO接続をしたい、という事であれば
ConnectionString に "PWD=xxxx;" を追加してみて下さい。
【11253】Re:共有ドライブへのデータ接続方法
お礼  AccessVBA初心者  - 09/11/25(水) 1:02 -
引用なし
パスワード
   ご返信有難う御座います。

結論から申し上げますと、パスワード付きMDBへADO接続をしたいということです。

説明不足で失礼致しました。小僧さんのご提示頂いたヒントで

問題は解決致しました。有難う御座いました。


>こんにちは。
>
>ご提示された内容ですと、
>どの辺が行き詰っているのかが解りづらいですね。
>
>
>> 共有ドライブへのデータ接続方法（題名）
>共有ドライブでなかったら接続できますか？
>
>> セキュリティーの関係上パスワードがついております。
>パスワードが付いてなかったら接続できますか？
>
>> クラスモジュールで下記のような書き方だとエラーになります。
>クラスモジュールを使わなければエラーが出ないのですか？
>
>
>> ◇Rﾄﾞﾗｲﾌﾞ：共有用◇　　　←　　　◇Gﾄﾞﾗｲﾌﾞ：個人用◇
>> ABC.mdb　　　　　　　　　　　　　DEF.mdb
>> Const myPath As String = "D:\6108"
>> DBQ=" & Application.CurrentProject.Path & "\database.mdb;"
>
>提示されている情報がバラバラですよね。
>
>そのままご提示されている内容から判断すると、
>ただ単に データMDBのパス名、ファイル名が違う為
>ファイルが存在しないエラーが発生しているだけに思えてしまいます。
>
>
>パスワード付きMDBへADO接続をしたい、という事であれば
>ConnectionString に "PWD=xxxx;" を追加してみて下さい。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
530 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1078196
(SS)C-BOARD v3.8 is Free