• Domingo 22 de Diciembre de 2024, 12:25
« anterior próximo »
Páginas: [1]

Autor Tema:  Copiar Base De Datos  (Leído 1489 veces)

erick185

  • Miembro activo
  • **
  • Mensajes: 37
    • Ver Perfil
Copiar Base De Datos
« en: Sábado 11 de Marzo de 2006, 06:13 »
0
Hola, tengo dos preguntas:

    * ¿Cómo hago para copiar una base de datos que esta siendo usada por un control Data ya que no me lo permite?
    * ¿Cómo hago para borrar todos los registros de la base de datos (está conectada conn un data?

Gracias, de antemano...

masticor

  • Miembro activo
  • **
  • Mensajes: 31
    • Ver Perfil
Re: Copiar Base De Datos
« Respuesta #1 en: Domingo 12 de Marzo de 2006, 02:34 »
0
para copiar la base tienes que cerrar la coneccion copiar la base y luego abrirla

y para borrar todos los registros de una tabla prueba con la sentendia SQL

"Truncate"

coneccion.execute "Truncate NombreDeLaTabla"

masticor

  • Miembro activo
  • **
  • Mensajes: 31
    • Ver Perfil
Re: Copiar Base De Datos
« Respuesta #2 en: Domingo 12 de Marzo de 2006, 02:45 »
0
Código: Text
  1.  
  2. Private Sub Form_Load()
  3. Dim conect As New ADODB.Connection
  4.  
  5. Set conect = New ADODB.Connection
  6.     conect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\BASE.mdb;Persist Security Info=False"
  7.     conect.Close
  8.     'AKI BORRE SU BASE
  9.     conect.Open
  10.    
  11.     conect.Execute "TRUNCATE TABLE" 'PARA ELIMINAR TODOS LOS REGISTROS
  12.         'Como nota esto te elimina los registros pero no te livera el espacio de la base
  13.         'Recomiendo usar DROP TABLE para que elimine la tabla luego la creas denuevo o lo
  14.         'Que puedes hacer es compactarla luego de eliminar los registros
  15. End Sub
  16.  
  17.  

ahora sep =) espero que te sirva
Páginas: [1]
« anterior próximo »