[VB6] Creazione copia di un database MySQL

[sal21]

Ho questa connessione in un progetto vb6 classic:

Public Sub APRI_CONNESSIONE()

On Error GoTo Err_SomeName

Dim PC_OPERANTE As String

PC_OPERANTE = Environ$("COMPUTERNAME")

Set CONN = New ADODB.Connection
With CONN
.ConnectionString = "Driver={MySQL ODBC 3.51 Driver};Server=localhost;Port=3306;Database=l_mysq l;User=root; Password=sal21;Option=3;"
.CommandTimeout = 1000
.ConnectionTimeout = 1000 'Tempo in mS prima che il tentativo di connessione vada in TimeOut
.CursorLocation = adUseServer
.Open
End With

COPIA_DATABASE

Exit_SomeName:
Exit Sub

Err_SomeName:
MsgBox Err.Number & Err.Description
Resume Exit_SomeName

End Sub

Vorrei replicare sempre nello stesso server il databse l_mysql con nome l_mysql_1.
Naturalmente con tutte le tabelle e le proprietà dei vari campi.

Si puo fare via codice vb6.?

Grazie.

[sal21]

Originariamente inviato da sal21
Ho questa connessione in un progetto vb6 classic:

Public Sub APRI_CONNESSIONE()

On Error GoTo Err_SomeName

Dim PC_OPERANTE As String

PC_OPERANTE = Environ$("COMPUTERNAME")

Set CONN = New ADODB.Connection
With CONN
.ConnectionString = "Driver={MySQL ODBC 3.51 Driver};Server=localhost;Port=3306;Database=l_mysq l;User=root; Password=sal21;Option=3;"
.CommandTimeout = 1000
.ConnectionTimeout = 1000 'Tempo in mS prima che il tentativo di connessione vada in TimeOut
.CursorLocation = adUseServer
.Open
End With

COPIA_DATABASE

Exit_SomeName:
Exit Sub

Err_SomeName:
MsgBox Err.Number & Err.Description
Resume Exit_SomeName

End Sub

Vorrei replicare sempre nello stesso server il databse l_mysql con nome l_mysql_1.
Naturalmente con tutte le tabelle e le proprietà dei vari campi.

Si puo fare via codice vb6.?

Grazie.

up sorry

[sal21]

Originariamente inviato da sal21
up sorry

sorry for up

[alka]

Originariamente inviato da sal21
sorry for up

Invece di fare degli up passivi, prova ad aggiungere altri dettagli sul tuo problema, o ad aggiornare gli utenti su eventuali progressi e informazioni ricercate, altrimenti trascorso un po' di tempo non ha nemmeno più senso risollevare (e continuare a farlo) la discussione.

[sal21]

Originariamente inviato da alka
Invece di fare degli up passivi, prova ad aggiungere altri dettagli sul tuo problema, o ad aggiornare gli utenti su eventuali progressi e informazioni ricercate, altrimenti trascorso un po' di tempo non ha nemmeno più senso risollevare (e continuare a farlo) la discussione.

non saprei cosa scrivere di più per decsrivere il prob. In ogni casdo i progressi sono =0

[oregon]

Se vuoi fare un backup del DB per sicurezza, devi usare il comando

mysqldump

ma non ha senso farlo da VB6.