اطلاعیه

کاربر گرامی

به انجمن برنامه نویسی 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

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

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


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

مطالب شما نیاز است به تایید مدیران برسد

مهمان
شما به عنوان کاربر مهمان در حال حاضر دیدگاه ارسال می کنید. اگر دارای حساب کاربری در سایت هستید لطفا وارد حساب کاربری خود شوید.
ارسال پاسخ به این موضوع ...

×   شما در حال چسباندن محتوایی با قالب بندی هستید.   حذف قالب بندی

  تنها استفاده از ۷۵ اموجی مجاز می باشد.

×   لینک شما به صورت اتوماتیک جای گذاری شد.   نمایش به عنوان یک لینک به جای

×   محتوای قبلی شما بازگردانی شد.   پاک کردن محتوای ویرایشگر

×   شما مستقیما نمی توانید تصویر خود را قرار دهید. یا آن را اینجا بارگذاری کنید یا از یک URL قرار دهید.