|
▼漂流民 さんありがとうございます
Recordsetです。Connectionで出きるはずがありませんでした。すみません。
間違っているかもしれませんがCドライブのtest.mdbのtasttableのレコード数を
カウントするついでにMsgBox .CursorTypeが3を返すためです。
すみません意味不明な質問ばかりで。-1はそれまでのカーソルタイプの値を使用すると言う解釈で僕はいます。
Sub Test()
Dim ADOConnetion As ADODB.Connection
Dim SelectCommand As String
Set ADOConnetion = New ADODB.Connection
With ADOConnetion
.Provider = "Microsoft.jet.oledb.4.0"
.ConnectionString = "Data Source=C:\test.mdb"
.Open
End With
SelectCommand = "tasttable"
With New ADODB.Recordset
.Source = SelectCommand
Set .ActiveConnection = ADOConnetion
.CursorType = adOpenStatic
.Open SelectCommand, ADOConnetion, adOpenUnspecified
MsgBox .CursorType
MsgBox .RecordCount
.Close
End With
ADOConnetion.Close
Set ADOConnetion = Nothing
End Sub
|
|