PB9.0如何连接服务器上的数据库？

fengkoulangjian 2010-03-02 11:39:25

本人用PB9.0写了个小程序，想连接服务器上的SQLServer数据库，实现一些查询功能。

但如何才能连接服务器上的数据库啊？在APP里代码是什么啊？

服务器：192.168.50.11
数据库名：CMDB
登入名：ta
密码：ta

谢谢~

...全文

376 17 打赏收藏转发到动态举报

写回复

用AI写文章

17 条回复

切换为时间正序

请发表友善的回复…

发表回复

PB菜鸟 2010-03-02

打赏
举报

引用 1 楼 xys_777 的回复:

// Profile data
SQLCA.DBMS = "MSS Microsoft SQL Server 6.x"
SQLCA.Database = "CMDB"
SQLCA.LogPass = "ta"
SQLCA.ServerName = "192.168.50.11"
SQLCA.LogId = "ta"
SQLCA.AutoCommit = False
SQLCA.DBParm = ""

connect;

可以根据SQLCA.SQLCODE查看数据库的连接情况。

永生天地 2010-03-02

打赏
举报

// Profile data
SQLCA.DBMS = "MSS Microsoft SQL Server 6.x"
SQLCA.Database = "CMDB"
SQLCA.LogPass = "ta"
SQLCA.ServerName = "192.168.50.11"
SQLCA.LogId = "ta"
SQLCA.AutoCommit = False
SQLCA.DBParm = ""

connect;

fengkoulangjian 2010-03-02

打赏
举报

ODBC解决

结贴~

flashixj61 2010-03-02

打赏
举报

先在pb9.0工具栏的db profile里按向导建好连接，然后在其preview标签页里把连接信息copy过来，或者直接参考一下。

fengkoulangjian 2010-03-02

打赏
举报

本地也安装了sqlserver的

wag_enu 2010-03-02

打赏
举报

PB9 连接 SQL 2005 可以用ODBC 或 OLE DB

flashixj61 2010-03-02

打赏
举报

这个提示还是驱动程序的名称不认。
你本地机器上可装了sqlserver的客户端或都仅连接的驱动？

fengkoulangjian 2010-03-02

打赏
举报

用的是sqlserver2005

楼上的建议还是....

DBMS MSS Microsoft SQL Server is not supported in your current installation.

flashixj61 2010-03-02

打赏
举报

或者：
SQLCA.DBMS = "MSS Microsoft SQL Server"
6.x 是Microsoft SQL的90年代的一个版本了，早就不用了。

fengkoulangjian 2010-03-02

打赏
举报

还是不行，用SQLCA.DBMS = "MSS"
sqlca.sqlerrtext显示：

DBMS MSS is not supported in your current installation.

flashixj61 2010-03-02

打赏
举报

SQLCA.DBMS = "MSS"
简单一点，这样应该就可以了。

fengkoulangjian 2010-03-02

打赏
举报

sqlca.sqlerrtext显示：

DBMS MSS Microsoft SQL Server 6.x is not supported in your current installation.

pb8 2010-03-02

打赏
举报

引用 5 楼 fengkoulangjian 的回复:

首先感谢1楼和3楼的朋友

我用：
if SQLCA.sqlcode = -1 then
messagebox("提示","连接失败")
end if
if SQLCA.sqlcode = 0 then
messagebox("提示","修改成功")
end if
做测试，提示连接失败，程序编译无错误，怎么回事儿啊？

按上面写的方式弹出sqlca.sqlerrtext就知道是为什么了

fengkoulangjian 2010-03-02

打赏
举报

服务器上是SQLServer2005

fengkoulangjian 2010-03-02

打赏
举报

首先感谢1楼和3楼的朋友

我用：
if SQLCA.sqlcode = -1 then
messagebox("提示","连接失败")
end if
if SQLCA.sqlcode = 0 then
messagebox("提示","修改成功")
end if
做测试，提示连接失败，程序编译无错误，怎么回事儿啊？

pb8 2010-03-02

打赏
举报

#1楼的代码上补充，
if SQLCA.SQLCODE<>0 then
MessageBox('连接数据库失败',sqlca.sqlerrtext,StopSign!)
Halt Close;
end if

zengtc 2010-03-02

打赏
举报



// Profile data 

SQLCA.DBMS = "MSS Microsoft SQL Server 6.x" 

SQLCA.Database = "CMDB" 

SQLCA.LogPass = "ta" 

SQLCA.ServerName = "192.168.50.11" 

SQLCA.LogId = "ta" 

SQLCA.AutoCommit = False 

SQLCA.DBParm = "" 



connect using sqlca;