|
こんばんは
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
とするとどうでしょうか?
|
|