求助——pb连接局域网内的ORCL数据库代码怎么写？ - PowerBuilder

空空剑客

等　级：新手上路
帖　子：2
专家分：0
注　册：2013-3-26

第 2 楼

得分:0

没人帮助啊

2013-03-27 09:15

zhaoyun1128

等　级：论坛游民
帖　子：7
专家分：10
注　册：2013-3-31

第 4 楼

得分:10

建一个ini文件，把连接信息配置进去
然后读取ini文件就可以
string ls_file
ls_file=".\cashier.ini"
SQLCA.DBMS       = ProfileString(ls_file,"database","DBMS"," ")

SQLCA.Database   = ProfileString(ls_file,"database","DataBase"," ")

SQLCA.LogID      = ProfileString(ls_file,"database","LogID"," ")

SQLCA.LogPass    = ProfileString(ls_file,"database","LogPassword"," ")

SQLCA.ServerName = ProfileString(ls_file,"database","ServerName"," ")

SQLCA.UserID     = ProfileString(ls_file,"database","UserID"," ")

SQLCA.DBPass     = ProfileString(ls_file,"database","DatabasePassword", " ")

SQLCA.Lock       = ProfileString(ls_file,"database","Lock"," ")

SQLCA.DbParm     = ProfileString(ls_file,"database","dbparm"," ")

SQLCA.autocommit = false
connect using SQLCA;
if SQLCA.sqlcode <> 0 then
    messagebox("错误提示","数据库连接失败，请检查配置文件"+SQLCA.sqlerrtext)
else
    open(w_login)
end if

2013-03-31 11:27