VB2005でDB接続後、後からパスワードを付けた際のVB設定方法

前へ 次へ
このQ&Aのポイント
  • VB2005でACCESSのDBに接続後、後からパスワードをDBに付ける際のVB設定方法をご教示ください。
  • 初心者の方でも簡単に設定できる方法を教えてください。
  • VB2005でのパスワード付きDB接続の方法について詳しく教えてください。
回答を見る
  • ベストアンサー

VB2005でDB接続後、DBを後からパスワードを付けた時のVB設定を教えて下さい。

VB2005が超初心者ですがよろしくお願いいたします。 VB2005でACCESSのDBに接続後、後からパスワードをDBにつけた時のVB設定を教えて下さい。 －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Accessファイルの絶対パス;Persist Security Info=False;Jet OLEDB:Database Password=パスワード 上記の事もやりましたが下記のエラーが出ます。 If (Me._connection Is Nothing) Then Me.InitConnection End If －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ 初心者の私ではこれ以上はいじれません。 簡単に設定出来ないでしょうか？ よろしくお願いいたします。

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

  • ベストアンサー
  • redfox63
  • ベストアンサー率71% (1325/1856)
回答No.1

接続文字列中の『Persist Security Info=False』を『Persist Security Info=True』に変更してみましょう もしアプリケーション設定に保存しているようであれば プロジェクト > プロジェクトのプロパティ > 左ペインで設定タブ 接続文字列の行の値列をクリック『...』ボタンをクリック パスワードを記入 『パスワードの保存』をチェック といった具合で良いようです 開発またはテスト段階ならこのように設定しておいても良いでしょうけど本来ならこの部分はユーザーに入力させるなどの工夫が必要だと思います

pxe_pxe
質問者

お礼

ご回答ありがとう御座います。 『Persist Security Info=True』でもダメで プロジェクト >・・・ 『パスワードの保存』をチェック　を入れ 自動で消されたPersist Security・・・・以降を 再入力で完璧でした。 最初に始めた頃はパスワードなんて後から簡単に設定できと アクセス気分で安易な考えでいました。 感動です。完璧です。 redfox63さん ありがとう御座いました。

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

関連する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' パスワードが正しくありません。

  • DBパスワードありVBAアクセスについて

    Access2010を使用しております。 Excel2010からAccessにVBAからSelect文でデータセット取得しようとしております。 接続には以下の記述で接続しようとしてますが、オートメーションエラーになります。 Set con = New ADODB.Connection con.Provider = "Microsoft.Ace.OLEDB.12.0" con.Properties("Jet OLEDB:Database Password") = Password con.Open "C:\\Directory" または con.Provider = "Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Directory;Jet OLEDB:Database Password=Password" con.Open などいろいろ試してますがうまくいきません。 パスワードがなければ以下の記述で開けるのですが。 con.Provider = "Microsoft.Ace.OLEDB.12.0" con.Open "c:\\Directory" アドバイス等お願いします。

  • データベースのパスワードを設定するには？

    VB .Netでデータベースを開くときにパスワードをきいてくるのですが、パスワードの設定の仕方がわかりません。 oleCn.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & dskstr & JISSEKINOW & ";"

  • コントロール使わずdropdownlistにDB項目設定

    OleDbConnectionや、OleDbDataAdapterのコントロールを使わずに dropdownlistにDBにある列の値を設定したいとき、どうしたらいいでしょうか。 自分のコード ' 接続 Dim conn As New System.Data.OleDb.OleDbConnection( _ "Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Registry Path=;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Database Password=;Data Source=""C:\Inetpub\Database\情報ＤＢ.mdb"";Password=;Jet OLEDB:Engine Type=5;Jet OLEDB:Global Bulk Transactions=1;Provider=""Microsoft.Jet.OLEDB.4.0"";Jet OLEDB:System database=;Jet OLEDB:SFP=False;Extended Properties=;Mode=Share Deny None;Jet OLEDB:New Database Password=;Jet OLEDB:Create System Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;User ID=Admin;Jet OLEDB:Encrypt Database=False") strTerminal = "SELECT * FROM [コード]" Dim dt1 As New System.Data.DataSet ''端末コードデータコピーする If Not IsPostBack Then adapterTerminal.Fill(dt1) ddl1.DataSource = dt1 ddl1.DataMember = "[コード]" ddl1.DataTextField = "[名称]" ddl1.DataBind() end If 実行しても、コンボボックスには空のまま＞＜ 設定方法くわしい方教えてください。 よろしくお願いします。

  • VB6.0とaccessのDBを接続する

    初めまして。 件名のようなことを実行する際、 以下のソースを参考にしようと思ったのですが、 ******************************************* Dim cn As New ADODB.Connection Dim rc As New ADODB.Recordset ' 接続を確立する cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=C:\My Documents\db1.mdb;" ' テーブル名を指定してレコードセットを作成する rs.Open "Table1", cn, adOpenKeyset, adLockOptimistic ************************************* > cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ > "Data Source=C:\My Documents\db1.mdb;" この部分の接続文字はどのようにしたら取得できるのでしょうか？ SQLserverのときは、コンポーネントから Microsoft ADO Data Control 6.0(AP4)(OLEDB) を追加し、プロパティでOLE　DBプロバイダを選択して接続文字を取得したのですが、accessに繋ぐのは初めてで、わかりません。 どなたか宜しくお願いいたします！！

  • パスワードが正しくありません。

    エクセルからPW付のアクセスファイルへADOで 接続したいのですが cn.Open "Provider = Microsoft.ACE.OLEDB.12.0;Data Source= D:PW.accdb;Jet OLEDB:Database Password=0000;" とすると 実行時エラー2147217843 パスワードが正しくありません。 と言うエラーになります。 でもパスワードはあってます。 手入力なら開けます。 コードが間違ってるのでしょうか？

  • VB2005にてデータベースに接続したい。

    VBの経験は、VB6にて簡単な改修などしか行ったことがない初心者です。質問の内容が自分のスキルと見合っていないことは承知しているのですが、業務上どうしても必要になってしまったのでお分かりでしたら教えて下さい。 現在、簡単な社員管理システムのようなものを作成していて、アクセスで作成したデータベースをVB2005を使って操作するようにしています。 その際に、データベースがある共有フォルダにパスワードが設定してあった場合の接続方法がわかりません。windows上で一度そのフォルダにアクセスして、ユーザー名、パスワードを入力し接続してしまえば、VBからも接続できるのですが・・・ 接続文字列の前に何か記入すべきコードがあるのでしょうか？お分かりの方がいらしたら教えて下さい。よろしくお願いします。 現在の接続文字列は以下のとおりです。 Dim Cn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\192.168.0.1\tadasuke2002\db1.mdb")

  • VB6.0でDB接続する際に切断時の処理が遅い

    VB6.0のADOで社内LAN上のサーバー(共有PC)内のデータベースファイル(Accesss2003のmdbファイル)へ接続、データ登録を行なっていますが、接続を閉じる際にcn.Close以降の処理で30秒近い時間がかかっています。 昼休み等で接続するユーザーがいない場合も処理時間がかかっています。 テストの為、同じmdbファイルをコピーし、別名のファイルに接続するように変更した場合は 1秒程度で終了します。(下記ソースの(1)と(2)を入れ替え) データ数は約2000件、ファイル容量17MB 接続するユーザーは最多で10名程度、各クライアントのPCで下記コードのEXEファイルを実行して 接続、データ登録しています。 原因、対策案等をご教授ください。 ---------------------------------------- Public Sub DB_ACCESS() Dim cn As ADODB.Connection Dim RS As ADODB.Recordset Set cn = New ADODB.Connection Set RS = New ADODB.Recordset Debug.Print "TEST-1: ", Time Access_DB_Source_File = "\\PC-SERVER\DB\Data_File.mdb" ---------- (1) 'Access_DB_Source_File = "\\PC-SERVER\DB\Data_File_Test.mdb" ---------- (2) cn.ConnectionString = _ "Provider=Microsoft.ACE.OLEDB.12.0;" & _ "Data Source = " & Access_DB_Source_File & _ ";Jet OLEDB:Database Password=otakast2061;" cn.Open 'この部分にデータ参照、登録等を行う処理が入る。 ' RS.Close Debug.Print "TEST-2: ", Time cn.Close Set RS = Nothing Set cn = Nothing Debug.Print "TEST-3: ", Time End Sub

  • VB2013でVB６でのDBは利用可能？

    VB４.0で作成してましたMicrosoft.Jet.OLEDB.4.0のDBをSQLSERVER2012で作成したDBに移行したいのですが VB2013では読み込めないのでしょうか？ データーベースエクスプローラーでは中身の確認はできるのですが プログラムで走らせるとSqlDataAdapter(sql, cnStr)のところでエラー下記[エラー結果]とになります Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Dim cnStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\SERVER\DB名.mdb" Dim sql As String sql = "SELECT * FROM テーブル名" Dim dt1 As New DataTable Dim da1 As New SqlDataAdapter(sql, cnStr) Try da1.Fill(dt1) DataGridView1.DataSource = dt1 Catch ex As Exception End Try End Sub [エラー結果] 型 'System.ArgumentException' のハンドルされていない例外が System.Data.dll で発生しました 追加情報:キーワードはサポートされていません : 'provider' 以前のmdbファイルが読み込める方法はないのでしょうか？

  • VB2005でＭＤＢに接続方法

    お世話になります。 ＶＢ2005でアクセスに接続したいのですが、 よく理解できません。 こんな感じで、ネットで見たのを 記述したのですが、なんかエラーになります。 ＶＢ6みたいに参照設定が必要なのでしょうか？ （記述例） Dim Cn As New OleDbConnection　 ↑で警告？になる。 ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\データ.mdb") Dim SQLCm As OleDbCommand = Cn.CreateCommand ↑参照コンポーネントがみつかりませんでした。 と怒られます。 宜しくお願いいたします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する