dradana2003
13 de Enero del 2005

tengo un programa que trabaja y crea una base de datos, para que el cliente traslade para allá un grupo de datos de su interes, pero los usuarios en ocasiones no cierran adecuadamente el programa y la base de dato no se destruye y cuando lo vuelven a cargar, el programa da un error de que la base de datos ya existe y no he podido resolver. quiero que antes de crearla, verifique si existe y que la destruya
este es el codigo que estoy usando

'Aqui se crea la base de datos

sProvider = "Microsoft.Jet.OLEDB.4.0"
sNombreBase = "C:SIATOBASE DE DATOSPROVICIONAL.MDB"

Dim cat As ADOX.Catalog
Set cat = New ADOX.Catalog
'
' Crear la base de datos
cat.Create "Provider=" & sProvider & ";" & _
"Data Source=" & sNombreBase & ";"

pero no se como chequear si la base existe

por fvaor ayuda con esto

Saludos

dradana

l_island
13 de Enero del 2005

Añade este trozo de código antes del tuyo:

'Eliminr fichero anterior
If dir("C:SIATOBASE DE DATOSPROVICIONAL.MDB"
) <> "" then kil "C:SIATOBASE DE DATOSPROVICIONAL.MDB"

todo los demás es igual.

Saludos!!
l_island