hur.cn - 华软网

 热门搜索

求一 :在程序中运行数据管道实例

  作者:未知    来源:网络    更新时间:2017/9/26
my email:lianxiangpanjin@163.com 
实例前两个给分,50分送完为止
------华软网友回答------
参考PB自带的CODE EXAMPLE中的例子和PB自带的帮助
------华软网友回复------
我照着书上做程序运行管道的例子,也参考了以前的csdn,就是有错误过不去,
我在学校机房,我这没有pb,想要大家给我一个现成的例子看看是哪不对
------华软网友回复------
pbrtc*0.dll拷过去了没有?


是否编译成PBD方式?
------华软网友回复------
Datastore lds_save
TransAction  ltra_source
u_pipe lu_pipe
Long              ll_error

lds_save = Create  datastore
lds_save.DataObject = 'd_del_tmp_all'
lds_save.SetTransObject(sqlca)
lds_save.Retrieve(gs_computer)
If lds_save.RowCount() > 0  Then
lds_save.RowsMove(1,lds_save.RowCount(),Primary!,lds_save,1,Delete!)
If lds_save.Update() = 1 Then
Commit Using sqlca;
Else
RollBack Using sqlca;
End If
End If


ltra_source = Create TransAction
ltra_source.dbms = SQLCA.DBMS
ltra_source.database = SQLCA.Database
ltra_source.LogPass = SQLCA.LogPass
ltra_source.ServerName = SQLCA.ServerName
ltra_source.LogId = SQLCA.LogId
ltra_source.AutoCommit = True
ltra_source.DbParm = SQLCA.DBParm


Connect using ltra_source;
If ltra_source.sqlcode = 0 Then
lu_pipe = Create u_pipe
lu_pipe.DataObject = 'p_xj_total_bbzl'
ll_error = lu_pipe.start(sqlca,ltra_source,dw_error,gs_computer,gs_yqdh,date(id_rqfrom),date(id_rqto),is_brkb)
   //messagebox("",string(ll_error))
End If

destroy lu_pipe;
DisConnect using ltra_source;
Destroy ltra_source;
Destroy lds_save;      
华软声明:本内容来自网络,如有侵犯您版权请来信指出,本站立即删除。