我已经找到问题了,只要把table的active属性设为false就行了。但是这也说明
数据库打开失败了。我使用下面的语句:
procedure TWebModule1.WebModule1WebDefaultAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
Response.Content:='<HTML><HEAD><BODY>hELLO</BODY></HEAD></HTML>';
Table1.Active := False;
try
Table1.DatabaseName := 'memdb';
{或者 Table1.DatabaseName := 'e:/dadatsets'; }
Table1.TableName := 'memdata.db';
Table1.open;
Table1.Active := True;
except
on EDatabaseError do
begin
Response.Content:='<HTML><HEAD><BODY>open failed</BODY></HEAD></HTML>';
end;
end;
在浏览器中总是返回open failed,但是如果我直接运行的话则返回"hello",这
是怎么回事?我的数据库什么地方设错了?