adoquery1.close;
adoquery1.sql.clear;
adoquery1.sql.add ('create Table outocreate1 (ID INT not null)');
adoquery1.sql.add ('create Table outocreate2 (ID INT not null)');
adoquery1.execsql;
///可以吗?
adoquery1.sql.clear;
adoquery1.sql.add ('create Table outocreate1 (ID INT not null)');
adoquery1.sql.add ('create Table outocreate2 (ID INT not null)');
adoquery1.execsql;
///可以吗?
解决方案 »
- 把主调程序的变量传到DLL的窗体上.
- 请问如何在MSDN网站中找到一个win32 api 的详细说明,比如PeekMessage?
- 数组内容没改变咋办?
- Delphi与SQL Sever,Excel的连接
- 用delphi7自带的install shell打包的时候,出现代号1324的错误。高分相送!
- Trunc(2.003415072233e+15)=-1524562442,谁遇到过?
- 如何把通过dbgrid分页显示的qrery中的所有数据选中并下载到本地呢?
- pchar怎么用?函数如何传递数组参数?问题多多!
- 想编写一段公用的程序,在工程的每个的form中都可以调用,要做哪些事情?
- 出售Delphi应用程序源代码!
- 如何在不执行SQl的情况下排列数据
- 为什么我的 OnMouseDown 不起作用?
adoquery1.sql.clear;
adoquery1.sql.add ('create Table outocreate1 (ID INT not null)');
adoquery1.execsql;
adoquery1.sql.clear;
adoquery1.sql.add ('create Table outocreate2 (ID INT not null)');
adoquery1.execsql;
adoquery1.sql.clear;
adoquery1.sql.add ('drop Table outocreate1');//这句删除表。
//adoquery1.sql.add ('create Table outocreate2 (ID INT not null,name char(8) not null)');//这句创
//adoquery1.sql.add ('create Table outocreate3 (ID INT not null,name char(8) not null)');//这句创
adoquery1.execsql;
showmessage('成功删除了表 outcreate1');
{......................................................................}
adoquery2.close;
adoquery2.sql.clear;
adoquery2.sql.add ('create Table outocreate1 (ID INT not null,name char(8) not null)');//这句创建表。
adoquery2.execsql;
showmessage('成功创建了表 outcreate1');
//这样得了!!!
query.sql.cleare ;
query.sql.add('select...');
query.execsql;
放在一个函数中,使用起来会比较的方便,比如
query.of_execsql('create ...')