连接两个数据库问题,代码已有,帮帮忙

代码如下,第一个已经连接上,第二个为何连不上?清各位大虾执教!!!!
string str_file1,str_file,str_line
int int_ini_file
transaction sqlms,sql_asa
//environment l_env
//getenvironment(l_env)
//messagebox('信息提示',l_env.host)
sqlms=create transaction
sql_asa=create transaction
str_file1='ctsf.ini'
sql_asa.DBMS=ProfileString(str_file1,'Database',"DBMS","")
sql_asa.database=profilestring(str_file1,'database','database','')
sql_asa.logid=profilestring(str_file1,'database','logid','')
sql_asa.logpass=profilestring(str_file1,'database','logpassword','')
sql_asa.servername=profilestring(str_file1,'database','servername','')
sql_asa.userid=profilestring(str_file1,'database','userid','')
sql_asa.dbpass=profilestring(str_file1,'database','dbpass','')
sql_asa.lock=profilestring(str_file1,'database','lock','')
sql_asa.dbparm=profilestring(str_file1,'database','dbparm','')
connect using sql_asa;
if sql_asa.sqlcode=0 then
messagebox('','1')//这个对话框已经显示
end if
str_file='library.ini'
sqlms.DBMS=ProfileString(str_file,'Database',"DBMS","")
sqlms.database=ProfileString(str_file,'Database',"database","")
sqlms.servername=profilestring(str_file,'database','servername','')
sqlms.logid=profilestring(str_file,'database','logid','')
sqlms.logpass=profilestring(str_file,'database','logpass','')

connect using sqlms;
if sqlms.sqlcode=0 then
messagebox('','2')//对话框无显示
end if
open(w_dataputin)

11 个解决方案

#1

帮你顶

#2

觉得有问题.这样子连.
其实你代码没有错.不信你可以把你第一个连接和第二个连接换个位置,肯定换了以后你现在的sqlms连接可以连接上去但是你的sql_asa就不行.

#3

首先你应该确认你的sqlms是否获取了正确的值，
然后再确认你的连接的方法是否正确。

或者你在连接sqlms之前加上：
disconnect using sql_asa;

仅仅从你贴出的脚本上看不出什么毛病。

#4

你是在Aplication的open事件中这样写的么?如果是,这样子连接好像就不能成功,只能连一个.

#5

你要把错误提示贴出来。
调试一下sqlms的那些值设置是否有错。。

#6

你是在application里面写的这个代码么?同时连接两个数据库?

#7

你的dbms都是用的专用接口吗？第二个有可能是odbc，那样的话dbparm就没值了，，

另外，，你为什么要成功时判断了，在if后写个else弹出sqlerrtext不是很好吗？！

#8

第二个数据库pb能否连上，如果可以的话把database profile的设置的preview的内容搬过来，在一个个改成想要的摸样。

#9

标记，学习

#10

你把sqlerrtext贴出来，看一下，应该就有答案了

#11

谢谢各位大哥,我从新装了pb8.0,现在已经连接上了
以后还请大家多帮忙!!!!!!!!!
来者有分

#1

帮你顶

#2

#3

#4