String ls_nullah_number,ls_suggestion
date ld_score_date,ld_enter_date
ls_nullah_number=st_19.text
ls_suggestion=mle_1.text
ld_score_date=date(em_1.text)
ld_enter_date=today();
insert into early_warning_score
(NULLAH_NUMBER,HEART_RATE,SYSTOLIC_PRESSURE,
BREATHING_RATE,TEMPERATURE,SENSE,
SUM_SCORE,GRADE_LEVEL,TREATMENT_SUGGESTION,
SCORE_DATE,ENTER_DATE)
values
(:ls_nullah_number,:gdc_heart_rate,:gdc_systolic_pressure,
:gdc_breathing_rate,:gdc_temperature,:gdc_sense,
:gdc_sum_score,:gdc_grade_level,:ls_suggestion,
:ld_score_date,:ld_enter_date);
倒是麻烦您把错误贴出来啊……
然后,你要检测SQLCA.SQLCode是不是零,并检测SQLCA.SqlNRows是不是大于零,两个都是,表示,插入成功,那么你要执行COMMIT; 语句提交数据。
如果不成功,你要执行ROLLBACK来回滚。