My conn:
Code: Select all
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_mysql;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
Exit_SomeName:
Exit Sub
Err_SomeName:
MsgBox Err.Number & Err.Description
Resume Exit_SomeName
End Sub
Is possible to copy/replicate this database in the same instance with a new named l_mysql_1.?
note:
- all via VB6 code
- Naturally with all tables and maintan all property of field, indexed fields, name ecc...