Borrar registros de una tabla

[acuellar]

Buenas estimados

Lo hago así:

Code: Select all | Expand

cCOD:="123"
oSql:=oCn:RowSet( "SELECT * FROM  DATOS WHERE CODIGO = ? ORDER BY CODIGO",{cCOD})
oSql:GoTop()
Do While !oSql:Eof()
   oSql:Delete()
   oSql:Skip()
Enddo

No siempre borra todos

Existe otra manera de borrar sin recorrer toda la tabla filtrada?
Intenté con oSQL:ZAP() pero borra toda la tabla y lo que necesito es que borre lo filtrado

[Enrico Maria Giordano]

Code: Select all | Expand

DELETE FROM DATOS WHERE CODIGO = '123'

[Enrico Maria Giordano]

Or

Code: Select all | Expand

"DELETE FROM DATOS WHERE CODIGO = '" + cCod + "'"

[acuellar]

Perfect.

Thanks Enrico

[sysctrl2]

Code: Select all | Expand

FUNCTION testDelete()
   LOCAL cTabla := "datos" //%1
   LOCAL cCod := "123"     //%2
   LOCAL cQry := ""

   TEXT INTO cQry
      DELETE FROM %1
      WHERE codigo=%2
   ENDTEXT

   cQry := StrFormat( cQry, cTabla, ClipValue2SQL(cCod) )
   oCon:Execute( cQry )

RETURN (NIL)