在delphi里怎么建临时表? 在delphi里怎么建临时表? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 sql不行吗?直接CREATE TABLE 为什么不用视图??create view建表用create table 给你个例子:unit Unit1;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, DBGrids, Db, DBTables;type TForm1 = class(TForm) DataSource1: TDataSource; Query1: TQuery; DBGrid1: TDBGrid; Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure FormActivate(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1; i:integer;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);begini:=i+1;query1.SQL.clear;query1.sql.add('create table dademo (t1 integer )');//建只有一个字段名为t1(类型为整数型)的临时表dademoquery1.execsql;query1.SQL.clear;query1.sql.add('insert into dademo values('+inttostr(i)+')');//往临时表中加数据query1.ExecSql;//加完数据后,这中间你就可以对数据表进行查询,修改,删除等操作了query1.SQL.clear;query1.sql.Add('select * from dademo');query1.open;query1.active:=true;end;procedure TForm1.Button2Click(Sender: TObject);beginquery1.CloseDatabase (query1.database);if deletefile('dademo.db') then showmessage('ok!')//删除临时表,此时要注意你创建的临时表所在的目录 else showmessage('no!');end;procedure TForm1.FormActivate(Sender: TObject);begini:=0;end;end. create table #TempTable如果要创建一个和已经存在的表相同结构的临时表则:select * into #TempTable from table where .... 在MS SQL SERVER中CREATE TABLE ##TABLENAME --建全局临时表CREATE TABLE #TABLENAME --建局部临时表 在MS SQL SERVER中CREATE TABLE ##TABLENAME --建全局临时表CREATE TABLE #TABLENAME --建局部临时表抄袭的:SELECT * INTO ##TEMPTABLE FROM TABLE WHERE 1=0--空的表SELECT * INTO #TEMPTABLE FROM TABLE WHERE 1=0--空的表自己的:存储过程中建临时表出来后就没有的,还有别用EXEC去生成(和存储过程雷同) printwindow功能当程序在 GO-global 中运行时变得很慢 小弟刚学Delphi,小小问题问一问! 哪有gprs通信的相关文章和源码 delphi中如何用SQL语句实现日期时间型数据转换为日期型数据? 请问哪里可以下载installshield专业版5.5? 怎样提高打印质量的问题?(急,在线等待) 那位朋友帮帮忙,在数据库编程中怎样读取条形码值? 在DBGRID的列值怎样做成像COMBOBOX一样有可选的啊,并且是从库里面读的? 求救序列号 怎样在SQL里生成二维的表啊? 诚聘程序员!!! 学习Delphi的最佳捷径! 好书介绍!!
直接CREATE TABLE
create view
建表用create table
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Grids, DBGrids, Db, DBTables;type
TForm1 = class(TForm)
DataSource1: TDataSource;
Query1: TQuery;
DBGrid1: TDBGrid;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;
i:integer;
implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
begin
i:=i+1;
query1.SQL.clear;
query1.sql.add('create table dademo (t1 integer )');//建只有一个字段名为t1(类型为整数型)的临时表dademo
query1.execsql;
query1.SQL.clear;
query1.sql.add('insert into dademo values('+inttostr(i)+')');//往临时表中加数据
query1.ExecSql;
//加完数据后,这中间你就可以对数据表进行查询,修改,删除等操作了
query1.SQL.clear;
query1.sql.Add('select * from dademo');
query1.open;
query1.active:=true;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
query1.CloseDatabase (query1.database);
if deletefile('dademo.db') then showmessage('ok!')//删除临时表,此时要注意你创建的临时表所在的目录
else showmessage('no!');
end;procedure TForm1.FormActivate(Sender: TObject);
begin
i:=0;
end;end.
如果要创建一个和已经存在的表相同结构的临时表则:
select * into #TempTable from table where ....
CREATE TABLE ##TABLENAME --建全局临时表
CREATE TABLE #TABLENAME --建局部临时表
CREATE TABLE ##TABLENAME --建全局临时表
CREATE TABLE #TABLENAME --建局部临时表
抄袭的:
SELECT * INTO ##TEMPTABLE FROM TABLE WHERE 1=0--空的表
SELECT * INTO #TEMPTABLE FROM TABLE WHERE 1=0--空的表
自己的:
存储过程中建临时表出来后就没有的,还有别用EXEC去生成(和存储过程雷同)