下面程序(动态游标)为什么不能正常执行(在线等待)
sjzjq 2003-10-20 09:28:18 下面得程序是我再pb8中写得,数据库是oracle,再程序中读取access库中得数据,其中access得表名是可变得,字段都一样,为什么再执行时总提示游标不能打开
transaction AjTranction
AjTranction=create transaction
AjTranction.DBMS = "ODBC"
AjTranction.DBParm = "Connectstring='DSN=sourse'"
connect using AjTranction;
if AjTranction.sqlcode <> 0 then
SetPointer(Arrow!)
MessageBox ("源数据库连接错误,请重新配置ODBC!", AjTranction.sqlerrtext,StopSign!)
disconnect using AjTranction ;
destroy AjTranction
return
end if
SQL= 'select sgbh from ' +named
DECLARE source_cursor DYNAMIC CURSOR FOR SQLSA;
PREPARE SQLSA FROM :sql USING ajtranction ;
OPEN DYNAMIC source_cursor;
fetch source_cursor into :ls_SGBH;
if ajtranction.sqlcode= -1 then
messagebox("Error","数据源中数据记录第"+string(li_row)+"行格式错误,请修正后再导入!"+ajtranction.sqlerrtext,StopSign!)
close source_cursor;
disconnect using AjTranction ;
destroy AjTranction
return
end if