Sonarse todos los registros de una Tabla de Un Soplo en "Access"

[GeoAvila]

hola gracias por las respuestas..

Deseo Eliminar todos los registros de un golpe... actualmente estoy usando este codigo pero no me funciona.. que que le tengo que modificar..

"Delete * From OTEXPOR"

Donde OTEXPOR es la Tabla a la que le deseo eliminar todos los registros..

gracias nuevamente

[BrujoNic]

Código PHP:

  TRUNCATE nombre_tabla 
   

[GeoAvila]

hola mira estoy trabajando desde visual basic.. con Access.. y me dice que no reconoce el "truncate", tiene que haver otra manera verdad.

[BrujoNic]

Disculpa, por responder rápido olvidé toda la secuencia en motores de Base de Datos de verdad:

Código PHP:

  TRUNCATE TABLE nombre_tabla 
   

En Access investigué y no existe el TRUNCATE solo la forma en que lo estas haciendo.

[Manoloweb]

El problema que tienes es este...

"Delete * From OTEXPOR"

Debería ser

"Delete From OTEXPOR"

[GeoAvila]

gracias a todos pero no funciono..

mejor he decidido eliminar todos los registros que sean menores a cierta fecha..
alguien tiene idea de como

[Avelar]

Iniciado por GeoAvila

gracias a todos pero no funciono..

mejor he decidido eliminar todos los registros que sean menores a cierta fecha..
alguien tiene idea de como

¿Simplemente no te elimina los registros con el DELETE FROM <tabla> o te marca algún error?

Para indicar que borre sólo los registros de cierta fecha hacia atrás, agrégale el WHERE CampoFecha < Fecha

[GeoAvila]

mira todo lo estoy haciendo desde visual basic.. estoy usando controles.. mejor lo voy a hacer desde codigo.. para trabajaar mejor el sql. y ver si enrealidad es el sql o bien los controles del VB gracias..

[azazel_xes]

haber que te parece este miciclo para boorar todo de tu bd si estas trabakandp en visual basic

en un boton de comando pon este codigo

do while not(me.data1.eof=true)
me.data1.recordset.delete
me.data.recordset.movenext
loop

eso si estas usando objetas tipo data o si estas usando objetos ados cambias el me.data por el objeto ado ejemplo:

do while not(me.adodb.eof=true)
me.adodb.recordset.delete
me.adodb.recordset.movenext
loop

[GeoAvila]

hola gracias pero todo quedo asi...

Código:

Option Explicit
Dim cnn As New Connection
Dim rst As New Recordset
Private Sub Form_Load()
Dim sBase As String
    sBase = App.Path & "\otMadermac.mdb"
    
    
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sBase
    rst.Open "Select * From OTEXPOR", cnn, adOpenDynamic, adLockOptimistic
end sub

[lic_dahool]

Seguramente ya lo has resuelto, pero sino, probaste con esto:

Código:

Option Explicit

Dim cnn As New Connection
Dim rst As New Recordset

Private Sub Form_Load()

   Dim sBase As String
   sBase = App.Path & "\otMadermac.mdb"

   cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sBase
   cnn.Execute "DELETE * From OTEXPOR"

end sub

Saludos.

[GeoAvila]

no veo diferencia entre tu respuesta y mi respuesta..