- 论坛徽章:
- 0
|
小弟刚开始接触pb，遇到一个数据管道的问题，执行管道后返回的结果老是 －1
以下是部分代码，pb8写的，请高手帮忙！谢谢！！！
forward
global type w_pipeline from window
end type
type st_4 from statictext within w_pipeline
end type
type st_3 from statictext within w_pipeline
end type
type st_2 from statictext within w_pipeline
end type
type st_1 from statictext within w_pipeline
end type
type cb_exit from commandbutton within w_pipeline
end type
type cb_cancel from commandbutton within w_pipeline
end type
type cb_run from commandbutton within w_pipeline
end type
type dw_error from datawindow within w_pipeline
end type
type st_error from statictext within w_pipeline
end type
type st_written from statictext within w_pipeline
end type
type st_read from statictext within w_pipeline
end type
type st_connect from statictext within w_pipeline
end type
end forward
global type w_pipeline from window
integer width = 2528
integer height = 1044
boolean titlebar = true
string title = "DU---dmÊý¾Ýµ¼Èë"
boolean controlmenu = true
boolean minbox = true
boolean maxbox = true
boolean resizable = true
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
st_4 st_4
st_3 st_3
st_2 st_2
st_1 st_1
cb_exit cb_exit
cb_cancel cb_cancel
cb_run cb_run
dw_error dw_error
st_error st_error
st_written st_written
st_read st_read
st_connect st_connect
end type
global w_pipeline w_pipeline
type variables
transaction trn_src
transaction trn_desc
//u_pipeline_student iu_pipeline
u_pipeline_student iu_pipeline
end variables
on w_pipeline.create
this.st_4=create st_4
this.st_3=create st_3
this.st_2=create st_2
this.st_1=create st_1
this.cb_exit=create cb_exit
this.cb_cancel=create cb_cancel
this.cb_run=create cb_run
this.dw_error=create dw_error
this.st_error=create st_error
this.st_written=create st_written
this.st_read=create st_read
this.st_connect=create st_connect
this.Control[]={this.st_4,&
this.st_3,&
this.st_2,&
this.st_1,&
this.cb_exit,&
this.cb_cancel,&
this.cb_run,&
this.dw_error,&
this.st_error,&
this.st_written,&
this.st_read,&
this.st_connect}
end on
on w_pipeline.destroy
destroy(this.st_4)
destroy(this.st_3)
destroy(this.st_2)
destroy(this.st_1)
destroy(this.cb_exit)
destroy(this.cb_cancel)
destroy(this.cb_run)
destroy(this.dw_error)
destroy(this.st_error)
destroy(this.st_written)
destroy(this.st_read)
destroy(this.st_connect)
end on
event open;//u_pipeline_student iu_pipeline
trn_src = create transaction
// Profile dm
SQLCA.DBMS = "ODBC"
SQLCA.AutoCommit = False
SQLCA.DBParm = "ConnectString='DSN=Excel Files;UID= WD='"
connect;// using trn_desc;
if trn_src.sqlcode <> 0 then
st_connect.text = string(trn_src.sqlcode)+"Ô´Êý¾Ý¿âÁ¬½Óʧ°Ü£¡"
return;
end if
trn_desc = create transaction
// Profile store111
SQLCA.DBMS = "SYC Adaptive Server Enterprise"
SQLCA.ServerName = "store111"
SQLCA.database="store111"
SQLCA.LogId = "sa"
SQLCA.AutoCommit = False
SQLCA.DBParm = ""
connect;// using trn_src;
if trn_src.sqlcode <> 0 then
st_connect.text = string(trn_desc.sqlcode)+"Ä¿±êÊý¾Ý¿âÁ¬½Óʧ°Ü£¡"
return;
else
st_connect.text = "Êý¾Ý¿âÁ¬½Ó³É¹¦£¡"
end if
st_read.text = "0"
st_written.text = "0"
st_error.text = "0"
//iu_pipeline=create u_pipeline_student
//iu_pipeline.dataobject="pipe_student"
end event
event close;destroy iu_pipeline
disconnect using trn_src;
destroy trn_src
disconnect using trn_desc;
destroy trn_desc
end event
type st_4 from statictext within w_pipeline
integer x = 882
integer y = 64
integer width = 841
integer height = 84
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
long backcolor = 67108864
string text = "³ö´íÊý¾ÝÐÐÊý¼°³ö´íÄÚÈÝ"
boolean focusrectangle = false
end type
type st_3 from statictext within w_pipeline
integer x = 105
integer y = 576
integer width = 457
integer height = 72
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long backcolor = 67108864
string text = "дÈëÊý¾ÝÐÐÊý"
boolean focusrectangle = false
end type
type st_2 from statictext within w_pipeline
integer x = 105
integer y = 320
integer width = 457
integer height = 72
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
long backcolor = 67108864
string text = "¶ÁÈëÊý¾ÝÐÐÊý"
boolean focusrectangle = false
end type
type st_1 from statictext within w_pipeline
integer x = 96
integer y = 64
integer width = 526
integer height = 72
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long backcolor = 67108864
string text = "Êý¾Ý¿âÁ¬½Ó״̬"
boolean focusrectangle = false
end type
type cb_exit from commandbutton within w_pipeline
integer x = 1915
integer y = 600
integer width = 457
integer height = 128
integer taborder = 30
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
string text = "ÍƳö"
end type
event clicked;close(parent)
end event
type cb_cancel from commandbutton within w_pipeline
integer x = 1906
integer y = 360
integer width = 457
integer height = 128
integer taborder = 20
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
string text = "ÖÕÖ¹"
end type
event clicked;long ll_flag
ll_flag = iu_pipeline.cancel()
if ll_flag = 1 then
messagebox("Ìáʾ","Êý¾Ý¹ÜµÀÖ´Ðб»ÖÕÖ¹³É¹¦£¡"
else
messagebox("Ìáʾ","Êý¾Ý¹ÜµÀÖ´ÐÐÖÕֹʧ°Ü£¡"
end if
end event
type cb_run from commandbutton within w_pipeline
integer x = 1906
integer y = 124
integer width = 457
integer height = 128
integer taborder = 10
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
string text = "ÔËÐÐ"
end type
event clicked;long ll_flag
string ls_return
//u_pipeline_student iu_pipeline
//iu_pipeline=create u_pipeline_student
//iu_pipeline.dataobject = "pipe_student"
iu_pipeline = Create u_pipeline_student
iu_pipeline.ist_read = st_read
iu_pipeline.ist_written = st_written
iu_pipeline.ist_error = st_error
iu_pipeline.DataObject = 'pipe_student'
//iu_pipeline.Start(trn_src,trn_desc,dw_error)
ll_flag = iu_pipeline.Start(trn_src,trn_desc,dw_error)
if ll_flag <> 1 then
st_error.text = "Êý¾Ý¹ÜµÀ´ò¿ª´íÎ󣬴íÎó´úÂëΪ£º"+string(ll_flag)
return;
//else st_error.text="Êý¾Ý´«Ëͳɹ¦£¡"
end if
//choose case ll_flag
// case -1
// ls_return=""
// case -2
// ls_return=""
// case -3
// ls_return=""
// case -4
// ls_return=""
// case -5
// ls_return=""
// case -6
// ls_return=""
//end choose
end event
type dw_error from datawindow within w_pipeline
integer x = 946
integer y = 432
integer width = 718
integer height = 300
integer taborder = 10
string title = "none"
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type
type st_error from statictext within w_pipeline
integer x = 896
integer y = 212
integer width = 855
integer height = 336
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 134217857
long backcolor = 67108864
string text = "³ö´íÊý¾ÝÐÐÊý¼°³ö´íÄÚÈÝ"
boolean focusrectangle = false
end type
type st_written from statictext within w_pipeline
integer x = 105
integer y = 688
integer width = 475
integer height = 88
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 134217857
long backcolor = 67108864
string text = "дÈëÊý¾ÝÐÐÊý"
boolean focusrectangle = false
end type
type st_read from statictext within w_pipeline
integer x = 101
integer y = 412
integer width = 475
integer height = 76
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 134217857
long backcolor = 67108864
string text = "¶ÁÈëÊý¾ÝÐÐÊý"
boolean focusrectangle = false
end type
type st_connect from statictext within w_pipeline
integer x = 101
integer y = 172
integer width = 677
integer height = 84
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 134217857
long backcolor = 67108864
string text = "Êý¾Ý¿âÁ¬½Ó״̬"
boolean focusrectangle = false
end type |
|
免费注册
发表于 2006-12-27 08:55
发表于 2007-07-18 14:43