请问PB9+MsSQLServer2000程序发布,需要那些dll和配置文件?包括PB9和SQLServer的。我copy了一些dll但数据库联不上,编程环境是可以连上
请问PB9+MsSQLServer2000程序发布,需要那些dll和配置文件?包括PB9和SQLServer的。我copy了一些dll但数据库联不上,编程环境是可以连上的。我的连接数据库代码如下
--------------------------------
SQLCA.DBMS =ProfileString("SSData.INI","Profile SSMIS","DBMS", " ")
SQLCA.Database =ProfileString("SSData.INI","Profile SSMIS","DataBase", " ")
SQLCA.LogID =ProfileString("SSData.INI","Profile SSMIS","LogID", " ")
SQLCA.LogPass =ProfileString("SSData.INI","Profile SSMIS","LogPassword", " ")
SQLCA.ServerName =ProfileString("SSData.INI","Profile SSMIS","ServerName", " ")
SQLCA.UserID =ProfileString("SSData.INI","Profile SSMIS","UserID", " ")
SQLCA.DBPass =ProfileString("SSData.INI","Profile SSMIS","DatabasePassword", " ")
SQLCA.Lock =ProfileString("SSData.INI","Profile SSMIS","Lock", " ")
SQLCA.DbParm =ProfileString("SSData.INI","Profile SSMIS","DbParm", " ")
connect;
if SQLCA.SQLCode=-1 THEN
Beep(1)
MessageBox("数据库连接失败","网路数据库连接失败,问题发生在数据库连接时,"&
+"请与网路管理员联系。",EXCLAMATION!)
close(w_main_mdi)
else
datetime de_serverdate
select getdate() into :de_serverdate from TJDATE_qh;
ssr_date = relativeDate(date(de_serverdate),-28)
ddplb_1.text = string(year(ssr_date))
ddplb_2.text = string(month(ssr_date))
dw_1.SetTransObject(SQLCA)
cb_1.TriggerEvent (clicked!)
end if
-----------------------------------
SSData.INI文件内容如下:
[Profile ssmis]
DBMS=MSS Microsoft SQL Server
Database=ssmis
UserId=
DatabasePassword=
LogPassword=liu
ServerName=hpserver
LogId=liu
Lock=
DbParm=
Prompt=0