作者steven76 (steven)
看板Visual_Basic
标题[VB6 ] 请教一个资料库的问题
时间Fri Feb 2 22:57:10 2007
各位好
小弟在写一个资料库的程式，
这一个命令纽是要将ACCESS里面的资料，
还有VB表单的Text输入的资料，全部删除
可是执行後却出现424错误的讯息
程式码如下，希望知道的大大告知一下
谢谢
While Adodc1.Recordset.EOF = False
DataGrid.Row = 1
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
Wend
If Adodc1.Recordset.EOF = True Then
Adodc1.Recordset.MoveLast
End If
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 59.117.115.4
1F：推 fumizuki:你都 Eof 了为何还 MoveLast @@ 02/02 22:59
2F：推 jackdawliu:If Adodc1.Record 这一段似乎不用 02/03 08:44