请问这是个什么错误啊 我在使用QUERY组件时进行模糊查询,总是出现Operation must be on then curren session还有错误insufficient memory for this operation alias dim.?我百思不得其解? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Operation must be on then curren session操作必须在当前会话上。insufficient memory for this operation alias dim.?为别名 dim 的此次操作没有足够的内存。 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; Edit1: TEdit; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);var namestr:string;begin namestr:=edit1.text; query1.Close; query1.SQL.Clear; query1.SQL.Add('Select * From dim.db where (Name>=:N1) and (Name<=:N2)'); query1.ParamByName('N1').AsString:=Namestr+chr(0); query1.ParamByName('N2').AsString:=Namestr+chr(255); //控制参数在Name+Chr(0)Name+Chr($ff)之间 query1.Open;end; 求delphi的数据类型 怎样很好解决程序不正常退出前加密重要文档 求教??????? 一个比较奇特的Ftp方面的问题 遍历对象的问题 哪位大虾,作过类似股票软件上面的趋势(回归)线????高分悬赏!!!!! 多线程数据库问题 喜欢来这里,喜欢看大家的帖子,感觉很亲切,还有温馨...虽然分不多,也来散散分!开心哦~~~~ 在Win32API中有否一个只选择目录名的API 如何指定treeview的焦点? .NET与COM/COM+ 有办法能通过消息控制一个BUTTON的ENABLE 或 disable 吗?
操作必须在当前会话上。
insufficient memory for this operation alias dim.?
为别名 dim 的此次操作没有足够的内存。
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Grids, DBGrids, Db, DBTables;type
TForm1 = class(TForm)
DataSource1: TDataSource;
Query1: TQuery;
DBGrid1: TDBGrid;
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
var
namestr:string;
begin
namestr:=edit1.text;
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('Select * From dim.db where (Name>=:N1) and (Name<=:N2)');
query1.ParamByName('N1').AsString:=Namestr+chr(0);
query1.ParamByName('N2').AsString:=Namestr+chr(255);
//控制参数在Name+Chr(0)Name+Chr($ff)之间
query1.Open;
end;