Improved ZAP

2007-04-30 20:15:49 +00:00
parent 8e81281e87
commit b2356375ae
1 changed files with 1 additions and 0 deletions
--- a/harbour/contrib/adordd/adordd.prg
+++ b/harbour/contrib/adordd/adordd.prg
@@ -503,6 +503,7 @@ STATIC FUNCTION ADO_ZAP( nWA )
     
  if s_aConnections[ nWA ] != NIL .and. s_aTableNames[ nWA ] != nil
     s_aConnections[ nWA ]:Execute( "DELETE * FROM " + s_aTableNames[ nWA ] )
+     oADO:Requery()
  endif      

 RETURN SUCCESS