我想在程序第一次运行前,清理数据库,怎么样把数据清除,保留结构嫩?
解决方案 »
- fastreport 打印 stringgrid简单问题
- interbase组件连接问题
- 多个Pagecontrol组件放在一处,如何在object treeview中,点击任一个pagecontrol 就会显示该pagecontrol的界面。
- 如何是Edit输入的数字右对齐?
- 西安找合租
- 问一个名词的意思
- delphi俱乐部OICQ群招新
- 在delphi5开发人员指南里,有一个封面例子,但只有代码,偶却不知道这些代码在哪里写的?书上(109页)也没有说
- 请教:我的这两个程序相差不大,为什么一个可以,一个不可以呢?
- TRichEdit的小问题
- Tchart的问题
- 大家请看看下面的SQL语句,其目的是先将一个表b进行条件查询,然后另外一个表a左连接b表,对b.zslbdm进行分组统计,结果报了如下错误!
1、执行Delete 语句,依次删除所有表的行。
2、先执行Drop table 语句删除表,再用Create Table 语句建立所需的表。
想清空时就复制一份过来覆盖
表名可以用AdoConnection.getTablesName来枚举
adoconnection.connectionstring:='连接';
adoconnection.active:=true;
adoquery.sql.add('select Name from Msysobjects where type=1 and left(name,3)<>'''+'MSys'+'''');
adoqurey.active:=true;
while not adoquery.eof do begin
adoConnection.execute('delete from '+adoquery.fieldvalues['name']);
adoquery.next;
end;