اساتید من یه کتابی دارم که متنو از دیتابیس میگیره اما بعضی وقتا متنو خالی میاره بعضی وقتا هم میاره
مشکل از چی میتونه باشه؟
Dim cur As Cursor
cur = Home.SQL1.ExecQuery("SELECT * FROM mytable WHERE id ="&Home.meghdar)
matn.Initialize("")
matn.Gravity = Gravity.RIGHT
matn..SingleLineLayout.Label.TextColor = Colors.Black
ScrollView1.Panel.AddView(matn,0,0,95%X,100%y)
ts.Initialize
For i = 0 To cur.RowCount-1
cur.Position = i
matn.Text = cur.GetString("matn")
Next
If File.Exists(File.DirInternal,"database.db") = False Then
File.Copy(File.DirAssets,"database.db",File.DirInternal,"database.db")
End If
If SQL1.IsInitialized = False Then
SQL1.Initialize(File.DirInternal,"database.db",True)
End If
Dim cur As Cursor
cur = SQL1.ExecQuery("SELECT * FROM mytable")
For i = 0 To cur.RowCount-1
cur.Position = i
List_matlab.AddSingleLine2(cur.GetString("list"),cur.GetInt("id"))
Next
cur.Close
End Sub
سوال
bahman 165
اساتید من یه کتابی دارم که متنو از دیتابیس میگیره اما بعضی وقتا متنو خالی میاره بعضی وقتا هم میاره
مشکل از چی میتونه باشه؟
Dim cur As Cursor cur = Home.SQL1.ExecQuery("SELECT * FROM mytable WHERE id ="&Home.meghdar) matn.Initialize("") matn.Gravity = Gravity.RIGHT matn..SingleLineLayout.Label.TextColor = Colors.Black ScrollView1.Panel.AddView(matn,0,0,95%X,100%y) ts.Initialize For i = 0 To cur.RowCount-1 cur.Position = i matn.Text = cur.GetString("matn") NextIf File.Exists(File.DirInternal,"database.db") = False Then File.Copy(File.DirAssets,"database.db",File.DirInternal,"database.db") End If If SQL1.IsInitialized = False Then SQL1.Initialize(File.DirInternal,"database.db",True) End If Dim cur As Cursor cur = SQL1.ExecQuery("SELECT * FROM mytable") For i = 0 To cur.RowCount-1 cur.Position = i List_matlab.AddSingleLine2(cur.GetString("list"),cur.GetInt("id")) Next cur.Close End Subلینک ارسال
به اشتراک گذاری در سایت های دیگر
10 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.