SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: erick185 en Sábado 11 de Marzo de 2006, 06:13

Título: Copiar Base De Datos
Publicado por: erick185 en Sábado 11 de Marzo de 2006, 06:13
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...
Título: Re: Copiar Base De Datos
Publicado por: masticor en Domingo 12 de Marzo de 2006, 02:34
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"
Título: Re: Copiar Base De Datos
Publicado por: masticor en Domingo 12 de Marzo de 2006, 02:45
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