Public Sub SaveDt(ByRef dt As DataTable, ByVal DatabaseFile As String) If My.Computer.FileSystem.FileExists(DatabaseFile) Then My.Computer.FileSystem.DeleteFile(DatabaseFile) End If SQLiteConnection.CreateFile(DatabaseFile) Try dbLiteConn = New SQLiteConnection(setConn_Lite(DatabaseFile)) dbLiteComd = dbLiteConn.CreateCommand() dbLiteComd.CommandText = String.Format("SELECT * FROM {0}", dt.TableName) dbLiteAdapt = New SQLiteDataAdapter(dbLiteComd) Dim dbLitebuilder As New SQLiteCommandBuilder(dbLiteAdapt) dbLiteAdapt.Update(dt) dbLiteConn.Close() Catch Ex As Exception MessageBox.Show(Ex.Message) End Try End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)