在VBA中实现对记录集的操作!

丹雪

假设我用以下过程实现了与数据库的连接 Public strPath As String
Dim adoCon As Connection '连接对象
Dim adors4 As Recordset Private Sub UserForm_Initialize()

'必须首先获得当前的工程路径
strPath = ThisDrawing.Application.VBE.ActiveVBProject.FileName

'连接数据库
Set adoCon = New Connection
adoCon.CursorLocation = adUseClient
adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Left(strPath, Len(strPath) - 8) & "road.mdb;"


Set adors4 = New Recordset
adors4.Open "Preferences", adoCon, adOpenDynamic, adLockOptimistic


End Sub 接下来在某个按扭的单击事件中,通过adoRs4.RecordCount > 0判断记录集是否为空,不为空的话,就要清空所以记录!怎么样清空所以记录呢?????

丹雪

以上帖不用回了!