高手们请来看看,我这代码哪里不好,老是要出错!
string sServerName,sDBName,sUserName,sDBId
string sServerName1,sDBName1,sUserName1,sDBId1
long l_return
//连接另一台机上的数据库sql2000
sServerName=ProfileString('config.ini',"loding","servername","")//获得总部服务器名
sDBName=profilestring('config.ini',"loding","dbname","")
sUserName=profilestring('config.ini',"loding","username","")
sDBId=profilestring('config.ini',"loding","dbid","")
serverdb =create transaction
serverdb.dbms="Mss Microsoft sql server"
serverdb.servername=sServerName
serverdb.database=sDBName
serverdb.logid=sUserName
serverdb.logpass=sDBId
serverdb.autocommit=false
serverdb.dbparm="connectstring='dsn="+sDBName+";uid="+sUserName+";pwd="+sDBId+"'"
CONNECT USING serverdb;
// 连接本地数据库sql2000
sServerName1=ProfileString('config.ini',"loding1","servername1","")//获得本地服务器名
sDBName1=profilestring('config.ini',"loding1","dbname1","")
sUserName1=profilestring('config.ini',"loding1","username1","")
sDBId1=profilestring('config.ini',"loding1","dbid1","")
localdb =create transaction
localdb.dbms="Mss Microsoft sql server"
localdb.servername=sServerName1
localdb.database=sDBName1
localdb.logid=sUserName1
localdb.logpass=sDBId1
localdb.autocommit=false
localdb.dbparm="connectstring='dsn="+sDBName1+";uid="+sUserName1+";pwd="+sDBId1+"'"
CONNECT USING localdb;
//上传到总部数据库:局域网或广域网
//pipeline p_loding
p_loding=create pipeline
p_loding.dataobject="p_hz"
l_return=p_loding.start(localdb,serverdb,dw_1)
if l_return=1 then
messagebox("提示","运行成功")
else
messagebox("提示","运行失败"+string(l_return))
ROLLBACK USING localdb;
ROLLBACK USING serverdb;
end if
p_loding.cancel()
DESTROY p_loding
DISCONNECT USING serverdb;
DISCONNECT USING localdb;