如何在退出程序时，删除全部数据库数据（如果100分不够还可以给）

Question

Call Rs12close
Rs12.CursorLocation = adUseClient
Rs12.Open "select * from xlcjxlp", Cn, adOpenStatic, adLockOptimistic
If Rs12.RecordCount > 0 Then
   Rs12.Delete
   Rs12.MoveNext
   Text2.Text = ""
   Text4.Text = ""
   Text5.Text = ""
   Set DataGrid2.DataSource = Rs12
End If

Answer 1

Truncate table 呵呵！就全没有了。

Answer 2

dragontaotao(宛猪哥哥) 你好，请给出代码 谢谢

Answer 3

Rs12.Open "select * from xlcjxlp", Cn, 3,3

Answer 4

henrryzhang(North Wolf),我不是很明白你写的代码