pb配置文件问题！！！！急！！！

lihan 2003-09-05 04:57:46

SQLCA.DBMS =ProfileString(as_iniFile,"Database","DBMS", " ")
SQLCA.Database =ProfileString(as_iniFile,"Database","DataBase", " ")
SQLCA.LogID =ProfileString(as_iniFile,"Database","LogID", " ")
SQLCA.LogPass =ProfileString(as_iniFile,"Database","LogPassword", " ")
SQLCA.ServerName =ProfileString(as_iniFile,"Database","ServerName", " ")
SQLCA.UserID =ProfileString(as_iniFile,"Database","UserID", " ")
SQLCA.DBPass =ProfileString(as_iniFile,"Database","DatabasePassword", " ")
SQLCA.Lock =ProfileString(as_iniFile,"Database","Lock", " ")
SQLCA.DbParm =ProfileString(as_iniFile,"Database","DbParm", " ")
Connect using SQLCA;
If SQLCA.SQLCode=0 Then
return 1
Else
return -1
End If

pb连接sql 7.0 的时候通过配置ini文件进行数据库连接。我现在用pb连接sql 2000通过上面的配置连接，sql 2000不能够在pb中database profiles 里面的ms sql server中直接进行数据源的创建和连接数据库。需要在odbc里面进行数据源的配置通过odbc进行数据库的连接。
寻求在pb中直接进行连接的方法像连接sql 7。0 一样，和如何进行ini文件配置通过此配置用户可以实现随时数据库连接的密码更改。pb7连接2000不通过odbc实现方法？

...全文

71 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

jdsnhan 2003-09-05

打赏
举报

同意阿毛的！
另，如果ini文件和程序是同级同目录，直接引用相对地址即可

liujiaqiang 2003-09-05

打赏
举报

QQ:6725264
MSN : liujiaqiang2003@hotmail.com

liujiaqiang 2003-09-05

打赏
举报

我告诉你:
在你的程序的目录下建立一个Datebase.ini文件，里面的内容为:
[Database]
DBMS=MSS Microsoft SQL Server 6.x
Database=你数据库的名称
UserId=
DatabasePassword=
LogPassword= '' //数据库管理员的密码,如果有则填写,否则为 ''
ServerName=你放置数据库的服务器的名称
LogId=sa //数据库管理员,默认为 sa
Lock=
DbParm=
Prompt=0

在PB应用的Open事件中写下这些代码:

as_iniFile = '你程序的目录\database.ini'

SQLCA.DBMS =ProfileString(as_iniFile,"Database","DBMS", " ")
SQLCA.Database =ProfileString(as_iniFile,"Database","DataBase", " ")
SQLCA.LogID =ProfileString(as_iniFile,"Database","LogID", " ")
SQLCA.LogPass =ProfileString(as_iniFile,"Database","LogPassword", " ")
SQLCA.ServerName =ProfileString(as_iniFile,"Database","ServerName", " ")
SQLCA.UserID =ProfileString(as_iniFile,"Database","UserID", " ")
SQLCA.DBPass =ProfileString(as_iniFile,"Database","DatabasePassword", " ")
SQLCA.Lock =ProfileString(as_iniFile,"Database","Lock", " ")
SQLCA.DbParm =ProfileString(as_iniFile,"Database","DbParm", " ")
Connect using SQLCA;
If SQLCA.SQLCode=0 Then
return 1
Else
return -1
End If

这样就可以了,如果不懂再问PB的兄弟们,我们会帮助你的.
祝你成功!!!!