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

[flakyxd]

如图：



环境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系统叫融丰，找了他们的电话已经没有这个公司了。

[flakyxd]

引用 10 楼 zhgwbzhd 的回复:

PB的MSS方式，区分为TCP和命名管道，这个需要在服务器上都打开。 最好保持原来的方式，否则不知道哪里会出现问题。 原来的是日文版，你最好也采用日文版。这个最好不要乱改。 因为有字符集，字符编码这一说，最好和原来都保持一致。

这是sql server 2008TCP和命名管道 这是sql server 2000TCP和命名管道

[flakyxd]

[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系统下都能连接，
问题的关键在于服务器肯定有什么地方要设置什么的.

[aolixiaox]

我前面有告诉你了，一劳永逸的方法就是，PB 反编译一下PBD，找到数据库连接相关的脚本，这些脚本能看出来，程序连接的方式，和一些需要的参数等等，这样就知道服务器要做什么相关设置。

[flakyxd]

引用 13 楼 wosind 的回复:

我前面有告诉你了，一劳永逸的方法就是，PB 反编译一下PBD，找到数据库连接相关的脚本，这些脚本能看出来，程序连接的方式，和一些需要的参数等等，这样就知道服务器要做什么相关设置。

我下载了几个反编译的都是导不出来，能不能给个链接
或是我打包给你，你帮我看下？

[aolixiaox]

PBKiller2.5.18
9以前的版本都可以反编译

[flakyxd]

引用 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

[flakyxd]

真正读取的是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]

看了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",&

[yusantos]

这么老的系统还在用，不容易。赶紧换SAP吧。

[flakyxd]

虽然看到了连接参数，但是参数是没问题的。不知道为什么连接不了
同样配置文件timeway.ini 我在服务器本机上可以连接，在客户端就不能连接
问题还是出在服务器那里
我理解的DBMS=MSS (Msoft) SQL Server 6.0 这个方式是 Microsoft SQL Server类型的OLE DB
到底是什么呢？

[yusantos]

看一下你的客户端软件目录里面是否有这个文件。ntwdblib.DLL 没有的话网上下一个放进来。再试一下。

[aolixiaox]

用的IP还是实例名访问。
telnet端口有没有正常打开。
本机访问、局域网问、互联网访问是有区别的，本机能访问不能说明其他方式就没有问题。

[flakyxd]

引用 22 楼 wosind 的回复:

用的IP还是实例名访问。
telnet端口有没有正常打开。
本机访问、局域网问、互联网访问是有区别的，本机能访问不能说明其他方式就没有问题。

用IP和实例名访问都试过了结果一样。
局域网问不能访问

[flakyxd]

引用 21 楼 yusantos 的回复:

看一下你的客户端软件目录里面是否有这个文件。ntwdblib.DLL 没有的话网上下一个放进来。再试一下。

有，版本是6.50.409

[flakyxd]

今天在一台客户端里安装了PB开发工具各个版本后，就可以连接服务器了，而且不出错。
难道我要每台客户端都安装PB开发工具吗？这个不现实。。。

[flakyxd]

我现在可以连接的客户端的PB都是60版本的DLL，复制到其他客户端后注册失败

[flakyxd]

能连接的客户端还有个必要条件就是，服务器的区域语言和高级选项里必须选英语或日语就可以连接，而且不出错。
或是不改区域语言和高级选项，sql server 的服务器设置里 默认语音改为 英语也可以连接，而且不出错。
但是其他客户端还是无法连接

[WMERP]

PB runtime 工具包，你试试找找瞎子啊或者在PB开始菜单中中自己制作一个

[r00_a2lBUR]

那么老的系统还能运行,厉害啊

[flakyxd]

引用 29 楼 r00_a2lBUR 的回复:

那么老的系统还能运行,厉害啊

确实挺强的，客户端到win7还能正常运行很不错。