visualbasic6.0 y acces2003

[rororifr]

hola amigos necesito una ayuditales explico -- una tabla en acces tiene un camco clave autonumerico y 15 campos de datos ok desde visual basic envio los datos mediante una dll funciona normalmente el campo autonumerico se incrementa de uno en uno el problema es que el valor del incrementable es de 1425 y yo quiero que empiece de uno borro todos los datos limpio la tabla hago otro insert desde visual y ahora es el registro 1426 como hago para que se balla a uno la tabla ya borre todo los datyos de la tabla y nada gracvias por la ayuda de antemano

[Avellaneda]

Debes compactar la BD

en menú Herramientas->Utilidades de la base de datos->Compactar y reparar base de datos...

También lo puedes hacer por código desde VB (si no sabes cómo, nos preguntas)

y otra opción sería eliminar la tabla y volverla a crear.

[rororifr]

Porfavor Si Ayudame Como Lo Hago Desde Visual Basic

[Avellaneda]

Te coloco el ejemplo

Nota: tienes que marcar la referencia "Microsoft Access xx.x Object Library"

Código:

Dim sDBTmp As String, NombreMdb As String
Dim oAccess As New Access.Application

NombreMdb = App.Path & "\bd1.mdb"
sDBTmp = "DBTmp.mdb"
' si ya existe el archivo temporal lo eliminamos
If Len(Dir$(sDBTmp)) Then Kill sDBTmp
sDBTmp = App.Path & "\" & sDBTmp
' cerramos la conexión para poder compactar
If cn.State = 1 Then cn.Close
oAccess.CompactRepair NombreMdb, sDBTmp
' Eliminamos la DB original
Kill NombreMdb
' y renombramos la compactada
Name sDBTmp As NombreMdb
' abrimos de nuevo la dbcn.Open "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & App.Path & "\bd1.mdb"

En azul los datos que tienes que sustituir

[rororifr]

muchisimas gracias avellaneda me sirvio de mucho gracias nuevamente que la pases bien