- 128 名前：デフォルトの名無しさん mailto:sage [2017/05/21(日) 23:02:22.04 ID:+shsKnP00.net]
- データベースとの接続処理で一つ教えてください
Sub test()
Dim wkR As New ADODB.Recordset
S_RecordsetClose (wkR)
End Sub
レコードセットのcloseとnothingの処理を一つにまとめようとしたんですが、
型が一致しません と S_RecordsetClose (wkR) のところでエラーになります
Debug.Print TypeName(wkR) で見たら当然（だと思うんですが）Recordsetに
なってるんで、なんでこれで型の不一致になるんです？
ちなみに S_RecordsetClose に書いた処理は↓です
Sub S_RecordsetClose(ByVal rec As Recordset)
rec.Close
Set rec = Nothing
End Sub
