como cerrar una base de datos
Publicado por angel (4 intervenciones) el 14/12/2006 05:00:57
hola a todos los usuarios de este foro mi pregunta es la siguiente como puedo cerrar la base de datos, explico mi problematica con mayor detalle:
estoy trabajando con una base de datos en access 97 la cual la enlazo a mi sistema en visual mediante un modulo con la siguente sintaxix.
Global BD As Database
Global clientes As Recordset
Global ventas As Recordset
Global compra As Recordset
Global prodventas As Recordset
_________________________________________________________________________
Sub Abrir_Base()
Set BD = OpenDatabase(App.Path + "\bdsadvec.mdb")
Set ventas = BD.OpenRecordset("ventas", dbOpenDynaset)
Set compra = BD.OpenRecordset("compra", dbOpenDynaset)
Set prodventas = BD.OpenRecordset("prodventas", dbOpenDynaset)
Set clientes = BD.OpenRecordset("clientes", dbOpenDynaset)
End Sub
_________________-no coloco todas la tablas!!!es solo un ejemplo
entonces cada que quiero manejar datos de una tabla escribo por ejemplo
Abrir_Base
with compras
codigo
end with
hasta aki no tengo problemas el problema surge cuando quiero generar respaldos me manda un error que la base de datos esta abierta, y ps no c como cerrarla, ya que cuando ejecuto el sistema y no abro la base de datos si me genera el respaldo en una ruta la cual la escojo mediante el drivelistbox y el dirlistbox, entonces el problema es que no cierro la base de datos... si alguien me puede decir si hay algun codigo para cerrar la base de datos pues se lo agradeceria, en la propiedades la variable BD escojo la que dice close pero no cierra nada de antemano gracias!!! cualquier sugerencia se acepta !!!!
estoy trabajando con una base de datos en access 97 la cual la enlazo a mi sistema en visual mediante un modulo con la siguente sintaxix.
Global BD As Database
Global clientes As Recordset
Global ventas As Recordset
Global compra As Recordset
Global prodventas As Recordset
_________________________________________________________________________
Sub Abrir_Base()
Set BD = OpenDatabase(App.Path + "\bdsadvec.mdb")
Set ventas = BD.OpenRecordset("ventas", dbOpenDynaset)
Set compra = BD.OpenRecordset("compra", dbOpenDynaset)
Set prodventas = BD.OpenRecordset("prodventas", dbOpenDynaset)
Set clientes = BD.OpenRecordset("clientes", dbOpenDynaset)
End Sub
_________________-no coloco todas la tablas!!!es solo un ejemplo
entonces cada que quiero manejar datos de una tabla escribo por ejemplo
Abrir_Base
with compras
codigo
end with
hasta aki no tengo problemas el problema surge cuando quiero generar respaldos me manda un error que la base de datos esta abierta, y ps no c como cerrarla, ya que cuando ejecuto el sistema y no abro la base de datos si me genera el respaldo en una ruta la cual la escojo mediante el drivelistbox y el dirlistbox, entonces el problema es que no cierro la base de datos... si alguien me puede decir si hay algun codigo para cerrar la base de datos pues se lo agradeceria, en la propiedades la variable BD escojo la que dice close pero no cierra nada de antemano gracias!!! cualquier sugerencia se acepta !!!!
Valora esta pregunta


0