回复 4楼 Artless
什么数据量?全部程序如下:
Private Sub Command2_Click()
Dim db As Database
'数据库
Dim rs As Recordset
'记录集,数据表
Dim ss As String
s = App.Path + "\用户信息.mdb"
Set db = DBEngine.Workspaces(0).OpenDatabase(s) '打开库
ss = "select * from 用户信息 where 姓名='" & Text1.Text & "'"
Set rs = db.OpenRecordset(ss, dbOpenDynaset)
'打开表,或一个记录集
rs.Delete
Data1.RecordSource = "用户信息"
Data1.Refresh
MSFlexGrid1.Refresh
End Sub
Public Sub yanshi()
savetime = Timer
While Timer < savetime + 0.5 '
DoEvents
Wend
End Sub
谢谢!