cgi中为什么一访问ADO就出错?(200分)

  • 主题发起人 主题发起人 新手上路请超车
  • 开始时间 开始时间

新手上路请超车

Unregistered / Unconfirmed
GUEST, unregistred user!
unit WebMd;
interface
uses
SysUtils, Classes, HTTPApp, HTTPProd,StrUtils, DB, ADODB;
type
TWebDM = class(TWebModule)
PageProducer1: TPageProducer;
webconn: TADOConnection;
aqDJ: TADOQuery;
PPDefault: TPageProducer;
procedure WebDMWebActionItem1Action(Sender: TObject;
Request: TWebRequest;
Response: TWebResponse;
var Handled: Boolean);
private
{ Private declarations }
djh,fwmb:integer;
public
{ Public declarations }
end;

var
WebDM: TWebDM;
implementation
{$R *.DFM}
procedure TWebDM.WebDMWebActionItem1Action(Sender: TObject;
Request: TWebRequest;
Response: TWebResponse;
var Handled: Boolean);
var s:Tstringlist;
begin
PageProducer1.HTMLFile:='';
fwmb:=strtoint(ReQuest.QueryFields[0]);
djh:=strtoint(ReQuest.QueryFields[1]);
s:=Tstringlist.Create;
try
ADOConnection1.Connected:=True;
except
s.Add('COnn error<br>');
end;
try
ADOQuery1.Close;
except
s.Add('ADO Error1(close error)<br>');
end;
try
ADOQuery1.Parameters.ParamValues['djbh']:=djh;
except
s.Add('ADO Error2<br>');
end;
try
ADOQuery1.Parameters.ParamValues['fwmbid']:=fwmb;
except
s.Add('ADO Error3<br>');
end;
try
ADOQuery1.Open;
except
s.Add('ADO Error4(open error)<br>');
end;
Response.Content:=PageProducer1.Content;
Handled:=True;
end;

end.

webdm.ADOConnection1和webdm.ADOQuery1的设置都没有问题
运行后得到的页面竟然是
COnn error
ADO Error1(close error)
ADO Error2
ADO Error3
ADO Error4(open error)
真是莫名,应当如何解决?
 
连接不上,可能还是和连接参数有关,
如果是Sql Server ,权限、密码是不是正确?
 
COM库初始化了没有?
 
to:jsxjd,NoSwing
ado和权限等均没有问题
我直接使用控件,所有的参数均已设定好,在设计期的状态均正常,不知道为什么
一运行就出错
 
在设计时Proptyies面板上把ADOConnection1.Connected:=false;关闭后才运行cgi
 
to zhongs
仍然出错
 
初始化,如:ActiveX.CoInitialize(nil)
 
先不要在CGI中试一下!便于调试。
 
我敢肯定是你的连接串有问题,在设计时可以,是否考虑路径有问题
 
我已经解决,多谢各位
 
多人接受答案了。
 
后退
顶部