09-07-24, 10:30 AM
فضلا هل يمكن مراجعة الكود الخاص بنسخ قاعدة البيانات الى مسار محدد لأنه لم يعمل معي
كود :
Dim Con = New SQLiteConnection("Data Source=|DataDirectory|\codedb.db")
If Con.State = ConnectionState.Closed Then Con.Open()
'Dim backupFileName As String = Application.StartupPath & "codedb" & "_" & System.DateTime.Now.ToString("dd-MM-yyyy_h-mm-ss") & ".db"
Dim backupFileName2 As String = Application.StartupPath & "\backup.db"
Dim cmd = New SQLiteCommand("VACUUM MAIN INTO '" & backupFileName2 & "'", Con)
'Dim cmd = New SQLiteCommand("VACUUM main INTO 'c:\codedb_backup.db'", Con)
cmd.ExecuteNonQuery()
Con.Close()