为什么不能写注册表啊? (高分+在线)

[galiton]

PB 6.5 + ACCESS 2000,用ODBC连接.

在程序中写注册表的代码如下, 在客户端执行程序后发现注册表没有任何改变.

本人系菜鸟,请教高手,我应该怎样修改啊?


//代码如下:
//如果第一次运行更新注册表
integer i_rc
string s_odbcKey,s_odbcKeyList[]

s_odbcKey="HKEY_LOCAL_MACHINE\SoftWare\ODBC\odbc.ini\clientmanage"
i_rc=RegistryKeys(s_odbcKey,s_odbcKeyList)
if i_rc=-1 then //如果ODBC没有注册,进行注册
s_odbcKey="HKEY_LOCAL_MACHINE\SoftWare\ODBC\odbc.ini\clientmanage"
RegistrySet(s_odbcKey,"DBQ",RegString!,"testpb.mdb")
RegistrySet(s_odbcKey,"Description",RegString!,"clientmanage")
RegistrySet(s_odbcKey,"Driver",RegString!,"odbcjt32.dll")
RegistrySet(s_odbcKey,"DriverId",RegULong!,25)
RegistrySet(s_odbcKey,"FIL",RegString!,"MS Access;")
RegistrySet(s_odbcKey,"SafeTransactions",RegULong!,0)
RegistrySet(s_odbcKey,"UID",RegString!,"")
s_odbcKey="HKEY_LOCAL_MACHINE\SoftWare\ODBC\odbc.ini\clientmanage\Engines\Jet"
RegistrySet(s_odbcKey,"ImplicitCommitSync",RegString!,"Yes")
RegistrySet(s_odbcKey,"MaxBufferSize",RegULong!,512)
RegistrySet(s_odbcKey,"PageTimeout",RegULong!,5)
RegistrySet(s_odbcKey,"Threads",RegULong!,3)
RegistrySet(s_odbcKey,"UserCommitSync",RegString!,"Yes")
s_odbcKey="HKEY_LOCAL_MACHINE\SoftWare\ODBC\odbc.ini\ODBC Data Sources"
RegistrySet(s_odbcKey,"real estate database",RegString!,"Microsoft Access Driver (*.mdb)")
end if

[galiton]

up

[galiton]

没有人知道吗?

[freshman113]

代码没有问题，是否由于WINDOWS登录用户没有写注册表的权限？

[galiton]

我是用ADMINISTRATOR登陆的啊?

如果是的话,有什么办法检测吗?

谢谢!

[freshman113]

判断RegistrySet的返回值是否为1

[tchatcha]

你手动连接下看是否成功

[xirumin]

同意楼上，有可能注册表被某些病毒锁死。在“运行”中打开写一写试试。
返回1正确，-1不正确

另外在程序中写不是好办法，在程序中只读比较好，在安装程序中写。

[galiton]

返回为1

系统提示:
Cannot connect!
sqlstate = IM002
[Microsoft][ODBC Driver Manager][Data soource name not found and no default driver sprecified]

[galiton]

手工配置 数据库能够正常连接.
在98 和2000下手工配置都没有问题.

[galiton]

手工配置 数据库能够正常连接.在98 和2000下手工配置都没有问题.

RegistrySet的返回值为1

系统提示:
Cannot connect!
sqlstate = IM002
[Microsoft][ODBC Driver Manager][Data soource name not found and no default driver sprecified]