Foro de elhacker.net

hola muchachos nose si me pueden apoyar en esto
bien tengo un sistema.mdb. en cual ese sistema.mdb quiero copiarlo y establecer la ruta desde visual basic y eliminar todos los datos ingresados anteriormente claro por si hay

espero que me haya expresado bien

saludos...........! y gracias

a ver tienes un sistema que usa una base de datos de access (.mdb) y quieres copiar la base de datos a otra ubicaión y borrarle todos los registros?

para copiar la base de datos puedes usar el FileCopy


Dim ArchOrigen, ArchDestino
ArchOrigen = "ARCHORIG"   ' Se define el nombre del archivo de origen.
ArchDestino = "ARCHDEST"   ' Se define el nombre del archivo de origen.
File Copy ArchOrigen, ArchDestino   ' Se copia el archivo de origen en el archivo de destino.

hola que tal gracias por responder
si tengo un sistema.mdb en la cual el objetivo es copiar la db y darle un destino
y bueno en borrar los registros no hay problema .
bien, saludos y gracias

hola si me funciona el codigo gracias
Ahora como puedo hacer que al momento de guardar verifique si existe la base de datos en dicha carpeta a guardar
si existe que mande un mensaje , de lo contrario que lo guarde..
antetodo gracias y saludos.

puedes usar el getattr, este es para checar los atributos de un archivo pero da igual


mira pones

on local error resume next
dim i as long
 i = getattr("c:\tu_archivo.mdb")
if err then   
 ' No encontro el archivo
else
 ' si existe
end if
on local error goto 0
   

hola gracias por la resp
si me funciona
saludos........!