为啥按钮要击打二次才显示数据
下面这个程序是将F盘的：DATA.txt文件逐行导入到数据库中，不管DATA.txt数据多少行，第1次点击按钮时表格（Adodc1）不显示数据，再点击一次按钮才显示表格数据，请指点，谢谢！
问题已结解决！
Private Sub Command1_Click()
Dim con As Object
Set con = CreateObject("ADODB.Connection")
Adodc1.Refresh '刷新
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\数据条件源.mdb;Persist Security Info=False"
con.Execute ("delete from 表1") 'Execute执行清空的表1
con.Execute ("insert into 表1 SELECT f1 as 数据 FROM [Text;FMT=TabDelimited;HDR=NO;DATABASE=F:\].[DATA.txt];")
con.Close
MsgBox "已经成功将文本文件数据保存为数据库！"
End Sub
[此贴子已经被作者于2024-2-20 11:34编辑过]
