Dim AccessConnection As New System.Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\dbase\settings.mdb;")
AccessConnection.Open()
Dim AccessCommand = New System.Data.OleDb.OleDbCommand("DELETE * from allSettings", AccessConnection)
AccessCommand.CommandType = CommandType.Text
AccessCommand.ExecuteNonQuery()
AccessCommand = New System.Data.OleDb.OleDbCommand("INSERT INTO allSettings SELECT * FROM allSettings_default", AccessConnection)
'AccessCommand = New System.Data.OleDb.OleDbCommand("SELECT * INTO allSettings FROM allSettings_default", AccessConnection)
AccessCommand.CommandType = CommandType.Text
AccessCommand.ExecuteNonQuery()
AccessConnection.Close()
No comments:
Post a Comment