PB程序 访问服务器的数据库成功，但是程序出错！！！

flakyxd 2018-10-06 02:06:35
如图：



环境PB5开发的ERP系统程序，之前连接的是Win2003 里的sql 2000.
电脑服务器坏了之后，就把数据库物理拷贝出来，附加到新的电脑服务器里的 sql 2000里。
然后，客户端就连接不上,提示：unable to connect: SQL server is unavailable or does not exist
连接方式：
[Database]

Vendors=ODBC,SYB SQL Server v4.x,SYC Sybase System 10 CTLIB,IN5 I-Net v5.x,MSS (Msoft) SQL Server 6.0,O71 ORACLE v7.1,O72 ORACLE v7.2

DBMS=MSS

ServerName=SQLSERVER

Database=dbname

UserID=

DatabasePassword=

LogId=sa

LogPassword=sapd

DbParm=

用上面这个方式连接不了新电脑里的数据库，但是我用其他客户端可以连接新电脑里的数据库。

后来换了个连接方式：


[Database]

Vendors=ODBC,SYB SQL Server v4.x,SYC Sybase System 10 CTLIB,IN5 I-Net v5.x,MSS (Msoft) SQL Server 6.0,O71 



ORACLE v7.1,O72 ORACLE v7.2

DBMS=ODBC



; DBParm=DelimitIdentifier can be added to DbParm

; to control whether quotes are placed around

; table and column names in SQL

; DbParm=DelimitIdentifier='YES'

DbParm="ConnectString='DSN=odbc1;database=dbname;server=SQLSERVER;UID=sa;PWD=sa'"

connect;


这个odbc1在客户端里的ODBC数据源里添加了，然后成功连接数据库，程序也可以登录了
但是用的过程中出现了


另外，我在服务器里用程序也可以连接登录，也不会出现这个错误，操作也正常。
我试过在win2008服务器里安装sql2008结果也一样。
有没有办法解决客户端连接登录后操作不会出错的办法？
这个ERP系统叫融丰，找了他们的电话已经没有这个公司了。
...全文
548 点赞 收藏 30
写回复
30 条回复
切换为时间正序
当前发帖距今超过3年，不再开放新的回复
发表回复
flakyxd 2018-10-22
引用 29 楼 r00_a2lBUR 的回复:
那么老的系统还能运行,厉害啊

确实挺强的，客户端到win7还能正常运行很不错。
 回复 赞
r00_a2lBUR 2018-10-21
那么老的系统还能运行,厉害啊
 回复 赞
WMERP 2018-10-19
PB runtime 工具包，你试试找找瞎子啊或者在PB开始菜单中中自己制作一个
 回复 赞
flakyxd 2018-10-19
能连接的客户端还有个必要条件就是，服务器的区域语言和高级选项里必须选英语或日语就可以连接，而且不出错。
或是不改区域语言和高级选项，sql server 的服务器设置里 默认语音改为 英语也可以连接，而且不出错。
但是其他客户端还是无法连接
 回复 赞
flakyxd 2018-10-19
我现在可以连接的客户端的PB都是60版本的DLL，复制到其他客户端后注册失败
 回复 赞
flakyxd 2018-10-18
今天在一台客户端里安装了PB开发工具各个版本后，就可以连接服务器了，而且不出错。
难道我要每台客户端都安装PB开发工具吗？这个不现实。。。
 回复 赞
flakyxd 2018-10-16
引用 21 楼 yusantos 的回复:
看一下你的客户端软件目录里面是否有这个文件。ntwdblib.DLL 没有的话网上下一个放进来。再试一下。

有，版本是6.50.409
 回复 赞
flakyxd 2018-10-16
引用 22 楼 wosind 的回复:
用的IP还是实例名访问。
telnet端口有没有正常打开。
本机访问、局域网问、互联网访问是有区别的，本机能访问不能说明其他方式就没有问题。

用IP和实例名访问都试过了结果一样。
局域网问不能访问
 回复 赞
aolixiaox 2018-10-12
用的IP还是实例名访问。
telnet端口有没有正常打开。
本机访问、局域网问、互联网访问是有区别的，本机能访问不能说明其他方式就没有问题。
 回复 赞
yusantos 2018-10-12
看一下你的客户端软件目录里面是否有这个文件。ntwdblib.DLL 没有的话网上下一个放进来。再试一下。
 回复 赞
flakyxd 2018-10-12
虽然看到了连接参数，但是参数是没问题的。不知道为什么连接不了
同样配置文件timeway.ini 我在服务器本机上可以连接，在客户端就不能连接
问题还是出在服务器那里
我理解的DBMS=MSS (Msoft) SQL Server 6.0 这个方式是 Microsoft SQL Server类型的OLE DB
到底是什么呢？
 回复 赞
yusantos 2018-10-12
这么老的系统还在用，不容易。赶紧换SAP吧。
 回复 赞
flakyxd 2018-10-10
看了ddlb_1.text = ProfileString ("timeway.ini", "database", "dbms", "")
ddlb_1的属性里看到如下 有string Item[]={"ODBC"



inherited from dropdownlistbox

int X=605

int Y=1185

int Width=978

int Height=404

int TabOrder=140

boolean VScrollBar=true

long BackColor=12639424

int TextSize=-9

int Weight=400

string FaceName="Arial"

FontFamily FontFamily=Swiss!

FontPitch FontPitch=Variable!

string Item[]={"ODBC",&
回复 赞
flakyxd 2018-10-10
真正读取的是timeway.ini


/* Populate sqlca from current PB.INI settings */

ddlb_1.text      = ProfileString ("timeway.ini", "database", "dbms",       "")

//sqlca.database   = ProfileString ("timeway.ini", "database", "database",   "")

sle_1.text         = ProfileString ("timeway.ini", "database", "userid",     "")

sle_2.text         = ProfileString ("timeway.ini", "database", "dbpass",     "")

sle_4.text         = ProfileString ("timeway.ini", "database", "logid",      "")



sle_3.text         = ProfileString ("timeway.ini", "database", "LogPassWord", "")



//sqlca.servername = ProfileString ("timeway.ini", "database", "servername", "")

sle_6.text         = ProfileString ("timeway.ini", "database", "dbparm",     "")

sle_5.text         = ProfileString ("timeway.ini", "database", "lock",     "")

sle_7.text         = ProfileString ("timeway.ini", "database", "prompt",     "")

CHOOSE CASE upper(ProfileString ("timeway.ini", "database", "autocommit",     ""))

	CASE 'TRUE'

		sqlca.AutoCommit = TRUE

	CASE 'FALSE'

		sqlca.AutoCommit = FALSE

END CHOOSE





st_10.text = GLOBAL_VENDOR_NAME

st_11.text = GLOBAL_VENDOR_NAME_E

string ls_add_string,ls_add_string2,string_I,string_J

Integer I,J



ddlb_server_name.SetRedraw(false)

ddlb_server_name.Reset( )

ddlb_database_name.SetRedraw(false)

ddlb_database_name.Reset( )



if FileExists("timeway.ini")=false then

   messagebox("问题","资源文件‘TIMEWAY.INI’未发现!")

//   close(w_m_login1)

else

   string_J = ProfileString ("timeway.ini", "TW_MRPII", "I",  "")

   J=integer(string_J)

   FOR I=1 TO J

       string_I = "servername" + string(I)

       ls_add_string = ProfileString ("timeway.ini", "TW_MRPII", string_I,  "")

       ddlb_server_name.AddItem(ls_add_string)

       string_I = "database" + string(I)

       ls_add_string2 = ProfileString ("timeway.ini", "TW_MRPII",string_I,  "")

       ddlb_database_name.AddItem(ls_add_string2)

   NEXT

end if



ddlb_server_name.SetRedraw(true)

ddlb_database_name.SetRedraw(true)

ddlb_server_name.selectitem(1)

ddlb_database_name.selectitem(1)



LOGIN_NUMBER = 0

//sle_password.setfocus()

sle_user_name.setfocus()

setpointer(arrow!)
回复 赞
flakyxd 2018-10-10
引用 15 楼 wosind 的回复:
PBKiller2.5.18
9以前的版本都可以反编译



//string name

int rownum

this.triggerevent("timeway_splash")

//this.postevent("timeway_splash")

/* Populate sqlca from current PB.INI settings */

//sqlca.DBMS       = ProfileString ("pb.ini", "database", "dbms",       "")

  sqlca.DBMS       = ddlb_1.text

//sqlca.database   = ProfileString ("pb.ini", "database", "database",   "")

  sqlca.database   = ddlb_database_name.TEXT

//sqlca.userid     = ProfileString ("pb.ini", "database", "userid",     "")

  sqlca.userid     = sle_1.text

//sqlca.dbpass     = ProfileString ("pb.ini", "database", "dbpass",     "")

  sqlca.dbpass     = sle_2.text

//sqlca.logid      = ProfileString ("pb.ini", "database", "logid",      "")

  sqlca.logid      = sle_4.text

//sqlca.logpass    = ProfileString ("pb.ini", "database", "LogPassWord", "")

  sqlca.logpass    = sle_3.text

//sqlca.servername = ProfileString ("pb.ini", "database", "servername", "")

  sqlca.servername = ddlb_server_name.TEXT

//sqlca.dbparm     = ProfileString ("pb.ini", "database", "dbparm",     "")

  sqlca.dbparm     = sle_6.text

  sqlca.lock       = sle_5.text

  sqlca.AutoCommit = true

  

string SYSTEM_STR



window wo

SYSTEM_STR = ProfileString ("timeway.ini","TW_MRPII","SYSTEM_STR","")

/* Uncomment the following for actual DB connection */

setpointer(hourglass!)

connect;



if sqlca.sqlcode <> 0 then

	MessageBox ("Connect error","数据库连接错误:无法连接数据库." + sqlca.sqlerrtext)

	return

end if





setpointer(hourglass!)

//if KeyDown(KeyEnter!)=TRUE then

  integer PRIVIILEGE_VAR

  string USER_NAME_VAR,PASSWORD_VAR

  USER_NAME_VAR = w_m_login1_inv.sle_user_name.text

  PASSWORD_VAR = w_m_login1_inv.sle_password.text

  SELECT max(dbo.M_LOGIN.PRIVIILEGE)

    INTO :PRIVIILEGE_VAR 

    FROM dbo.M_LOGIN 

    where LOGIN_NAME = :USER_NAME_VAR and PASSWORD = :PASSWORD_VAR;

  USERNAME_FIRST = USER_NAME_VAR  

  IF  PRIVIILEGE_VAR > 0 THEN

    date dtu

    dtu = date(2198,12,31)

    if dtu < today() then 

      messagebox("OK","系统连接出错!")

      close(parent)

      return

    end if

    declare dtu procedure for sysdtu;

	 sqlca.sqlcode = 0

    execute dtu;

//	 messagebox('sqlca.sqlcode',string(sqlca.sqlcode))

	 if sqlca.sqlcode < 0 then 

		messagebox("Call vendor","请联系软件供应商...,系统连接出错!")

      close(parent)

      return

	end if

//    messagebox('SYSTEM_STR',left(SYSTEM_STR,5))

    name=sle_user_name.text

	 select count(*) into :rownum from m_login

	 where login_name = :name and

	       (part ='3' or part = '13');

	 if rownum<1 then

		messagebox("OK","你不是本模块用户,无权使用本模块.~r~n欲要使用本模块,请联系系统管理员.")

		disconnect;

		return

	 end if

    if left(SYSTEM_STR,5) = 'W_SYS' then 

//       Open (wo,SYSTEM_STR)

//    else

		 Open (w_genapp_frame_inv)

    end if

    close(parent)

    //  sle_password.setfocus()

  ELSE

    messagebox('OK!','非法用户名或口令！')

    disconnect;

    LOGIN_NUMBER = LOGIN_NUMBER + 1

    setpointer(arrow!)

    if LOGIN_NUMBER > 2 then 

       messagebox('Exit','您无权使用本系统！')

       setpointer(arrow!)

       close(parent)

    end if

  END IF

//end if
回复 赞
aolixiaox 2018-10-10
PBKiller2.5.18
9以前的版本都可以反编译
 回复 赞
flakyxd 2018-10-10
引用 13 楼 wosind 的回复:
我前面有告诉你了，一劳永逸的方法就是，PB 反编译一下PBD，找到数据库连接相关的脚本，这些脚本能看出来，程序连接的方式，和一些需要的参数等等，这样就知道服务器要做什么相关设置。

我下载了几个反编译的都是导不出来，能不能给个链接
或是我打包给你，你帮我看下？
 回复 赞
aolixiaox 2018-10-10
我前面有告诉你了，一劳永逸的方法就是，PB 反编译一下PBD，找到数据库连接相关的脚本，这些脚本能看出来，程序连接的方式，和一些需要的参数等等，这样就知道服务器要做什么相关设置。
 回复 赞
flakyxd 2018-10-10




[Database]

Vendors=ODBC,SYB SQL Server v4.x,SYC Sybase System 10 CTLIB,IN5 I-Net v5.x,MSS (Msoft) SQL Server 6.0,O71 ORACLE v7.1,O72 ORACLE v7.2

DBMS=MSS (Msoft) SQL Server 6.0

ServerName=RG

Database=YGERPN

LogId=sa

LogPassword=sasql

; DBParm=DelimitIdentifier can be added to DbParm

; to control whether quotes are placed around

; table and column names in SQL

; DbParm=DelimitIdentifier='YES'

DbParm=

;

AutoCommit=false

AutoQuote=1

; Columns defines how many columns are displayed

; when a table is expanded

Columns=8

;

ForeignKeyLineColor=16711680

IndexKeyLineColor=255

PrimaryKeyLineColor=65280

Prompt=0

Lock=

NoCatalog=No

ReadOnly=0

ShowIndexKeys=1

ShowReflnt=1

StayConnected=1

TableDir=1

TableListCache=18000

TableSpace=*

TerminatorCharacter=;

HideComments=0

ShowRefInt=1

; specify the background color for the column list window header band

TableHeaderColor=

; specify the text color for the column list window header band

TableHeaderTextColor=

; specify the background color for the column list window detail band

TableDetailColor=

; specify the text color for the column list window detail band

TableDetailTextColor=

; specify the text color for the column list window COLUMN NAME column in the detail band

TableColumnNameTextColor=

LEXICON=

path="c:\ERP\database\"

GLOBAL_USER_NAME='永冠塑胶制造(深圳)有限公司'





[TW_MRPII]                   

I=1

ServerName1=RG

Database1=YGERPN

GLOBAL_USER_NAME='公司'

GLOBAL_COMPANY_NAME='深圳市融丰软件有限公司'

SYSTEM_STR = 'W_SYSTEM5'

timer = 60

ledger=ERP_FIN

这个是erp客户端的INI文件，我觉得这个是没问题的，因为以前这个客户端在XP系统和Win7还有Win10系统下都能连接，
问题的关键在于服务器肯定有什么地方要设置什么的.
 回复 赞
flakyxd 2018-10-08
引用 10 楼 zhgwbzhd 的回复:
PB的MSS方式，区分为TCP和命名管道，这个需要在服务器上都打开。 最好保持原来的方式，否则不知道哪里会出现问题。 原来的是日文版，你最好也采用日文版。这个最好不要乱改。 因为有字符集，字符编码这一说，最好和原来都保持一致。
这是sql server 2008TCP和命名管道 这是sql server 2000TCP和命名管道
回复 赞
加载更多回复
相关推荐
【PB】pb应用程序不装sqlserver客户端进行连接服务器端解决方案（整理） PB不装SQL客户端的DLL dbmsgnet.dll dbmsrpcn.dll dbmsshrn.dll dbmsvinn.dll dbnetlib.dll dbnmpntw.dll libjcc.dll libjotsclnt.dll libjsybheap.dll msctf.dll msshk.dll ntwdblib.dll pbdwe80.dll...
PB与各种数据库连接 收藏 PB与各种数据库连接!! 1.Power script 语言里的事务处理对象怎么理解 PowerBuilder  程序与数据库之间传递信息的一个结构变量，共有15个成员.你可以详细列表它的所有成员看看它的组成,PB的应用程序会初始化一个...
【PB】PB程序死锁问题及预防 最近一段时间由于项目的原因，和程序的“死锁”问题打了不少交道。由于对“死锁”定义不清楚，缺乏大批量数据处理的经验，耗费了很多时间和精力，也走了相当多的弯路。经过摸索，对程序中出现的问题有了一定的认识，...
PB与各种数据库连接 PB与各种数据库连接 2010-06-19 13:33 1620人阅读 评论(0) 收藏 举报 数据库powerbuildersql serversybasemicrosoftdatabase PB与各种数据库连接!!  1.Power script 语言里的事务处理对象怎么理解...
PB如何取服务器的时间 在开发C/S体系结构的应用程序时，日期应该从服务器获取，这样才能保证数据的准确性。下面是一个完整的获取服务器时间的公用函数。 /*----------------------------------------------------------------------- * ...
数据库知识体系+sql语句实现存储过程和函数+应用程序接口 按存储模型分为：关系次数据库、网络次数据库、层次数据库。不同的数据库的是按不同的数据结构组织和联系的 数据结构：数据的组织形式与数据之间的联系 用ds=(D, R)其中D表示数据，R表示数据间的联系。 数据结构类型...
TeamTalk源码分析（三） —— 服务器端的程序架构介绍 通过上一节的编译与部署，我们会得到TeamTalk服务器端以下部署程序： db_proxy_server file_server http_msg_server login_server msfs msg_server push_server router_server 这些服务构成的拓扑图如下： ...
pb与各种数据库连接 你可以详细列表它的所有成员看看它的组成,PB的应用程序会初始化一个全局的结构体变量,SQLCA,当然你也可以自定义一个自己的事务对象.  1 DBMS string 所使用的数据库管理系统的名字，如Sybase,Oracle,ODBC。...
几个与PB连接数据库相关的问题 你可以详细列表它的所有成员看看它的组成.PB的应用程序会初始化一个全局的结构体变量,SQLCA,当然你也可以自定义一个自己的事务对象. 1 DBMS string 所使用的数据库管理系统的名字，如Sybase,Oracle,ODBC。 2 ...
Delphi 访问数据库 Delphi 访问数据库
pb获取服务器日期 在开发C/S体系结构的应用程序时，日期应该从服务器获取，这样才能保证数据的准确性。下面是一个完整的获取服务器时间的公用函数。 /*-----------------------------------------------------------------...
数据库系统 1、综合知识和案例分析都有考到，主要是以下八个方面：数据库模式、ER模型、关系代数与元组演算、规范化理论、并发控制、数据库完整性约束、分布式数据库、数据仓库与数据挖掘。 第二、数据库三级模式两级映射 三级...
浅谈在PB中创建数据库的方法 当我们把用PowerBuilder(以下简称PB)开发的数据库客户端应用程序交给用户后，还需要在用户的服务器端的数据库系统上进行一系列配置工作，如建立业务数据库和建表、视图、主键、索引等数据对象。只有正确配置了数据库...
迁移 40TB SQL 服务器数据库 也就是说在 2019 年初，单个数据库中大约有 1600 个表，其中包含多个数据库文件（因为数据文件的大小限制为 16TB）。每个表都有一个集群化的列存储索引，其中包含 100-400 百万行。 我必须将数据从现有的每日表中移...
PB程序死锁问题及预防 最近一段时间由于项目的原因，和程序的“死锁”问题打了不少交道。由于对“死锁”定义不清楚，缺乏大批量数据处理的经验，耗费了很多时间和精力，也走了相当多的弯路。经过摸索，对程序中出现的问题有了一定的认识，...
libiscsi-devel-1.18.0-8.module_el8.5.0+746+bbd5d70c.x86_64.rpm 离线安装包，亲测可用
10年经验1张图-职业教育机构就业课程体系规划 10年经验一张图，资源包含一张详细的令人发指的思维导图（其中资源链接直接可以用），若干word文档、就业课ppt、简历模板等等资源，帮助企业老师解决就业课设计和实施问题。
document.zip docker 搭建机器学习环境
生药学及答案.pdf 生药学及答案
Python_Install_20211206.zip Linux下Python安装所需rpm
发帖
数据库相关
创建于2007-09-28

738

社区成员

1.2w+

社区内容

PowerBuilder 数据库相关
申请成为版主
帖子事件
创建了帖子
2018-10-06 02:06
社区公告
暂无公告