pb6连接本地sqlserver连不上连远程服务器可以连上,sql server 2008和PB9连接不上 怎么处理呀...

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 =

取消

评论

  • 0
    点赞
  • 0
    收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
©️2022 CSDN 皮肤主题:1024 设计师:我叫白小胖 返回首页
评论
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值