我使用数据库,编译的时候在OPEN句运行时弹出如下的异常错误。
raised exception class EDBEngineError with message 'Insufficient memory for this operation. Alias :YANQING'.process stopped/
怎么说没有内存去做OPEN表的操作呢。为什么??
YANQING是数据库名。DEPT,和ZWs为表名下面是代码,希望能帮我找出原因,谢谢
procedure TForm8.FormCreate(Sender: TObject);
begin
Table1.TableName:='Dept';
try
begin
Table1.Active := true;
Table1.Open;//这里出现异常 table1.First ; while not table1.Eof do
begin
combobox1.items.Append ('['+Table1.Fields[1].Value +']'+Table1.Fields[2].Value);
combobox1.ItemIndex :=0;
end;
Table1.Active := false;
Table1.Close;
end;
except
showmessage('读取数据库出现错误,请检查!');
end; Table1.TableName:='ZW';
try
begin
Table1.Active := true;
Table1.Open;//这里也出现异常 table1.first; while not table1.Eof do
begin
combobox2.items.Append ('['+Table1.Fields[1].Value +']'+Table1.Fields[2].Value);
combobox2.ItemIndex :=0;
end;
Table1.Active := false;
Table1.Close;
end;
except
showmessage('读取数据库出现错误,请检查!');
end;
end;
raised exception class EDBEngineError with message 'Insufficient memory for this operation. Alias :YANQING'.process stopped/
怎么说没有内存去做OPEN表的操作呢。为什么??
YANQING是数据库名。DEPT,和ZWs为表名下面是代码,希望能帮我找出原因,谢谢
procedure TForm8.FormCreate(Sender: TObject);
begin
Table1.TableName:='Dept';
try
begin
Table1.Active := true;
Table1.Open;//这里出现异常 table1.First ; while not table1.Eof do
begin
combobox1.items.Append ('['+Table1.Fields[1].Value +']'+Table1.Fields[2].Value);
combobox1.ItemIndex :=0;
end;
Table1.Active := false;
Table1.Close;
end;
except
showmessage('读取数据库出现错误,请检查!');
end; Table1.TableName:='ZW';
try
begin
Table1.Active := true;
Table1.Open;//这里也出现异常 table1.first; while not table1.Eof do
begin
combobox2.items.Append ('['+Table1.Fields[1].Value +']'+Table1.Fields[2].Value);
combobox2.ItemIndex :=0;
end;
Table1.Active := false;
Table1.Close;
end;
except
showmessage('读取数据库出现错误,请检查!');
end;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货