Jump to content
Sign in to follow this  
Ana_Moreira

SQLbackupZip

Recommended Posts

Ana_Moreira

estou a fazer um programa em visual basic..

esse programa tem de fazer:

  • procurar por todo o computador bases de dados
  • permitir selecionar as que quero fazer backup
  • permitir selecionar o dia em que quero
  • permitir escolher a hora
  • e ainda se quero guardar o backup em CD ou em Zip

para desenvolver este programa tenho como base o programa "SQLbackupZip"

tenho de entregar essa trabalho em breve.. ajudem-me por favor


A'MoreiraEu sobrevivi ao fim do mundo (: ahahahhttp://lmgtfy.com/?q=digite+aqui+sua+duvida+que+eu+te+respondo!

Share this post


Link to post
Share on other sites
thoga31

De facto, o dia 9 tem sido recheado.

Já leste as Regras do FÓRUM?

2.3) Não é permitida a criação de tópicos ou colocação de mensagens a pedir para que se façam trabalhos. Pedir ajuda é diferente de pedir trabalhos feitos. Em caso de incumprimento o staff pode bloquear o tópico ou mesmo apagar o tópico/mensagem.

Onde tens dificuldades? Onde tens o TEU código feito até então?

Não podes debitar o que te é pedido a TI e dizeres aqui "ajudem-me" - é o.m.q. "façam-me isto, p.f."


Knowledge is free!

Share this post


Link to post
Share on other sites
Ana_Moreira

Aqui esta o meu código

Option Explicit

Private Sub Form_Load()

    On Error GoTo error
    
    Dim SERVIDOR As String
    
    SERVIDOR = UCase(Winsock.LocalHostName) & "\" & "SQLEXPRESS"
    Set Cnn = New ADODB.Connection
    Cnn.CursorLocation = adUseClient
    Conecao = "Provider=SQLOLEDB.1;Persist Security Info=False;Initial Catalog="";Data Source= '" & SERVIDOR & "'"

    Set Rs = New ADODB.Recordset
    
    'Query = preciso de procurar as base de dados sql no computador, para preencher a tabela
    WITH NOFORMAT, INIT,  NAME = N " " -Full Database Backup', SKIP, NOREWIND, NOUNLOAD,  STATS = 10"
    Rs.Open (Query), Cnn, adOpenStatic, adLockPessimistic
    Cnn.Close
    End
    Exit Sub
error:
    MsgBox Err.Description
    Exit Sub
End Sub




'Aqui é um módulo
Option Explicit

Public Cnn     As ADODB.Connection
Public Rs      As ADODB.Recordset
Public Conecao As String
Public Query   As String


A'MoreiraEu sobrevivi ao fim do mundo (: ahahahhttp://lmgtfy.com/?q=digite+aqui+sua+duvida+que+eu+te+respondo!

Share this post


Link to post
Share on other sites
Ana_Moreira

caro Bessa, para já ainda não..

vê se das aí um empurramzinho :P


A'MoreiraEu sobrevivi ao fim do mundo (: ahahahhttp://lmgtfy.com/?q=digite+aqui+sua+duvida+que+eu+te+respondo!

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.