盒子论坛 v2.1

select into newtable from (select * from mytable where ...)
----------------------------------------------
我来自农村广阔的田野我的每一个动作都很夸张http://waterstone.51r.com

作者：

lzgvcd (111)	★☆☆☆☆	-
	盒子活跃会员

2004/3/6 15:31:52

2楼：

谢谢,一时着急给忘了
----------------------------------------------
2222

作者：

lzgvcd (111)	★☆☆☆☆	-
	盒子活跃会员

2004/3/6 15:56:22

3楼：

现在还有个问题就是我用sql语句可以给sqlquery里增加数据,但是我用procedure FillRecord(ConStr: String;level:string);
var
  i: Integer;
begin
  if commondata.SQLConnection1.Connected =false then commondata.SQLConnection1.Connected :=true;
  OpenAll(commondata.Squerylog ,'log');
  commondata.Squerylog.Append;
  commondata.Squerylog.FieldByName('username').AsString :=loginfrm.LEditUser.text;
  commondata.Squerylog.FieldByName('Dates').AsString := FormatDateTime('dddddd  dddd', Now);
  commondata.Squerylog.FieldByName('ComeTime').AsString := FormatDateTime('tt', Now);
  commondata.Squerylog.FieldByName('GoTime').AsString := FormatDateTime('tt', Now);
  commondata.Squerylog.FieldByName('Connected').AsString := '成功';
  commondata.Squerylog.Post;
  if constr = '普通用户' then
  begin
    commondata.Squerylog.FieldByName('usertype').AsString  := '普通用户';
    commondata.Squerylog.FieldByName('userip').AsString:=loginfrm.ClientSocket1.Socket.LocalAddress;
    cLoginTimeStr := commondata.Squerylog.FieldByName('ComeTime').AsString;
  end
  else
  if constr = '高级用户' then
  begin
    commondata.Squerylog.FieldByName('usertype').AsString  := '高级用户';
  end
  else
  begin
     commondata.Squerylog.FieldByName('Usertype').AsString := '管理员';
     commondata.Squerylog.FieldByName('UserIp').AsString := loginfrm.ServerSocket1.Socket.localAddress;
   ing;
  end;
  commondata.Squerylog.Post;
end;
procedure openall(query:tsqlquery;dataname:string);
begin
   query.SQL.Clear;
   query.SQL.Add('select * from '+dataname);
   query.Open;
end;
commondata.Squerylog.Post;在这里老是出现错误
---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EDatabaseError with message 'Squerylog: Cannot modify a read-only dataset'. Process stopped. Use Step or Run to continue.
---------------------------
OK   Help
---------------------------

----------------------------------------------
2222

作者：

hybswang (nihao)	★☆☆☆☆	-
	盒子活跃会员

2004/3/7 14:03:46

4楼：

insert into biao select * form biao1 where (sdhfh)
就OK了
----------------------------------------------
-

信息

登陆以后才能回复