使用ADO的问题

niat97222 2002-12-21 10:01:46

我的程序使用ADO连接数据库，在设计的时候Adoconnection连接到本地的数据库，但是编译好之后，会读取注册表信息，然后根据注册表里面的数据，动态的创建ConnectionString然后去连接数据库。
但是，我如果是在adoconnection还连接着数据库的时候，将程序编译好，这样拿到客户那里的话，程序开始运行的时候adoconnection就会去试图连接我写程序的时候的那个数据库，然后报一个错，找不到数据库，然后再去读取注册表信息，构建ConnectionString连接客户的数据库。
可是我如果编译的时候把Adoconnection和数据库断开的话，编译好的程序拿到客户那里的时候，就会直接读取注册表信息，然后根据注册表信息构建ConnectionString，然后连接数据库，不会尝试去连接一个不存在的数据库。
我现在有什么办法可以不管编译的时候我的Adoconnection是什么状态，程序换个地方还是直接去读注册表信息，然后连接客户的数据库呢

...全文

25 20 打赏收藏转发到动态举报

写回复

用AI写文章

20 条回复

切换为时间正序

请发表友善的回复…

发表回复

niat97222 2003-01-09

打赏
举报

晕倒,都结过一次帖了得

井中老男孩 2003-01-09

打赏
举报

该揭贴了

4130046 2003-01-04

打赏
举报

都是高手，看不懂什么意思！不是太空人把？

TOMWLD 2003-01-04

打赏
举报

在ADOConnection的BeforeConnect事件中动态设定ConnectionString

smilelhh 2003-01-04

打赏
举报

你在程序里面将adoconnect的connectstr设为空,(不要设置属性)
联接用程序代码实现就可以了.

井中老男孩 2003-01-04

打赏
举报

function TMainDataModule.GetConnectionString(const strKey,ConString:String): String;
var
m_reg:TRegistry;
begin
//获得数据库连接串
//ConString='' 从注册表中获得连接串,如果不存在则生成
//ConString<>'' 编辑存在的连接串,然后更新注册表
m_reg:=TRegistry.Create;
m_reg.RootKey:=HKEY_LOCAL_MACHINE;
m_reg.OpenKey(app.RegKey,true);
if ConString='' then //从注册表中读取
begin
Result:=m_reg.ReadString(strKey);
if Result='' then
begin
Result:=PromptDataSource(Application.Handle,ConString);
Result:=ConStringEncrypt(Result);
if Result<>'' then
m_reg.WriteString(strKey,Result);
end;
end
else //编辑存在的连接串
begin
Result:=PromptDataSource(Application.Handle,ConString);
Result:=ConStringEncrypt(Result);
m_reg.WriteString(strKey,Result);
end;
m_reg.Free;
Result:=ConStringDecrypt(Result);
end;

ConStringDecrypt
ConStringEncrypt
是字符串加密解密函数，要想加密的话自己写，否则不用加密了。

gxh973121 2003-01-04

打赏
举报

肯定是你设计错误，好好调试一下

niat97222 2003-01-03

打赏
举报

再没人回帖了,只好结贴把

INeedCa 2002-12-23

打赏
举报

可能是我没有说清楚把，只有INeedCa(缺钙)理解了我的意思，将AdocConnection的Connected属性设置为False然活再编译就可以解决问题，但是，我在写程序的时候，只有一访问数据库，AdoConnection的Connected属性就会变为True，假如我编译的时候忘记改回去了，程序拿到客户那里就会出问题了。所以，可以怎么样避免呢
--------
尽量在代码里设置你的ADOConnection的连接（在你的逻辑中真正要连接数据库的时候），不要设计期就设定连接。

niat97222 2002-12-23