X
xiaolinj79
Unregistered / Unconfirmed
GUEST, unregistred user!
使用ActiveX Labrary作为容器，添加一个COM Object
并新增一个DataModule放入ADOConnection以及ADOQuery连接SQLServer2000数据库
在COM部件的接口中添加接口函数login，其代码如下
function TMyDllServer.Login(const UserID, Psw: WideString): OleVariant;
var
sSQL:string;
begin
sSQL:='select * from Tbl_UseHead where UserID='''+UserID+''' and PssW='''+Psw+'''';
with DataModule2.ADOQuery1do
begin
Close;
SQL.Clear;
SQL.Add(sSQL);
Open;
if RecordCount=0 then
result:=0
else
Result:=1;
end;
end;
然后做一个测试程序，就一个按钮用来调用这个函数，输出返回值
运行出错，提示为
Access violation at address 00FDE50A in module 'MyComServer.dll'.
Read of address 0000005C.
使用测试程序调试dll，单步执行出错语句停在
with DataModule2.ADOQuery1do
这一句
想问一下各位高手，是不是在COM方式中不能使用DataModue？
如果是这个原因，那么该如何在COM的函数中完成修改数据库内容的sql语句？
帮写个例子完成上面函数的功能即可，万分感谢啊！不，是100分感谢：）
这100分可是我刚赚来的：（
并新增一个DataModule放入ADOConnection以及ADOQuery连接SQLServer2000数据库
在COM部件的接口中添加接口函数login，其代码如下
function TMyDllServer.Login(const UserID, Psw: WideString): OleVariant;
var
sSQL:string;
begin
sSQL:='select * from Tbl_UseHead where UserID='''+UserID+''' and PssW='''+Psw+'''';
with DataModule2.ADOQuery1do
begin
Close;
SQL.Clear;
SQL.Add(sSQL);
Open;
if RecordCount=0 then
result:=0
else
Result:=1;
end;
end;
然后做一个测试程序，就一个按钮用来调用这个函数，输出返回值
运行出错，提示为
Access violation at address 00FDE50A in module 'MyComServer.dll'.
Read of address 0000005C.
使用测试程序调试dll，单步执行出错语句停在
with DataModule2.ADOQuery1do
这一句
想问一下各位高手，是不是在COM方式中不能使用DataModue？
如果是这个原因，那么该如何在COM的函数中完成修改数据库内容的sql语句？
帮写个例子完成上面函数的功能即可，万分感谢啊！不，是100分感谢：）
这100分可是我刚赚来的：（