请各位大哥帮我看看这个三层的问题 ( 积分: 50 )

我在中间层定义了个函数
function Tclass_gl.date(const oldpass, newpass: WideString): OleVariant;
begin

adoquery1.Close;
adoquery1.SQL.Clear;
adoconnection1.Close;
//adoconnection1.ConnectionString:='Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=company;Data Source=JX ';
adoconnection1.Connected:=true;
ADOQuery1.SQL.Add('update admin set password = '+quotedstr(newpass)+
'where number = (select number from admin where password='+quotedstr(oldpass)+')');
adoquery1.Open;
result:=1;
end;
然后在客户端调用 socketconnection.appserver.date(edit1.text,edit2.text);
但是总是提示灾难性错误
为什么

我在中间层定义了个函数
function Tclass_gl.date(const oldpass, newpass: WideString): OleVariant;
begin

adoquery1.Close;
adoquery1.SQL.Clear;
adoconnection1.Close;
//adoconnection1.ConnectionString:='Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=company;Data Source=JX ';
adoconnection1.Connected:=true;
ADOQuery1.SQL.Add('update admin set password = '+quotedstr(newpass)+
'where number = (select number from admin where password='+quotedstr(oldpass)+')');
adoquery1.Open;
result:=1;
end;
然后在客户端调用 socketconnection.appserver.date(edit1.text,edit2.text);
但是总是提示灾难性错误
为什么

adoquery1.Open;
修改成
adoquery1.Execsql;
看看

应该是远程没有打开吧

adoQuery1.open 应该改为adoquery1.execSql
但应该不是问题的根本.
function Tclass_gl.date(const oldpass, newpass: WideString): OleVariant;
begin

adoquery1.Close;
adoquery1.SQL.Clear;
adoconnection1.Close;
//adoconnection1.ConnectionString:='Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=company;Data Source=JX ';
adoconnection1.Connected:=true;
ADOquery1.connection := ADOConnection1;
ADOquery1.close;
adoquery1.sql.clear;
ADOQuery1.SQL.Add('update admin set password = '+quotedstr(newpass)+
'where number = (select number from admin where password='+quotedstr(oldpass)+')');
adoquery1.Open;
result:=1;
end;

[]
呵呵，兄弟，就这些代码看不出来是什么错误啊，为什么，为什么就不自己跟踪一下呢？
如果你是怀疑这个函数有问题的话，那么把他的实现全去掉咯。

可能是服务器端的问题，没连接上，我曾遇到这样的问题，后来重新安装注册了COM+,好了