VB如何清空DATAGRID内容（DATAGRID通过ADODC控件导入EXCEL内容），导入数据的代码：
DimcnAsNewAdodb.Connection,rsAsNewAdodb.Recordsetcn.CursorLocation=adUseClientcn.Open...
Dim cn As New Adodb.Connection, rs As New Adodb.Recordset
cn.CursorLocation = adUseClient
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & "D:\System\文档\123.xls;Extended Properties='Excel 8.0;HDR=Yes'"
rs.Open "select * from [sheet1$]", cn, adOpenDynamic, adLockOptimistic
Set Adodc1.Recordset = rs
导入数据后，通过以下代码进行清空时，每次执行只能删除一条记录不能全部删除，请问如何修改？
清空数据的代码：
qq:
If Adodc1.Recordset.BOF = True Then
GoTo p
Else:
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
Adodc1.Refresh
GoTo qq
End If
（补充：清空数据的代码在正常录入的ADODC记录中可一次清空，换用Select case、 Do While、 With等语句时效果一样。） 展开
cn.CursorLocation = adUseClient
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & "D:\System\文档\123.xls;Extended Properties='Excel 8.0;HDR=Yes'"
rs.Open "select * from [sheet1$]", cn, adOpenDynamic, adLockOptimistic
Set Adodc1.Recordset = rs
导入数据后，通过以下代码进行清空时，每次执行只能删除一条记录不能全部删除，请问如何修改？
清空数据的代码：
qq:
If Adodc1.Recordset.BOF = True Then
GoTo p
Else:
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
Adodc1.Refresh
GoTo qq
End If
（补充：清空数据的代码在正常录入的ADODC记录中可一次清空，换用Select case、 Do While、 With等语句时效果一样。） 展开
1个回答
展开全部
参考答案 记住，最具深远意义的是：你唯一能完全控制的是你自己的心态。--希尔
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
