Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

34140 / 76738

←次へ　｜　前へ→


	【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