RE:Backup SQL C/Visual Basic 6.00
Tenés que usar la librería Microsft SQLDMO Object Library
Una vez que la referencias, el código es simple
Private sub Crear_Backup()
Set SqlState = New SQLDMO.SQLServer
SqlState.Start False, "PC1\BASESQL" , "sa", "password"
SqlState.Connect "PC1\BASESQL" , "sa", "password"
Dim oBackup As New SQLDMO.Backup
oBackup.Database = "MIBASEDEDATOS"
'************ NET ***************
oBackup.Files = "c:\BACKUP.bak"
' Backup de la Base de Datos.
oBackup.SQLBackup SqlState
Set oBackup = Nothing
End Sub
Private Sub Restore_backup()
Set SqlState = New SQLDMO.SQLServer
SqlState.Start False, "PC1\BASESQL" , "sa", "password"
DoEvents
SqlState.Connect "PC1\BASESQL" , "sa", "password"
Dim oRestore As SQLDMO.Restore
Set oRestore = New SQLDMO.Restore
oRestore.Database = "MIBASEDEDATOS"
oRestore.Files = "c:\BACKUP.bak"
' Restaura la base de datos.
oRestore.SQLRestore SqlState
Set oRestore = Nothing
End Sub
Suerte con tu proyecto