pb 大问题啊!!!!
我想 调用 ini文件 创建pb9.0 的mss sql server 连接的数据库升级到 pb10.0 的 oledb 连接 语句该怎么改啊下面是我 pb9.0 的 SQL 语句
gs_bmbz=profilestring('Bn_yygs.ini','shop','bmbz','zb')
gs_servername=profilestring('Bn_yygs.ini','server','servername','bannerserver')
gs_servername_zb=profilestring('Bn_yygs.ini','server','posserver','bannerserver')
gs_database=profilestring('Bn_yygs.ini','database','maindataname','kld')
gs_database_zb=profilestring('Bn_yygs.ini','database','posdataname','kld')
gs_id=profilestring('Bn_yygs.ini','database','user','') + 'bn'
gs_pass=profilestring('Bn_yygs.ini','database','pass','') + 'bn'
gs_shopname=profilestring('Bn_yygs.ini','shop','shopname','')
SQLCA.DBMS = "MSS Microsoft SQL Server 6.x"
SQLCA.Database = trim(gs_database)
SQLCA.ServerName = trim(gs_servername)
SQLCA.LogId = trim(gs_id)
SQLCA.LogPass = trim(gs_pass)
SQLCA.AutoCommit = False
SQLCA.DBParm = "CommitOnDisconnect='No'"
sqlzb=CREATE transaction
sqlzb.DBMS = "MSS Microsoft SQL Server 6.x"
sqlzb.Database = gs_database_zb
sqlzb.ServerName = gs_servername_zb
SQLzb.LogId = trim(gs_id)
SQLzb.LogPass = trim(gs_pass)
sqlzb.AutoCommit = False
sqlzb.DBParm = "CommitOnDisconnect='No'"
openwithparm(w_message,'系统正在连接服务器,请稍等...')
该怎么改成 pb10.0 的 OLEDB 连接呢