Quantcast
Channel: Visual Basic Tips and Tricks
Viewing all articles
Browse latest Browse all 2212

Esportazione tabella DB access 2010 in VB6

$
0
0
Ciao ragazzi sono nuovo qui. Sto rientrando nella programmazione dopo un pò di inattività e mi perdo in un bicchier d'acqua. Non sono riuscito a trovare una risposta chiara per a questo problema.
Ho 2 database in access 2010, strutturati in maniera identica, devo copiare l'intero contenuto di una tabella da un db all'altro. Vi posto il codice

in esecuzione non ho problemi ma di fatto niente viene esportato 


Dim db1 As String
Dim db2 As String
Dim connessioneDB1 As New ADODB.Connection
Dim connessioneDB2 As New ADODB.Connection
Dim recordsetDB1 As New ADODB.Recordset
Dim recordsetDB2 As New ADODB.Recordset
Dim stringa As String
Dim query As String

db1 = CStr(txtDB1.Text)
'connessione database 1
stringa = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source="& db1
connessioneDB1.Open stringa

db2 = CStr(txtDB2.Text)
'connessione database 1
stringa = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source="& db2
connessioneDB2.Open stringa


query = "INSERT INTO rubrica SELECT * FROM rubrica IN 'c:database.mdb'"
connessioneDB1.Execute (query)


Viewing all articles
Browse latest Browse all 2212