FoxPro/Visual FoxPro - Borrar registros????

 
Vista:
Imágen de perfil de Orlando
Val: 9
Ha aumentado su posición en 2 puestos en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

Borrar registros????

Publicado por Orlando (12 intervenciones) el 16/03/2007 18:29:47
De antemano muchisimas gracias por su ayuda.

Resulta que tengo la siguiente instruccion dentro de un botón:

nres = messagebox("Desea borrar",4+48)
if nres=6
delete IN CONTACTOS_1
end.if

En pantalla no aparece el registro, pero, cuando me voy a la tabla esta solo marcado, pero aún no me lo ha borrardo. Que instruccion debo colocar dentro de la intruccion que les muestro para poder hacerlo?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Borrar registros????

Publicado por juan fernando (537 intervenciones) el 16/03/2007 19:13:23
Si usas un cursor es asi :
Set delete on
Publi rutc,cod
cod=Thisform.Pageframe1.Page1.Text1.Value
DELETE FROM maquina WHERE Alltrim(Rutcliente)=allt(rutc) And Allt(codarticul)=Allt(cod)
clea
Thisform.Pageframe1.Page1.Text1.Value=" "
Thisform.Pageframe1.Page1.Text2.Value=" "
Thisform.Pageframe1.Page1.Text3.Value=" "
Thisform.Pageframe1.Page1.Text4.Value=" "
Thisform.Pageframe1.Page1.Text5.Value=" "
Thisform.Pageframe1.Page1.Text6.Value=" "
Thisform.Pageframe1.Page1.Text7.Value=" "
Thisform.Pageframe1.Page1.Text8.Value=0
Thisform.Pageframe1.Page1.Text9.Value=Ctod("00/00/0000")
**-----------------------------------------------**
Thisform.Refresh

si no usas Sql Así .

Delete for alltrim(rutcliente)=alltrim(rutc)
Pack
* Aqui refrescas *
*--------------------------------------------------------------------
si quieres eliminar todos los registros de la tabla
nombre tabla
Zap
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

RE:Borrar registros????

Publicado por Hector R. De los Santos (270 intervenciones) el 16/03/2007 19:47:30
Que tal...
Cuando usas el comando DELETE solo te lo marca para eliminar, si quieres borrarlo por completo debe usar el comando PACK.
Debes tener pendiente que cuando uses el comando pack la tabla debe estar abierta de modo exclusivo.
Ejemplo:
*Elimino
select tabla
delete for valor=ccod
*Abro de forma exclusiva y doy el pack
use tabla excluisive
pack

Byte!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

RE:Borrar registros????

Publicado por Ernesto Hernandez (4623 intervenciones) el 16/03/2007 21:04:41
Nada mas recuerda poner la tabla en uso EXCLUSIVO
Delete for alltrim(rutcliente)=alltrim(rutc)
Pack

Suerte
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

RE:Borrar registros????

Publicado por neo (1604 intervenciones) el 16/03/2007 22:07:46
Cabe mencionar que interactues mejor con Set Deleted a ON u OFF, y cuando veas que es conveniente usar pack, hasta ese momento lo utilices, ya que una vez borrado jamas recuperarás el registro.

Saludos..
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar