• ベストアンサー

パスワードを設定したMDBからのデータの取得について

クリエイトオブジェクトを使い、MDBをオープンしていたのですが、このたびMDBにパスワードを設定しました。しかし、このMDBの開き方がわかりません。どうしたらよいのでしょうか？Connectionの後ろにパスワードを書いたりしたのですがうまくいきません。よろしくお願いします。 Set objDb = CreateObject("ADODB.Connection") objDb.Open "Memo" こんな感じです↑

質問者が選んだベストアンサー

  • ベストアンサー
  • mnabe
  • ベストアンサー率33% (427/1283)
回答No.1

Set objDb = CreateObject("ADODB.Connection") objDb.Open "システムDSN名",,"password" っで、できませんか？

zima_id
質問者

お礼

どうもありがとうございました。 あっさりできました（笑）

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Microsoft ASP

関連するQ&A

  • MDBパスワード設定済みDBへ接続

    MDBパスワード設定済み（排他オープンからの設定）のＤＢへ接続を試みているのですが、うまく 接続できません。 ご教授ください。 ASP　vbscript <ソース> set objCon=ServerCreateObject("ADODB.Connection") cn1 = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "DataSource=" & Server.path("db.mdb") & ";Jet OLEDB:Database Password=password;" objCon.Open cn1 ＜エラー＞ Microsoft JET Database Engine エラー '80040e4d' パスワードが正しくありません。

  • ASP + MDBで発生したエラーが解決できません。。。

    こんにちは。 いま、ローカルＰＣでシステム開発をしています。 環境としては、 　WindowsXP + IIS + ASP + MDB(ACCESS2003） です。 いま、MDBにDB接続して、データを取得しようとしているのですが、以下のエラーが発生していて、治りません。 【エラータイプ】 Microsoft VBScript 実行時エラー (0x800A01B6) オブジェクトでサポートされていないプロパティまたはメソッドです。：Open ソースコードは以下の通りです。 【ソース】 'コネクションオブジェクト Set objCon = Server.CreateObject("ADODB.Connection") objCon.Provider = "Microsoft.Jet.OLEDB.4.0" objCon.ConnectionString = "C:\test.mdb" objCon.Open 'レコードセットオブジェクト objRs = Server.CreateObject("ADODB.Recordset") objRs.Open strSQL, objCon, 3 上記のobjRs.Open→Set objRs = objCon.Executeに変更するとエラーは発生しないのですが、RecordCountなどのプロパティが利用できません。 色々と調査したのですが、全くわかりません。 どなたか情報をご存知でしたら、ぜひともご教示ください。 宜しくお願いします。

  • VBSのデータベース操作で、複数mdb扱いたい

    VBSにて、Accessのmdbファイルを操作するのですが、複数mdbファイルを操作することは可能なのでしょうか？ 以下は、A.mdbのオブジェクトから、取得した値でフォルダを作成し、A.mdbをコピーして、コピー先のmdbファイルのオブジェクトより、データ削除をしようとしています。ただ、mdbファイルを複数指定したもののどこでファイルが紐づくのかわかりません。 'コピーや、フォルダ作成済、ADO定数ファイルの読み込み済 strDbName1 = A.mdb strDbName2 = Pフォルダ\A.mdb Set objAdoCon = WScript.CreateObject("ADODB.Connection") If Err.Number = 0 Then objAdoCon.ConnectionString = _ "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & strDbName1 " & ";" & strDbName2 '複数指定　※1 objAdoCon.Open Set objAdoRset = WScript.CreateObject("ADODB.Recordset") このあと、strDbName1 , strDbName2　を使い分けるにはどのようなSQL文を書けばよいのでしょうか？ もしかしたら、※1のところが間違っているのでしょうか？ どうか、教えてください。お願いします。

  • ADOを使用して、パスワードの設定されているエクセルファイルを開く方法

    ADOを使いエクセルファイルを更新モードでオープンしたいのですが、このエクセルファイルにパスワード（例：読み込み用：aaa、書き込み用：bbb）が設定されていたら、どのように記述すれば良いですか。 パスワードが設定されていない場合は、下記の記述でうまくいきます。 ご存知の方がいらっしゃいましたら、よろしくお願い致します。 'ADOオブジェクトを作成 Set objADO = CreateObject("ADODB.Connection") '更新モードでオープン objADO.Open "Driver={Microsoft Excel Driver (*.xls)};" & "DBQ=" & SavePath & ";" & "ReadOnly=0"

  • 【EXCEL VBA】ローカルmdbからデータを取得したい

    （環境） 　WindowsXP 　Excel2003 　Access2003 現在、SQLサーバーからデータを取得しています。 下記のソースです（一部抜粋） Private Const SRC_SQL = "Provider=SQLOLEDB.1;User ID=testid;Password=testpass;Data Source=TEST-DB-1;Initial Catalog=testDB" Private Const TBL_TEST = "TEST.テストテーブル" Public Sub　TEST_PRO Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Set cn = CreateObject("ADODB.Connection") cn.CommandTimeout = 0 cn.Open SRC_SQL strSQL = "SELECT X.*, FROM " & TBL_TEST & " X" strSQL = strSQL & " WHERE X.担当者CD = '" & wNAME & "'" strSQL = strSQL & " AND X.オープン日 >= '" & start_dt & "'" strSQL = strSQL & " AND X.オープン日 < '" & end_dt & "'" strSQL = strSQL & " ORDER BY X.オープン日 ASC" Set rs = CreateObject("ADODB.Recordset") rs.Open strSQL, cn With rs ～～～ End With Set rs = Nothing End Sub これを、SQLサーバーではなく、 C:\TESTACCESS.mdbのテーブル：テストテーブル からデータを取得するように変更したいのですが、 どのようにコーディングすればよろしいでしょうか？ よろしくお願いします。

  • MDBへの接続方法

    ASPからMDBへの接続の仕方がわかりません。 以前の質問と同じ内容のものを探していましたら、 以下のような解答があったのを見つけました。 しかし、ちょっと私には理解できず・・・。 >まず、ODBC設定でシステムDSNを設定します。 このときにmdbファイルの場所も設定します。 [データベース]という枠に中に[選択]というボタンがあるはずなので、ここで、mdbファイルを設定する必要があります。 ODBC設定でファイルを指定しておくことがポイントです。 次に <% Set conn = Server.CreateObject("ADODB.Connection") conn.open "MYDSN" %> と書けばつながります。 ここの「MYDSN」はODBC設定で指定したデータソース名です。 下手にMapPath等を使わずにまず、初歩から始めましょう。 ODBC設定というのはどこでやるのでしょうか？

  • NEWキーワードとCreateObjectは同じ？

    NEWキーワードとCreateObjectは同じことをするのでしょうか？ Sub ADO_Sample1() Dim cn As New ADODB.Connection Set cn = CreateObject("ADODB.Connection") cn.Open "Provider = Microsoft.ACE.OLEDB.12.0;Data Source=" & _ "D:\Mail.mdb;Jet OLEDB:Database;" Debug.Print "ファイルに接続できました。" cn.Close: Set cn = Nothing End Sub このようなコードの時、 Set cn = CreateObject("ADODB.Connection") は、あってもなくても問題ないようです。 NEWとCreateObjectがある場合は、 ２度データベースに接続してしまうのでしょうか？ NEWとCreateObjectがあってもエラーにならない理由を教えてください。

  • ソートの設定

    ＡＳＰでアクセス９７を使って品番、納期という順番に表示させたいのですが うまくいきません。 ＳＱＬ文を使って品番順にはならんだのですが、納期がばらばらになってしまいます。どうしたら品番、納期順という並びになるか教えて下さい。 Dim Conn,SQL,RS xxxx=server.mappath("*****.mdb") DBName="Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & xxxx Set Conn = Server.CreateObject("ADODB.Connection") Conn.open DBName SQL = "select * from ******" SQL = SQL & " order by 品番 asc" set RS = Server.CreateObject("ADODB.Recordset") RS.Open SQL, Conn,3,3

  • VBからAccessへの接続でエラー

    OS:Win2K SP4 SOFT:VB6 ACCESS2K Dim strDatabase As String Dim cn As Object Dim rs As Object Sub xx() Set cn = CreateObject("ADODB.Connection") Set rs = CreateObject("ADODB.Recordset") strDatabase = "C:\出荷配送システム\mftbc.mdb" cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & strDatabase ・ 　　　　　　・ 　　　　　　・ End Sub 上記ソースの「cn.OPEN」メソッドでエラーが発生します。 エラー内容は 'OPEN'メソッドは失敗しました。'_Connection'オブジェクト データベースに接続できません。 です。 何が原因なんでしょうか？？ mdbのあるPath,File名は合っています。

  • Excel VBA について教えて下さい

    Excel VBA でAccess接続します 今までは Sub aaa() Set cn = CreateObject("ADODB.Connection") cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=aaa.mdb;" End Sub のように使っていましたが（単一プロシージャ） Set cn = CreateObject("ADODB.Connection") の部分をパブリックにして Sub bbb() cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=aaa.mdb;" End Sub 別のプロシージャからも、使えるためには パブリックにするための方法を教えて下さい

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する