1.SQL sp4
2.可以试着用ODBC测试看能不能连接上SQL，如果能连上，证明数据库没问题。
3.如果是脱离PB环境，检查你的DLL文件是否齐全。
4.如果不用SQLCA，代码如下：
If Not Fileexists(bzyb.ini) Then
MessageBox (警告,找不到系统配置文件，请与管理员联系！)
Halt
End If
//定义事务对象
YBJK_YY = CREATE Transaction
YBJK_YY.DBMS = ProfileString(bzyb.ini,database,DBMS,)
YBJK_YY.Database = ProfileString(bzyb.ini,database,Database,)
YBJK_YY.LogPass = ProfileString(bzyb.ini,database,LogPass,)
YBJK_YY.ServerName = ProfileString(bzyb.ini,database,ServerName,)
YBJK_YY.LogId = ProfileString(bzyb.ini,database,LogId,)
YBJK_YY.DBParm = ProfileString(bzyb.ini,database,DBParm,)
CONNECT USING YBJK_YY ;
If YBJK_YY.Sqlcode 0 Then
MessageBox (警告,数据库连接失败，请检查配置文件)
Halt
End If
配置文件信息如下：
[database]
DBMS = MSS Microsoft SQL Server 6.x
Database = newhis
LogPass = 1234
ServerName = .
LogId = sa
AutoCommit = True
DBParm =
5.如果使用SQLCA，代码如下：
If Not Fileexists(his.ini) Then
MessageBox (警告,找不到HIS系统配置文件，请与管理员联系！)
Halt
End If
//定义HIS事务对象
SQLCA.DBMS = ProfileString(his.ini,database,DBMS,)
SQLCA.Database = ProfileString(his.ini,database,Database,)
SQLCA.LogPass = ProfileString(his.ini,database,LogPass,)
SQLCA.ServerName = ProfileString(his.ini,database,ServerName,)
SQLCA.LogId = ProfileString(his.ini,database,LogId,)
SQLCA.DBParm = ProfileString(his.ini,database,DBParm,)
CONNECT USING SQLCA ;
If SQLCA.Sqlcode 0 Then
MessageBox (警告,数据库连接失败，请检查配置文件)
End If
Open (w_pass)
配置文件如下：
[database]
DBMS = MSS Microsoft SQL Server 6.x
LogPass =
Database = bzmyy
ServerName = .
LogId = sa
AutoCommit = False
DBParm =
取消
评论
如果觉得《pb6连接本地sqlserver连不上连远程服务器可以连上 sql server 和PB9连接不上 怎么处理呀...》对你有帮助，请点赞、收藏，并留下你的观点哦！
