حالا توی قسمتی که قراره برروی موضوع کلیک کنم و محتوا نمایش داده بشه یه خطا میاد که نمیدونم به چه دلیل اتفاق می افته
من عکسی از کلاس دیتابیسم قرار میدم
فکر کنم به تابع loadTitleContent گیر میده ولی دلیلشو نمیدونم
'Class module
Sub Class_Globals
Dim sql1 As SQL
Type listItem(id As Int,title As String,contentMtn As String,contentFlm As String,rate As Int)
End Sub
'Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize
If File.Exists(File.DirInternal,"mybook.db") = False Then
File.Copy(File.DirAssets,"mybook.db",File.DirInternal,"mybook")
End If
sql1.Initialize(File.DirInternal,"mybook",False)
End Sub
public Sub loadlist As List
Dim c1 As Cursor
Dim l2 As List
l2.Initialize
c1 = sql1.ExecQuery("SELECT * FROM tbl_book")
For i = 0 To c1.RowCount - 1
c1.Position = i
Dim t1 As listItem
t1.Initialize
t1.id = c1.GetInt("id")
t1.contentMtn = c1.GetString("contentMtn")
t1.contentFlm = c1.GetString("contentFlm")
t1.rate = c1.GetInt("rate")
t1.title = c1.GetString("title")
l2.Add(t1)
Next
Return l2
End Sub
Sub loadTitleContent (title As String) As listItem
Dim c2 As Cursor
c2 = sql1.ExecQuery("SELECT id,contentFlm,contentMtn,rate FROM tbl_book where title = '"& title &"'")
c2.Position = 0
Dim l1 As listItem
l1.Initialize
l1.contentFlm = c2.GetString("contentFlm")
l1.contentMtn = c2.GetString("contentMtn")
l1.rate = c2.GetInt("rate")
l1.id = c2.GetInt("id")
Return l1
End Sub
سوال
web1001 4
با سلام
دارم کتاب اندرویدی درست میکنم.
حالا توی قسمتی که قراره برروی موضوع کلیک کنم و محتوا نمایش داده بشه یه خطا میاد که نمیدونم به چه دلیل اتفاق می افته
من عکسی از کلاس دیتابیسم قرار میدم
فکر کنم به تابع loadTitleContent گیر میده ولی دلیلشو نمیدونم
'Class module Sub Class_Globals Dim sql1 As SQL Type listItem(id As Int,title As String,contentMtn As String,contentFlm As String,rate As Int) End Sub 'Initializes the object. You can add parameters to this method if needed. Public Sub Initialize If File.Exists(File.DirInternal,"mybook.db") = False Then File.Copy(File.DirAssets,"mybook.db",File.DirInternal,"mybook") End If sql1.Initialize(File.DirInternal,"mybook",False) End Sub public Sub loadlist As List Dim c1 As Cursor Dim l2 As List l2.Initialize c1 = sql1.ExecQuery("SELECT * FROM tbl_book") For i = 0 To c1.RowCount - 1 c1.Position = i Dim t1 As listItem t1.Initialize t1.id = c1.GetInt("id") t1.contentMtn = c1.GetString("contentMtn") t1.contentFlm = c1.GetString("contentFlm") t1.rate = c1.GetInt("rate") t1.title = c1.GetString("title") l2.Add(t1) Next Return l2 End Sub Sub loadTitleContent (title As String) As listItem Dim c2 As Cursor c2 = sql1.ExecQuery("SELECT id,contentFlm,contentMtn,rate FROM tbl_book where title = '"& title &"'") c2.Position = 0 Dim l1 As listItem l1.Initialize l1.contentFlm = c2.GetString("contentFlm") l1.contentMtn = c2.GetString("contentMtn") l1.rate = c2.GetInt("rate") l1.id = c2.GetInt("id") Return l1 End Subلینک ارسال
به اشتراک گذاری در سایت های دیگر
18 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.