关于在Delphi6中处理SQL Server数据库的问题

Question

给你实例：id为时间字段
create proc insertnewdata
as
begin
DECLARE @name char(10),@gongzi int,@times char(10),@id datetime,@dk bit DECLARE my_cursor CURSOR FOR
select * from table1 
where left(id,9)=left(convert(getdate()-1, varchar(10)),9)
open my_cursor
FETCH NEXT FROM my_cursor into @name,@gongzi,@times,@id,@dk
WHILE @@FETCH_STATUS = 0
BEGIN
print('JDHFld')
   insert into table1(name,gongzi,times,id,dk)values(@name,@gongzi,@times,@id+1,@dk)
   FETCH NEXT FROM my_cursor into @name,@gongzi,@times,@id,@dk
END
CLOSE my_cursor
DEALLOCATE my_cursor 
end
go