Sybase中,问一个临时表的问题~ (35分)

  • 主题发起人 主题发起人 代码雪儿
  • 开始时间 开始时间

代码雪儿

Unregistered / Unconfirmed
GUEST, unregistred user!
·用Query连接Sybase,窗体控件Query1,Query2
·为什么必须先要用Query2先执行一个没有目的的 SQL,才能在创建的临时表
里查询数据?
·看代码:
·
//这段代码虽然能创建临时表,但是不能查询
procedure TForm1.Button1Click(Sender: TObject);
var strSQL:string;
begin
strSQL:='Create table #TempTest(aaa int,bbb int)';
with self.Query1 do begin
close;
sql.clear;
sql.Add(StrSQl);
execSQl;
ShowMessage('OK,Create Succ');
end;
end;
//这段代码虽然能创建临时表,但是先要做个无目的的查询
procedure TForm1.Button2Click(Sender: TObject);
var StrSQL:string;
begin
StrSQL:='Select * from Machine';
with self.Query2 do begin
close;
sql.clear;
sql.add(StrSQL);
open;
if not isEMpty then begin
self.Button1.OnClick(Self);//开始创建临时表
end;
//close; 关掉以后就不能查询临时表了
end;
end;
//这段代码是用创建临时表的Query1查询出数据。
procedure TForm1.Button3Click(Sender: TObject);
var strSQL:string;
begin
strSQL:='Select * from #TempTest';
with self.Query1 do begin
close;
sql.clear;
sql.Add(StrSQl);
open;
ShowMessage('OK');
end;
end;
//拜托大家了,分数不多(顷我所有了,谢谢)
 
不写那个查询会怎么样?
还有,把TDatabase update一下会怎么样?
 
不写那个查询会创建的临时表不能操作
 
procedure TForm1.Button1Click(Sender: TObject);
var strSQL:string;
begin
strSQL:='Create table #TempTest(aaa int,bbb int)';
with self.Query1 do begin
close;
sql.clear;
sql.Add(StrSQl);
[red]sql.add('go');//增加此名试试看[/red]
execSQl;
ShowMessage('OK,Create Succ');
end;
end;
 
多人接受答案了。
 
后退
顶部