اطلاعیه

کاربر گرامی

به انجمن برنامه نویسی AnswerCenter.ir خوش آمدید

 برای استفاده از تمامی امکانات سایت لطفا در انجمن عضو شوید


امین مهدی نژاد

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

1 ارسال در این موضوع قرار دارد

در منوی 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

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

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

برای ارسال دیدگاه یک حساب کاربری ایجاد کنید یا وارد حساب خود شوید

برای اینکه بتوانید دیدگاهی ارسال کنید نیاز دارید که کاربر سایت شوید

ایجاد یک حساب کاربری

برای حساب کاربری جدید در سایت ما ثبت نام کنید. عضویت خیلی ساده است !

ثبت نام یک حساب کاربری جدید

ورود به حساب کاربری

دارای حساب کاربری هستید؟ از اینجا وارد شوید

ورود به حساب کاربری