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