帮帮忙吧！看看小弟我这代码那不好了。

帮帮忙吧！看看我这代码那不好了。。
DECLARE my_cursor CURSOR FOR  
  Select sysobjects.name  
  From sysobjects using sqlca;

  OPEN my_cursor;  
  FETCH my_cursor INTO :name ; 

  ll=SQLCA.SQLCode
  Do While SQLCA.SQLCode = 0  
  dw_1.insertrow(0)  
  dw_1.setitem( dw_1.getrow(),'name',name)
  FETCH my_cursor INTO :name;
  Loop  
  CLOSE my_cursor;

//运行时 ll = -1 ,不知道是哪里错了。


------解决方案--------------------
应该是

Select sysobjects.name
From sysobjects using sqlca;

没有数据返回


------解决方案--------------------
Select sysobjects.name
From sysobjects using sqlca; 
执行失败
------解决方案--------------------
DECLARE my_cursor CURSOR FOR
Select sysobjects.name
From sysobjects using sqlca; 

OPEN my_cursor;
FETCH my_cursor INTO :name ; 

ll=SQLCA.SQLCode 
Do While SQLCA.SQLCode = 0
dw_1.insertrow(0)
dw_1.setitem( dw_1.getrow(),'name',name) 
FETCH my_cursor INTO :name; 
Loop
if SQLCA.SQLCode <>100 then
messagebox('',string(sqlca.sqlcode)+sqlca.sqlerrtext)
end if
CLOSE my_cursor; 

//运行时 ll = -1 ,不知道是哪里错了。