错在哪里?小第初手!感谢您关注!(30分)

  • 主题发起人 主题发起人 hp_wang
  • 开始时间 开始时间
H

hp_wang

Unregistered / Unconfirmed
GUEST, unregistred user!
procedure Txsrbform.FormActivate(Sender: TObject);
begin
skqkquery.SQL.Text:='delete from skqk';//清空数据库
skqkquery.ExecSQL;
skqkquery.SQL.Clear;
skqkquery.SQL.Text:='select * from skqk';//打开数据库
skqkquery.Open;

就是编译不对!!!????
 
最后少个End
 
你这个程序是什么意思?既然删除了表skqk,然后怎么又打开它?
还有就是用delete语句来清空数据库是不对的
 
格式是不是错了呀?
Query应该是这样用的吧
Query1.SQL.Add('delete from table');
Query1.ExecSQL;
...
...
 
清空数据库
tblTemp.EmptyTable;
 
为什么不能用delete清空数据库????
 
什么的错误信息,说出来看看。。
 
错误信息?
 
同意楼上的。
少了个END.
 
我倒,感谢大家的帮助,但是小弟再初手也不至于不写END啊,何况END是DELPHI自动加
的啊!
出错提示是那种一串地址,X3499乱起八糟的什么‘强奸’的错误。
是这样的,我的数据库是每次打开前清空,只做临时保存,所以是清空上次的记录。
请大家继续分析,谢谢。
再有DELETE清空数据库是不对的,那该如何做呢?指点!

清空数据库
tblTemp.EmptyTable; 这种方法是不是ADO不可以啊?
 
procedure Txsrbform.FormActivate(Sender: TObject);
begin
skqkquery.SQL.Text:='delete from skqk';//清空数据库
skqkquery.ExecSQL;
skqkquery.close; //是不是没关闭就再去用它???????????????????
skqkquery.SQL.Text:='select * from skqk';//打开数据库
skqkquery.Open;

 
编译时出错
还是运行时出错?
 
procedure Txsrbform.FormActivate(Sender: TObject);
begin
skqkquery.close;
skqkquery.SQL.Text:='delete from skqk where 1=1';//清空数据库
skqkquery.ExecSQL;
skqkquery.close;
skqkquery.SQL.Text:='select * from skqk';//打开数据库
skqkquery.Open;
end;

 
我在楼上的朋友再加点东西
procedure Txsrbform.FormActivate(Sender: TObject);
begin
skqkquery.close;
skqkquery.SQL.clear;
skqkquery.SQL.Text:='delete from skqk where 1=1';//清空数据库
skqkquery.ExecSQL;
skqkquery.close;
skqkquery.SQL.clear;
skqkquery.SQL.Text:='select * from skqk';//打开数据库
skqkquery.Open;
end;
 
调用SQL前SQL.CLEAR很重要。
感谢枫和大家。
而SQL.TEXT和SQL.ADD()都可以。我的错就在给SQL语句时没有清空。
 
多人接受答案了。
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
737
import
I
后退
顶部