VBx SQL 2000

[s.l.a.s.h 0]

e ae galera, alguem saberia me dizer como criar uma simples stored procedure no Sql server q realize backup do banco de dados e executar a mesma no vb...como posso fazer tdo isso, please??? :(

 

Agradeço desde ja!! http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

 

[]'s http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[eriva_br 7]

e ae galera, alguem saberia me dizer como criar uma simples stored procedure no Sql server q realize backup do banco de dados e executar a mesma no vb...como posso fazer tdo isso, please??? :(

 

Agradeço desde ja!! http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

 

[]'s http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

<{POST_SNAPBACK}>

Private Sub Restore(ByVal NomeBanco As String, ByVal Arquivo As String)

 

Dim SQL As String

SQL = "RESTORE DATABASE " & NomeBanco & " FROM DISK = '" & Arquivo & " '"

SQL = SQL & "WITH FILE = 1, NOUNLOAD , STATS = 10, RECOVERY"

 

cnn.Execute SQL

 

End Sub

 

no exemplo ai você pode por mais umas opções do sql na string... MOVE, REPLACE, RESTART, etc...

qq. coisa verifica no help do sql na parte de restore...

 

 

pra backup você pode usar este exemplo aqui

 

Private Sub Backup(ByVal NomeBanco As String, ByVal Backup_Log As Boolean, ByVal Sobrescrever As Boolean, ByVal Diretorio As String)

 

Dim SQL As String

SQL = "BACKUP " & IIf(Backup_Log, "LOG", "DATABASE") & " " & NomeBanco & _

" TO DISK = '" & Diretorio & "\" & NomeBanco & IIf(Backup_Log, "_log", "") & IIf(Sobrescrever, "", "_" & Format(Time, "ddMMyyhhmmss")) & ".bak" & "' "

SQL = SQL & " WITH INIT, "

'SQL = SQL & "PASSWORD = '" & Backup_Senha & "', "

SQL = SQL & "NAME = '" & NomeBanco & "'," & _

IIf(Backup_Log, "NO_TRUNCATE, ", "") & _

" RESTART"

 

cnn.Execute SQL

 

End Sub

 

se você quiser colocar em stored procedure, é só montar de acordo com a variavel SQL tanto para backup como para restore

 

 

 

valews,