Excel VBA質問箱 IV

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

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


34134 / 76732 ←次へ | 前へ→

【47811】Re:ACCESSに接続
発言  ウッシ  - 07/3/22(木) 20:35 -

引用なし
パスワード
   こんばんは

Sub test()
  Dim dbRes As ADODB.Recordset
  Dim dbCon As ADODB.Connection
  Dim strSQL As String
  Dim mCon  As String
  Dim mArray As Variant
    
  mCon = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
       "Data Source=C:\My Documents\SW_aa.mdb;" & _
       "Jet OLEDB:Database Password=ABCDE"
      
  Set dbCon = CreateObject("ADODB.Connection")
  dbCon.Open mCon
  
  Set dbRes = CreateObject("ADODB.Recordset")
  strSQL = "SELECT 項目 FROM A_DATA WHERE A_PNUM='99999'"
  
  Set dbRes = dbCon.Execute(strSQL, 1, 1)

'   ※いろんな処理

 ' レコードセット、データベースを閉じる
  dbRes.Close
  Set dbRes = Nothing
  dbCon.Close
  Set dbCon = Nothing
End Sub

とするとどうでしょうか?

0 hits

【47793】ACCESSに接続 みな 07/3/22(木) 16:18 質問
【47796】Re:ACCESSに接続 neptune 07/3/22(木) 16:29 回答
【47797】Re:ACCESSに接続 neptune 07/3/22(木) 16:32 回答
【47799】Re:ACCESSに接続 neptune 07/3/22(木) 16:59 回答
【47801】Re:ACCESSに接続 みな 07/3/22(木) 17:01 質問
【47803】Re:ACCESSに接続 Kein 07/3/22(木) 17:18 発言
【47818】Re:ACCESSに接続 みな 07/3/23(金) 9:02 発言
【47804】Re:ACCESSに接続 neptune 07/3/22(木) 17:29 回答
【47819】Re:ACCESSに接続 みな 07/3/23(金) 9:08 質問
【47811】Re:ACCESSに接続 ウッシ 07/3/22(木) 20:35 発言
【47817】Re:ACCESSに接続 みな 07/3/23(金) 8:59 質問
【47821】Re:ACCESSに接続 ウッシ 07/3/23(金) 9:30 発言
【47825】Re:ACCESSに接続 みな 07/3/23(金) 9:52 お礼

34134 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free