codice:
Dim fileaggiorna As String = My.Application.Info.DirectoryPath & "\magaagg.Mdb"
Dim QueryInserimento4 As OleDb.OleDbCommand
Dim StringaQuery As String
Dim connectionString As String = "Provider=Microsoft.Jet.OleDb.4.0;Data Source=" & fileaggiorna
Using connection As New OleDbConnection(connectionString)
connection.Open()
Try
StringaQuery = "insert into magaz select codice,articolo from idraulica in 'c:\maga.Mdb'"
Dim estrai8 As OleDbCommand = New OleDbCommand(StringaQuery, connection)
estrai8.ExecuteNonQuery()
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Information, " info :[Attenzione] errore")
End Try
End Using
Ecco il codice in visual basic 2008