افزودن خروجی SQLiteStudio در SQLCipher

[امین مهدی نژاد 2,141]

در منوی Tools گزینه Export در نرم افزار SQLiteStudio امکان گرفتن خروجی SQL از دیتابیس وجود داره که کلیه جداول و داده های موجود در اون رو در یک فایل به صورت SQL به شما تحویل خواهد داد.

در SQLCipher و برای رمزگذاری این داده ها می تونید اونها رو توسط متد زیر یکجا به پایگاه خود اضافه کنید

Sub AddData()
	Dim l As List=File.ReadList(File.DirAssets,"exam.sql")
	Dim s =""
	For i=0 To l.Size-1
		If (l.Get(i)&"").StartsWith("--")==False Then
			s=s&l.Get(i)
		End If
	Next
	Dim ss() As String=Regex.Split(";",s)
	For i=0 To ss.Length-1
		sql.ExecNonQuery(ss(i))
	Next
End Sub

مثلا

Sub Globals
	Dim sql As SQLCipher
End Sub

Sub Activity_Create(FirstTime As Boolean)
	If File.Exists(File.DirInternal,"test.db") Then
		sql.Initialize(File.DirInternal,"test.db",True,"password","")
	Else
		sql.Initialize(File.DirInternal,"test.db",True,"password","")
		AddData
	End If
	'================================
	Dim Cursor As Cursor
	Cursor = sql.ExecQuery("SELECT * FROM tbl")
	For i = 0 To Cursor.RowCount - 1
		Cursor.Position = i
		Msgbox(Cursor.GetString2(0),True)
	Next
End Sub

Sub AddData()
	Dim l As List=File.ReadList(File.DirAssets,"exam.sql")
	Dim s =""
	For i=0 To l.Size-1
		If (l.Get(i)&"").StartsWith("--")==False Then
			s=s&l.Get(i)
		End If
	Next
	Dim ss() As String=Regex.Split(";",s)
	For i=0 To ss.Length-1
		sql.ExecNonQuery(ss(i))
	Next
End Sub

«موفق باشید.»