Hola!
Quiero compactar (shrink) y hacer un backup de una base de datos en SQL 2000 desde Visual Basic 6
El tema es q cuando utilizaba Acces lo hacia de la siguiente manera, paso este ejemplo generico...

myJRO.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\\mymdb\\sample.mdb;Jet OLEDBatabase Password=YourPassword;", _
'"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\\mymdb\\compactedSample.mdb;Jet OLEDB:Engine Type=5; Jet OLEDBatabase Password=YourPassword;"

La pregunta es q tengo q modificar para q esto sirva o como lo puedo hacer en SQL 2000 ???
Gracias
Diego Ares :smt004

Hola dare_! :smt001

Desde visual basic no se como se hace, pero desde el Enterprise Manager del sql si lo hago comunmente. Aqui te adjunto un video de como se hace. espero que te sirva!

Mucha suerte! :smt004

P.D. : Despues de descomprimirlo ejecuta el archivo con extension .html

Archivos Adjuntos

backup_y_shrink_-_sql_server_265.zip (289,4 KB, 21 visitas)

Hola!
Gracias por el archivo lo voy a investigar...
igualmente reitero q quiero saber como hacerlo desde SQL 2000 porque
la idea es q lo pueda hacer un usuario desde el programa ya compilado, yo se como hacerlo manualmente desde SQL 2000, pero estoy notando q lamentablemente los usaurios no saben como hacer ciertas cosas, por eso quiero q sea lo mas simple posible y q no tengan q usar para nada el SQL 2000 ellos...
Gracias nuevamente
Diego Ares :smt004

Amigo Lordgblue,

Ojala todos los usuarios decidan bajarse la version de prueba del BBFlashBack y contesten a los posts como lo has hecho tu... con un VIDEO.

Gracias por comprender que se debe dar lo mejor de uno, para que luego podamos aspirar a las mejores respuestas.

Muchas Gracias

Saludos

__________________
Pablo Tilotta
Administrador de...
www.vb-mundo.com
Visual Basic
Videos Programacion
Foro Programacion
Tutoriales Programacion
Visual Basic.NET

El amigo Isaias Islas me respondio esto por mail con respecto a mi post en el foro, ya q como el publicaba en otro post su correo de hotmail me tome el atrevimiento de mandarle un mail a ver si obtenia la ayuda más rapido, igual lamentablemte todavia no puedo llegar a hacer el backup automatico desde VB6 q es a lo q apunto, quizas me puedan seguir orientando, se positivamanente q lo voy a terminar por lograrlo...

Isaias me decia:

Primero, instala tu ayuda en linea (BOL = Books On Line)

http://www.microsoft.com/sql/techinf...000/books.mspx

Segundo, en sql, la instruccion para hacer una respaldo es: BACKUP

Este ejemplo crea un dispositivo de copia de seguridad lógico, en el que se
situará una copia de seguridad completa de la base de datos MyNwind.

-- Create a logical backup device for the full MyNwind backup.
USE master
EXEC sp_addumpdevice 'disk', 'MyNwind_1', 'c:\Program Files\Microsoft SQL
Server\MSSQL\BACKUP\MyNwind_1.dat'

-- Back up the full MyNwind database.
BACKUP DATABASE MyNwind TO MyNwind_1

Tercero, para COMPACTAR el dispositivo de forma automatica, ve a tus
PROPIEDADES de tu base de datos (En la consola de administracion, boton
derecho sobre el cilindro de la base de datos, boton derecho mouse,
Propiedades, Options, Auto Shrink

Espero sirva mi comentario.

Saludos

Yo desde VB6 con Acces hacia lo siguiente

Dim JRO As New JRO.JetEngine
myJRO.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\\mymdb\\sample.mdb;Jet OLEDBatabase Password=YourPassword;", _
'"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\\mymdb\\compactedSample.mdb;Jet OLEDB:Engine Type=5; Jet OLEDBatabase Password=YourPassword;"

Lo que quiero es poder desde el codigo en VB6 hacer un backup de una base de datos en sql 2000 !!!

Ayuda Desesperada Please!!!

Diego Ares

Hola Chiaravel!

Para mi es un gusto colaborar con las personas que tengan alguna duda. Los videos que ustedes han publicado me han motivado a responder el post anterior, ya que por medio de ello es mas facil de comprender las dificultades que se tengan, y el aprendizaje va a ser instantaneo.

Mucha Suerte! :smt001

Quizas a alguien le sirva esto q encontre en la web a mi se me esta complicando demasiado...

BackUp SQL 2000 desde Visual Basic 6

References:

Microsoft SQLDMO Object Library

Declarations:

'* * * * * * * * * * * * * *
'Passing Values
'* * * * * * * * * * * * * *
'nServer_Name = sql name
'nDB_Name = Database name
'nDB_Login = Login name
'nDB_Password = Password
'nBack_Dev =Backup device name
'nBack_Set = Backup set name
'nBack_Desc = Backup discription

'Backup device name has to be specified by the SQL ADMIN.
'Which comes under SQL Backup. The name you specified must
'be same as Passing value of backup device name.

'SQL ADMIN can only specify the device type(Tape, HD,...).

'* * * * * * * * * * * * * *

'* * * * * * * * * * * * * *

Option Explicit
Private oSQLServer As SQLDMO.SQLServer

Code:

Public Function DB_Backup(ByVal nServer_Name As String, _
ByVal nDB_Name As String, _
ByVal nDB_Login As String, ByVal nDB_Password As String, _
ByVal nBack_Dev As String, ByVal nBack_Set As String, _
ByVal nBack_Desc As String) As Boolean

' nServer_Name = sql name
' nDB_Name = Database name
' nDB_Login = Login name
' nDB_Password = Password
' nBack_Dev =Backup device name
' nBack_Set = Backup set name
' nBack_Desc = Backup discription
Dim oBackup As SQLDMO.Backup
On Error GoTo ErrorHandler
Set oBackup = CreateObject("SQLDMO.Backup")
If Connect_SQLDB(nServer_Name, nDB_Login, nDB_Password) Then
oBackup.Devices = "[" & nBack_Dev & "]"
oBackup.Database = nDB_Name
oBackup.BackupSetName = nBack_Set
oBackup.BackupSetDescription = nBack_Desc
oBackup.SQLBackup oSQLServer
oSQLServer.DisConnect
DB_Backup = True
End If

Exit Function
ErrorHandler:
DB_Backup = False
End Function


Private Function Connect_SQLDB(ByVal nServer_Name As String, _
ByVal nDB_Login As String, _
ByVal nDB_Password As String) As Boolean

' nServer_Name = sql name
' nDB_Login = Login name
' nDB_Password = Password

Set oSQLServer = CreateObject("SQLDMO.SQLServer")
On Error GoTo ErrorHandler
Connect_SQLDB = False
oSQLServer.Connect nServer_Name, nDB_Login, nDB_Password
Connect_SQLDB = True
Exit Function
ErrorHandler:
oSQLServer.DisConnect
Connect_SQLDB = False
End Function

Dares:

En mis proyectos utilizo un submenu Backup y otro Restore,

lo que hace el primero es llamar a un SP llamado Backupy a otro SP Restore_Backup

CREATE PROCEDURE [Backup]
(@Ruta_1 [nvarchar](255))

AS

BACKUP DATABASE Turismo
TO DISK = @Ruta_1
WITH FORMAT,
NAME = 'Full Backup of Turismo'
GO
", en la cual le digo la ruta y el nombre del Archivo de backup.


El boton o submenu Backup es el siguiente:

Private Sub mnuBackup_Click()

Dim cmd As ADODB.Command
Dim ParamRuta As ADODB.Parameter

Set cmd = New ADODB.Command
Dim Ruta$

Ruta$ = ReadIni("Ubicacion", "Backup", IniConfig$) & _
"Turismo_" & Year(Date) & "-" & Month(Date) & "-" & Day(Date) '& ".dat"

Set ParamRuta = cmd.CreateParameter("Ruta_1", adVarChar, adParamInput, 255, Ruta$) '"Prueba")
cmd.Parameters.Append ParamRuta

With cmd
.ActiveConnection = Cnn
.CommandType = adCmdStoredProc
.CommandText = "dbo.Backup"
.Execute
End With

Set ParamRuta = Nothing
Set cmd = Nothing
End Sub

La ruta en lugar de dejarlo en el código, lo recupero de un archivo config.ini ubicado en forma local, para poder pasarselo al SP (procedimiento almacenado) que obviamente se encuentra en el servidor.

Con igual temperamento para el Restore

Private Sub mnuRestore_Click()
Dim cmd As ADODB.Command
Dim ParamRuta As ADODB.Parameter

Set cmd = New ADODB.Command
Dim CaminoRestore$
CaminoRestore = ReadIni("Ubicacion", "Backup", IniConfig$)
Set ParamRuta = cmd.CreateParameter("Ruta_1", adVarChar, adParamInput, 255, CaminoRestore$)
cmd.Parameters.Append ParamRuta

With cmd
.ActiveConnection = Cnn
.CommandType = adCmdStoredProc
.CommandText = "dbo.Restore_Backup"
.Execute
End With

Set ParamRuta = Nothing
Set cmd = Nothing
End Sub


El SP es
CREATE PROCEDURE [dbo].[Restore_Backup]
(@Ruta_1 [nvarchar](255))

AS
DROP DATABASE Turismo

RESTORE DATABASE Turismo
FROM DISK = @Ruta_1

GO

Saludos, julioalbertogarciadeu@yahoo.com.ar

Hola y gracias por la respuesta...
voy a investigar un poco mas el tema a ver si puedo implementarlo...
pero explicame un poco mas...como llamo desde el visual basic y desde un menu esto q me explicas y no termino de entender cuando empezas con el tema de "create" eso es desde el SQL supongo, podes explicarme un poco mas, la verdad es q no domino muy bien el SQL Sever...
Gracias
Diego