Sub Process_GlobalsDim sc As SQLCipher
Dim SQL1 As SQL
Dim Cursor1 As Cursor
End Sub
Sub Globals
Dim list1 As List
Dim List2 As List
End Sub
(Sub Activity_Create(FirstTime As Boolean
("Activity.LoadLayout("sub11
If File.Exists(File.DirInternal,"b1l1.db") = False Then
("File.Copy(File.DirAssets,"b1l1.db",File.DirInternal,"b1l1.db
End If
If SQL1.IsInitialized = False Then
(SQL1.Initialize(File.DirInternal,"b1l1.db",True
End If
("Cursor1 = SQL1.ExecQuery("SELECT * FROM tblb1l1
If File.Exists(File.DirRootExternal,"saba11.db") = False Then
(sc.Initialize(File.DirRootExternal,"saba11.db",True,"12345",File.DirAssets
("(sc.ExecNonQuery("CREATE TABLE table11 (id INTEGER , lesson TEXT , picture BLOB , sound BLOB
Else
(sc.Initialize(File.DirRootExternal,"saba11.db",False,"12345",File.DirAssets
End If
For i = 0 To Cursor1.RowCount-1
Cursor1.Position=i
(("list1= Array As String (Cursor1.Getint("id"),Cursor1.GetString("lesson
(sc.ExecNonQuery2("INSERT INTO table11(id,lesson) VALUES(?,?)",list1
(("List2= Array As Byte (Cursor1.GetBlob("picture"),Cursor1.GetBlob("sound دوستان عزیز در این قسمت خطا ی عدم تبدیل بایت به بایت می دهد
(sc.ExecNonQuery2("INSERT INTO table11(picture,sound) VALUES(?,?)",List2
Next
End Sub
سوال
omidsttr 2
کمک برای اصلاح کدهای ذیل
Sub Process_GlobalsDim sc As SQLCipher Dim SQL1 As SQL Dim Cursor1 As Cursor End Sub Sub Globals Dim list1 As List Dim List2 As List End Sub (Sub Activity_Create(FirstTime As Boolean ("Activity.LoadLayout("sub11 If File.Exists(File.DirInternal,"b1l1.db") = False Then ("File.Copy(File.DirAssets,"b1l1.db",File.DirInternal,"b1l1.db End If If SQL1.IsInitialized = False Then (SQL1.Initialize(File.DirInternal,"b1l1.db",True End If ("Cursor1 = SQL1.ExecQuery("SELECT * FROM tblb1l1 If File.Exists(File.DirRootExternal,"saba11.db") = False Then (sc.Initialize(File.DirRootExternal,"saba11.db",True,"12345",File.DirAssets ("(sc.ExecNonQuery("CREATE TABLE table11 (id INTEGER , lesson TEXT , picture BLOB , sound BLOB Else (sc.Initialize(File.DirRootExternal,"saba11.db",False,"12345",File.DirAssets End If For i = 0 To Cursor1.RowCount-1 Cursor1.Position=i (("list1= Array As String (Cursor1.Getint("id"),Cursor1.GetString("lesson (sc.ExecNonQuery2("INSERT INTO table11(id,lesson) VALUES(?,?)",list1 (("List2= Array As Byte (Cursor1.GetBlob("picture"),Cursor1.GetBlob("sound دوستان عزیز در این قسمت خطا ی عدم تبدیل بایت به بایت می دهد (sc.ExecNonQuery2("INSERT INTO table11(picture,sound) VALUES(?,?)",List2 Next End Subلینک ارسال
به اشتراک گذاری در سایت های دیگر
4 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.