请问在PB中如何生成连接数据库的配置文件，急。。。。。
请问在PB中如何生成连接数据库的配置文件，急。。。。。 问题点数：20、回复次数：7Top
1 楼dfz_fan（迷惘ing）回复于 2002-06-04 10:46:57 得分 2
SetProfileString ( filename, section, key, value )
Argument Description
filename :A string whose value is the name of the profile file. If you do not include the full path in filename, PowerBuilder searches the DOS path for filename
section: A string whose value is the name of a group of related values in the profile file. If section does not exist in the file, PowerBuilder adds it
key: A string whose value is the key in section for which you want to specify a value. If key does not exist in section, PowerBuilder adds it
value: A string whose value is the value you want to specify for keyTop
2 楼pei（一笑）回复于 2002-06-04 10:48:50 得分 16
在笔记本里写就行，保存时写上后缀*.ini
[Database]
DBMS=MSS Microsoft SQL Server 6.x
Database=sbk
LogId=sa
LogPassword=
ServerName=pei
UserId=dba
DatabasePassword=
AutoCommit=False
DbParm=""
Top
3 楼bys_home（我是天才）回复于 2002-06-04 10:54:24 得分 2
有两种方法
1,在数据库配置中,点击preview 拷贝里面的代码,写到脚本中,加connect;
2,利用配置文件,写(请看书)Top
4 楼wk_1978（）回复于 2002-06-04 11:13:57 得分 0
用profilestring函数读取*.ini文件中的值，*.ini文件同： pei(一笑) 。如下：
sqlca.DBMS =profileString("*.ini","database","DBMS","")
sqlca.database =profileString("*.ini","database","Database","")
sqlca.servername =profileString（"*.ini","database","Servername","")
sqlca.logid =profileString("*.ini","database","Logid","")
sqlca.logpass =profileString("*.ini","database","Logpass","")
sqlca.autocommit = false
CONNECT USING sqlca;Top
5 楼mmjhcg（两岸有花）回复于 2002-06-04 11:38:15 得分 0
[Database]
dbms = ODBC
Database = sj
userid=sj
dbpass=691017
//logid=Administrator
//logpass=691017
servername= 192.168.0.1
DbParm=Connectstring='DSN=sj;uid=sj;pwd=691017'
这是我的设置文件（INI）Top
6 楼ldy（罗大佑）回复于 2002-06-04 11:43:59 得分 0
SetProfileString(gs_sysset,"sqlca", "LogId", sle_logid.Text)
SetProfileString(gs_sysset,"sqlca", "LogPass",fun_encode(sle_logpass.Text,"19770220"))
SetProfileString(gs_sysset,"sqlca", "ServerName", sle_server.Text)Top
7 楼ldy（罗大佑）回复于 2002-06-04 11:44:31 得分 0
if not FileExists(gs_sysset) then
li_FileNum = FileOpen(gs_sysset,StreamMode!, Write!, LockWrite!, Replace!)
Fileclose(li_FileNum)
end if
if SetProfileString(gs_sysset,"sqlca", "DataBaseName", sle_database.Text) <> 1 then
// MessageBox ("", "出错拉")
end if
SetProfileString(gs_sysset,"sqlca", "LogId", sle_logid.Text)
SetProfileString(gs_sysset,"sqlca", "LogPass",fun_encode(sle_logpass.Text,"19770220"))
SetProfileString(gs_sysset,"sqlca", "ServerName", sle_server.Text)
if ii_flag = 1 then
Messagebox("提示","您已经改变了数据库设置。请重新运行本系统。")
halt
end if
CloseWithReturn (Parent,1)Top
相关问题
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
