|
Option Explicit
Const cnsADO_CONNECT1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
Const cnsADO_CONNECT2 = "\DB\SAMPLE.mdb;"
Sub TEST5()
Dim dbCon As New ADODB.Connection
Dim dbRes As New ADODB.Recordset
Dim dbCols As ADODB.Fields
Dim strSQL As String
dbCon.Open cnsADO_CONNECT1 & ThisWorkbook.Path & cnsADO_CONNECT2
strSQL = "SELECT * FROM GP開催マスタ WHERE 西暦年=2004 ORDER BY 開催順SEQ"
dbRes.Open strSQL, dbCon, adOpenKeyset, adLockReadOnly
'ここで取得したいのですが・・・。
dbRes.Close
Set dbRes = Nothing
dbCon.Close
Set dbCon = Nothing
End Sub
こうだとしたらどうやって取得するんですか?
|
|