|
|
假设我用以下过程实现了与数据库的连接
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判断记录集是否为空,不为空的话,就要清空所以记录!怎么样清空所以记录呢????? |
|
置顶卡
