[VB6] Problematiche di backup di database

[yyzyyz]

ciao , quali sono i sistemi x fare un backup del db, senza chiudere la connessione al db (se possibile).
Quello ke volevo fare, è di archiviare il db ogni mese azzerando quello esistente, in modo ke sia sempre snello e veloce, inoltre devo avere la possibilità di rileggere i db archiviati.

ke strada mi consigliate ?

sono già a buon punto , ho solo dei problemi dopo l'esecuzione del backup (no sulla compressione db), il mio programma dopo un po' si blokka, prendendo il 100% delle risorse del processore(CPU).

[oregon]

Probabilmente parli di un db access (anche se dovresti precisarlo).

Non puoi fare la copia se non chiudi le connessioni.

Non si puo' dire qual e' il problema se non mostri il codice del tuo programma in cui si blocca ...

[LMondi]

Qui c'è un esempio:
http://forum.masterdrive.it/showthre...ght=compattare

[yyzyyz]

grazie ragazzi , forse oregon nn ha tutti i torti quando vuole + info , allora il db è in access(2000), il problema non si presenta quando compatto il db xchè il software continua a lavorare bene, ma quando avviene il backup a fine mese allora non fa altro ke :
1) kiudere le connessioni al db
2) copiare il db in un cartella backup
3) azzerare il db corrente
4) aprire le connessioni db

ho notato ke si blocca in questa parte di sorgente, senza pero' restituirmi un errore in modo da poterlo intercettare in fase di debug. (blocco programma, uso cpu 100%)
ke ne dite ?

' apertura RS
If Rs_tmp.State = 1 Then Rs_tmp.Close
Rs_tmp.Open "select * from sessionlistout"
With Rs
    .MoveFirst
        Do Until .EOF
        tmppass = .Fields!UserName
        ' apertura file sht/html
        Open App.Path & "\radius.html" For Input As numfile
            Do While Not EOF(numfile)
                Input #numfile, riga
                pos = InStr(1, riga, tmppass)
                    If pos <> 0 Then
                        temppass = Mid(riga, pos, 10)
                        temppass = Trim(temppass)
                        tempip = Mid(riga, pos + 55, 15)
                        tempip_pos = InStr(1, tempip, "<") - 1 ' modifica ke permette il check di ip completi (15char)
                        tempip = Mid(tempip, 1, tempip_pos)
                        List1.AddItem ("ip:" & temppass) & (" ipout:" & tempip)
                            If .Fields!UserName = temppass Then
                                .Fields!ip = tempip
                                .Update
                               '.MoveNext
                            End If
                    End If
            Loop
        Close numfile
    .MoveNext
        Loop
End With

grazie

[Luciano79]

A me sembra corretto. Come fai a dire che si blocca qui? Dovrai pur riuscire a capire se si blocca in una determinata riga o se entra in un ciclo infinito... prova a far stampare per esempio il numero di record che leggi di RS, oppure fai eseguire il tutto passo passo quando pensi che si sia "bloccato".

[yyzyyz]

grazie a tutti , gentilissimi come sempre , ho risolto , effettivamente il codice era giusto, diciamo che non riuscivo ad intercettare l'errore xchè usavo "on error resume next" all'inizio della sub (sconsigliato)
qualke problema quando azzeravo il db e qualke pikkolo bug qua e la ...speriamo bene