سلام من یه کدی نوشتم نمیدونم مشکلش کجاست هرکاری میکنم با دوتا خطا مواجه میشم
این کدم هست
If File.Exists(File.DirInternal,"dbtel.db")=False Then
File.Copy(File.DirAssets,"dbtel.db",File.DirInternal,"dbtel.db")
End If
list1.Initialize("list1")
ScrollView1.Panel.AddView(list1,0,0,100,100)
If sql1.IsInitialized = False Then
sql1.Initialize(File.DirInternal,"dbtel.db",False)
End If
For i=0 To cur1.RowCount-1
cur1.Position =i
cur1 =sql1.ExecQuery("SELECT * FROM tarfand")
list1.AddSingleLine(cur1.GetString("onvan"))
Next
سوال
amiro72 17
سلام من یه کدی نوشتم نمیدونم مشکلش کجاست هرکاری میکنم با دوتا خطا مواجه میشم
این کدم هست
If File.Exists(File.DirInternal,"dbtel.db")=False Then File.Copy(File.DirAssets,"dbtel.db",File.DirInternal,"dbtel.db") End If list1.Initialize("list1") ScrollView1.Panel.AddView(list1,0,0,100,100) If sql1.IsInitialized = False Then sql1.Initialize(File.DirInternal,"dbtel.db",False) End If For i=0 To cur1.RowCount-1 cur1.Position =i cur1 =sql1.ExecQuery("SELECT * FROM tarfand") list1.AddSingleLine(cur1.GetString("onvan")) Nextلینک ارسال
به اشتراک گذاری در سایت های دیگر
1 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.