Cerrar Base de Access

15/02/2006 - 15:39 por Israel Martínez | Informe spam
Hola foro!

Tengo un problema con el siguiente codigo:

Sub Main()
Dim cat As ADOX.CatalogClass = New ADOX.CatalogClass
cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Temp\NewMDB.mdb;" & _
"Jet OLEDB:Engine Type=5")
cat = Nothing
Console.WriteLine("Database Created Successfully")
Console.Read()

File.Delete("C:\Temp\NewMDB.mdb")
Console.WriteLine("Database Deleted")
Console.Read()
End Sub

Cuando el programa intenta eliminar el archivo genera una excepción de que
el archivo esta en uso, mi pregunta es ¿Como cierro el archivo una vez que ya
ha sido creado?

Les agradesco de antemano.
 

Leer las respuestas

#1 Jorge Serrano [MVP VB]
15/02/2006 - 16:01 | Informe spam
Hola,

prueba con esto:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim cat As ADOX.CatalogClass = New ADOX.CatalogClass
cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Temp\NewMDB.mdb;" & _
"Jet OLEDB:Engine Type=5")

cat = Nothing

GC.Collect()
GC.WaitForPendingFinalizers()

System.IO.File.Delete("C:\Temp\NewMDB.mdb")

End Sub

Espero que te sirva.

Dinos si te sirvió.

Un saludo,

Jorge Serrano Pérez
Microsoft MVP VB.NET
PortalVB.com
http://www.portalvb.com/
Weblog de Jorge Serrano
http://weblogs.golemproject.com/jorge/


"Israel Martínez" wrote:

Hola foro!

Tengo un problema con el siguiente codigo:

Sub Main()
Dim cat As ADOX.CatalogClass = New ADOX.CatalogClass
cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Temp\NewMDB.mdb;" & _
"Jet OLEDB:Engine Type=5")
cat = Nothing
Console.WriteLine("Database Created Successfully")
Console.Read()

File.Delete("C:\Temp\NewMDB.mdb")
Console.WriteLine("Database Deleted")
Console.Read()
End Sub

Cuando el programa intenta eliminar el archivo genera una excepción de que
el archivo esta en uso, mi pregunta es ¿Como cierro el archivo una vez que ya
ha sido creado?

Les agradesco de antemano.

Preguntas similares