Torna al Thread

Private Sub CommandButton1_Click() Dim query As String Const pathDbaseLocal = "E:\RicettaCalandraBollate.mdb" Set db = DAO.OpenDatabase(pathDbaseLocal) query = " INSERT INTO GeneraleProcesso SELECT T1.* FROM [MS ACCESS;Database=E:\RicettaCalandraBollate.mdb].GeneraleProcesso AS T1 LEFT JOIN GeneraleProcesso AS T2 ON T1.Codice=T2.Codice WHERE T2.Codice IS NULL" db.Execute (query) db.Close MsgBox ("Database Locale copiato su Remoto"), vbInformation End Sub
Copyright © dotNetHell.it 2002-2024
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5