Ｐａｇｅ 514 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼パスワードの付いたDBのテーブルへフィールドを追加したい ほびっと 04/2/19(木) 13:45 ┗Re:パスワードの付いたDBのテーブルへフィールドを追加したい イケガミ 04/2/23(月) 0:36 ┗Re:パスワードの付いたDBのテーブルへフィールドを追加したい ほびっと 04/2/23(月) 10:03 ┗Re:パスワードの付いたDBのテーブルへフィールドを追加したい イケガミ 04/2/23(月) 15:33 ┗できました！！！ ほびっと 04/2/24(火) 16:09 ─────────────────────────────────────── ■題名 ： パスワードの付いたDBのテーブルへフィールドを追加したい ■名前 ： ほびっと ■日付 ： 04/2/19(木) 13:45 -------------------------------------------------------------------------
| Access2002、Windows2000です。 パスワードの付いたデータベース（mdb、パスワードは明らかになってます）のテーブルへフィールドを追加したいのです。 パスワードが付いていなければ、ADOX.Catalog ADOX.Table Append を用いてできるのですが、DBにパスワードかかっているとうまくいきません。 どうかアドバイスをよろしくお願いします。 |
| >パスワードの付いたデータベース（mdb、パスワードは明らかになってます）の >テーブルへフィールドを追加したいのです。 DAOじゃ、ダメなんでしょうか？ OpenDatabase メソッドで開けば、パスワードを使えたと思いますけど。。 |
| イケガミさん、ありがとうございます。 >>パスワードの付いたデータベース（mdb、パスワードは明らかになってます）の >>テーブルへフィールドを追加したいのです。 > >DAOじゃ、ダメなんでしょうか？ >OpenDatabase メソッドで開けば、パスワードを使えたと思いますけど。。 他のコードでADO使用しているので、DAOは使えないのです。 ADOでOpenDatabaseに相当するものはあるのでしょうか？ |
| >他のコードでADO使用しているので、DAOは使えないのです。 あんまり、よくはないのでしょうけど併用することは可能ですよ。 >ADOでOpenDatabaseに相当するものはあるのでしょうか？ DAO から ADO への移植 Jet Provider と組み合わせた ADO の使用 http://www.microsoft.com/japan/msdn/data/techmat/ado/dao2ado_2.asp こちらを確認してください。 |
| イケガミさん、いつもありがとうございます。 ↓を参照して、できました。ありがとうございました。 >>ADOでOpenDatabaseに相当するものはあるのでしょうか？ >DAO から ADO への移植 >Jet Provider と組み合わせた ADO の使用 >http://www.microsoft.com/japan/msdn/data/techmat/ado/dao2ado_2.asp > >こちらを確認してください。 ※こんな感じになりました※ Private Sub PwdDBTblAddFid() 'パスワードの付いたDBのテーブルへフィールドを追加 Dim cnn As New ADODB.Connection Dim catDB As New ADOX.Catalog Dim tbl As Table Dim strCon As String strCon = "Provider=Microsoft.Jet.OLEDB.4.0;" strCon = strCon & "Data Source=\対象データベース.mdb" strCon = strCon & "Jet OLEDB:Database Password=パスワード;" cnn.Open strCon catDB.ActiveConnection = cnn Set tbl = catDB.Tables![テーブル名] tbl.Columns.Append "フィールド名", adWChar Set tbl = Nothing Set catDB = Nothing cnn.Close End Sub |