PB怎么读取配置文件?
如何使ＰＢ读取配置文件上的服务器名，数据库，登陆ＩＤ，密码等使程序可以动态的连接数据源
问题点数：20、回复次数：14Top
1 楼jackiecheng001（想飞,可是没有翅膀）回复于 2006-12-01 13:50:57 得分 0
profile()Top
2 楼apodemakeles（尼尼）回复于 2006-12-01 13:53:42 得分 0
您能说的更详细点吗?Top
3 楼myvicy（我来也！）回复于 2006-12-01 13:53:51 得分 0
有自己的函数啊！楼上的。Top
4 楼myvicy（我来也！）回复于 2006-12-01 13:54:14 得分 0
查pb的帮助有例子。Top
5 楼yaozw_mountain（山林）回复于 2006-12-01 14:36:57 得分 0
profilestring,ProfileInt
setprofilestringTop
6 楼youqiong（牙齿冻的咯咯的响,肚子饿得咕咕的叫...）回复于 2006-12-01 14:57:42 得分 0
帮助里详细
The following statements open w_marketing if the string in the keyword Name in section Department of file C:\PROFILE.INI is Marketing:
IF ProfileString("C:\PROFILE.INI", "Department", &
"Name", "None") = "Marketing" THEN
Open(w_marketing)
END IFTop
7 楼wengbin（探索者）回复于 2006-12-02 16:38:15 得分 20
请参考
SQLCA.DBMS = "MSS Microsoft SQL Server 6.x"
SQLCA.Database = profilestring("milan.ini","sqlca","database","") //读取数据库名称
SQLCA.ServerName = profilestring("milan.ini","sqlca","server","") //读取server IP
SQLCA.LogId = "sa"
SQLCA.LogPass = profilestring("milan.ini","sqlca","logpass","xysh") //读取数据库登陆密码
SQLCA.AutoCommit = False
SQLCA.DBParm = ""
connect using sqlca;
if SQLCA.sqlcode<>0 then
Messagebox("数据库连接错误","请检查数据库有没有启动")
halt close
end if
open (w_maindl)Top
8 楼wuyanke（天才呆子）回复于 2006-12-03 19:26:06 得分 0
上面两家综合起来,外加
string ls_inifile
ls_inifile= getcurrentdirectory()
ls_inifile =ls_inifile+ "\PROFILE.ini"
Top
9 楼roc996（）回复于 2006-12-04 08:45:34 得分 0
设有配置文件 wen.ini
里面有字段[a]
字段[a]包含键值b=cdefg
读取配置文件
profilestring("wen.ini","a","b","")
设置键值
setprofilestring("wen.ini","a","b","cdefg")
cdefg是你想要读出或写入的内容Top
10 楼li_d_s（鄙视那些不懂Java却跑来乱骂的人，.NET没啥了不起）回复于 2006-12-04 09:18:56 得分 0
这么多新手啊？Top
11 楼sdhylj（青锋-SS)(献血有益健康(别人的)）回复于 2006-12-04 10:30:56 得分 0
应该找本PB的基础书籍看看.Top
12 楼Camper_beijing（Camper）回复于 2006-12-04 12:29:46 得分 0
ini的api
自定义也行啊!Top
13 楼logiori（）回复于 2006-12-04 13:32:39 得分 0
SQLCA.DBMS = "MSS Microsoft SQL Server 6.x"
SQLCA.Database = profilestring("milan.ini","sqlca","database","") //读取数据库名称
SQLCA.ServerName = profilestring("milan.ini","sqlca","server","") //读取server IP
SQLCA.LogId = "sa"
SQLCA.LogPass = profilestring("milan.ini","sqlca","logpass","xysh") //读取数据库登陆密码
SQLCA.AutoCommit = False
SQLCA.DBParm = ""
connect using sqlca;
if SQLCA.sqlcode<>0 then
Messagebox("数据库连接错误","请检查数据库有没有启动")
halt close
end if
open ()Top
14 楼yangjianw2004（阿伟）回复于 2006-12-04 15:52:05 得分 0
读取配置文件
profilestring("myfile.ini","","","")
设置键值
setprofilestring("mefile.ini","","","")
Top
