過去ログ

                                Page      93
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
   通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫   
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
 ▼カレントmdb以外のmdbのテーブルのデータを更新したい  どーして? 02/10/31(木) 19:10
   ┗Re:カレントmdb以外のmdbのテーブルのデータを更新したい  こうちゃん 02/10/31(木) 20:43
      ┗Re:カレントmdb以外のmdbのテーブルのデータを更新したい  どーして? 02/11/8(金) 9:18

 ───────────────────────────────────────
 ■題名 : カレントmdb以外のmdbのテーブルのデータを更新したい
 ■名前 : どーして?
 ■日付 : 02/10/31(木) 19:10
 -------------------------------------------------------------------------
   こんばんは!Access2000初心者です。

Access2000でちょっとしたデータを印刷するmdbを作らないといけないんですが、
1.データだけのmdbと
2.ワークテーブル・フォーム・レポート・モジュールのmdbの
2つに分けて作りたいと思っています。
2.のMDBでは1.のテーブルを全てリンクしています。

2.は、
Set cnn1 = CurrentProject.Connection
frs1.Open "select * from テーブル名", cnn1, adOpenStatic, _
  adLockOptimistic, adCmdTableDirect
と書いているんですが、
1.はどう書けばいいんでしょうか?
 Set cnn2 = New ADODB.Connection 
 cnn2.Open "C:\1..mdb"

 ではダメなんでしょうか?

 ───────────────────────────────────────  ■題名 : Re:カレントmdb以外のmdbのテーブルのデータを更新したい  ■名前 : こうちゃん <nakajima19@hotmail.com>  ■日付 : 02/10/31(木) 20:43  -------------------------------------------------------------------------
     どーして?さん、こんばんは。

>1.データだけのmdbと
>2.ワークテーブル・フォーム・レポート・モジュールのmdbの
>2つに分けて作りたいと思っています。
>2.のMDBでは1.のテーブルを全てリンクしています。
>
>2.は、
>Set cnn1 = CurrentProject.Connection
>frs1.Open "select * from テーブル名", cnn1, adOpenStatic, _
>  adLockOptimistic, adCmdTableDirect
>と書いているんですが、
>1.はどう書けばいいんでしょうか?
> Set cnn2 = New ADODB.Connection 
> cnn2.Open "C:\1..mdb"
>
> ではダメなんでしょうか?

CurrentProject.Connectionを使っているので、ADOで接続でいいんですよね?

リンクテーブルならCurrentProject.Connectionでそのまま開けませんか?
(別のDB接続設定はいりません、あたかもそのMDBに存在するテーブルを開くようにってことです)
こんな感じです・・
frs2.Open "select * from リンクテーブル名", cnn1, adOpenStatic, _
  adLockOptimistic, adCmdTableDirect

ちなみに、もしリンクテーブルで無い場合はOLEDBプロバイダを指定します。
Accessのmdbの場合はこんな感じです・・

  Dim strConn As String
  Dim cnn2 As Adodb.Connection
  Dim frs2 As Adodb.Recordset

  strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\1..mdb"
  Set cnn2 = New ADODB.Connection
  cnn2.ConnectionString = strConn
  cnn2.Open
  Set frs2=New Adodb.Recordset
  frs2.Open "select * from リンクテーブル名", cnn1, adOpenStatic, _
    adLockOptimistic, adCmdTableDirect

   ****処理****

  frs2.Close
  cnn2.Close
  Set frs2 = Nothing
  Set cnn2 = Nothing

 ───────────────────────────────────────  ■題名 : Re:カレントmdb以外のmdbのテーブルのデータを更新したい  ■名前 : どーして?  ■日付 : 02/11/8(金) 9:18  -------------------------------------------------------------------------
   こうちゃんさん、ありがとうございました。

>リンクテーブルならCurrentProject.Connectionでそのまま開けませんか?
>(別のDB接続設定はいりません、あたかもそのMDBに存在するテーブルを開くようにってことです)

おっしゃるとおりですね。
試してから質問したら良かったと少々反省してます。
ありがとうございました。

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━    通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫    ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━                                 Page 93