如何创建临时表,以及插入、编辑等操作?

youandi2000 2004-05-13 01:59:34
请问如何在delphi+access2000中创建临时表,以及在什么样的条件下需要使用临时表,另外就是关于对临时表的插入、编辑等操作,希望有详细的说明?
...全文
219 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
luckzhangs 2004-05-13
  • 打赏
  • 举报
回复
to yeke0325(叶柯)
是不是少了一个#啊
cn.execute('select * into #temp_table from table_name')
qizhanfeng 2004-05-13
  • 打赏
  • 举报
回复

create table #table_tmp ( col int)--临时表
insert into #table_tmp select 3
union select 4
select * from tempdb..#table_tmp--创建到了tempdb数据库中

CREATE TABLE #MyTempTable (cola INT PRIMARY KEY)
INSERT INTO #MyTempTable VALUES (1)

use pubs
select * into table_tmp from authors
select table_tmp
table_tmp是已经存在了是个实表
建议drop table table_tmp
gogopeng 2004-05-13
  • 打赏
  • 举报
回复
直接用sql语句,推荐参考《SQL IN NUT》,写的很详细
yeke0325 2004-05-13
  • 打赏
  • 举报
回复
cn.Execute ("select * into temp_table from table_name")
楚人无衣 2004-05-13
  • 打赏
  • 举报
回复
你试一下,用的是ADODateSet来创建:
...
adsTest: TADODataSet;
...
procedure TfrmAdsData.FormCreate(Sender: TObject);
var
i: Integer;
begin
with adsTest.FieldDefs.AddFieldDef do
begin
Name := 'spring';
Size := 8;
DataType := ftString;
end;
with adsTest.FieldDefs.AddFieldDef do
begin
Name := 'summer';
Size := 8;
DataType := ftString;
end;
with adsTest.FieldDefs.AddFieldDef do
begin
Name := 'autumn';
Size := 8;
DataType := ftString;
end;
with adsTest.FieldDefs.AddFieldDef do
begin
Name := 'winter';
Size := 8;
DataType := ftString;
end;

adsTest.CreateDataSet; {创建临时表}
adsTest.Open;
for i := 0 to 12 do {写入数据}
begin
adsTest.Append;
adsTest.FieldByName('spring').AsString := 'Spring ' + IntToStr(i);
adsTest.FieldByName('summer').AsString := 'Summer ' + IntToStr(i);
adsTest.FieldByName('autumn').AsString := 'Autumn ' + IntToStr(i);
adsTest.FieldByName('winter').AsString := 'Winter ' + IntToStr(i);
adsTest.Post;
end;
end;
...

2,497

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧