丹雪 发表于 2005-4-29 09:21:00

在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判断记录集是否为空,不为空的话,就要清空所以记录!怎么样清空所以记录呢?????

丹雪 发表于 2005-4-29 17:12:00

以上帖不用回了!
页: [1]
查看完整版本: 在VBA中实现对记录集的操作!