我键了一个 data module ,然后 在他上面放一个 Adoconnaction. 用这个adoconncation 连接了 一个 SQL SERVER 2000 数据库 。
然后我键了 另外,一个FORM 在这个FORM上 我放了一个 ADOQUERY 。把这个ADOQUERY与 data module 上的 Adoconnaction 相连,我在 FORM中的 USE 上加了 data module 的单元。然后我加一个按扭 它的代码如下
procedure Tbr.spdbtn_newClick(Sender: TObject);
begin
Adoquery1.Action := True;
end;
可是 ,为什么编译能通过,当按这个按扭后,出现“没有连接”错误呢?
然后我键了 另外,一个FORM 在这个FORM上 我放了一个 ADOQUERY 。把这个ADOQUERY与 data module 上的 Adoconnaction 相连,我在 FORM中的 USE 上加了 data module 的单元。然后我加一个按扭 它的代码如下
procedure Tbr.spdbtn_newClick(Sender: TObject);
begin
Adoquery1.Action := True;
end;
可是 ,为什么编译能通过,当按这个按扭后,出现“没有连接”错误呢?
然后再 Adoquery1.Actvie := True;
直接在form上
先use datamodule
再with datamodule.adoquery1 do
你也需要实实在在已经连通了数据库