مشکل در فراخوانی دیتا بیس در اسکرول ویو

[dr.mohammad 68]

سلام دوستان من با کد زیر داده هاییرو درون دیتا بیس ذخیره می کنم

sql.ExecNonQuery("INSERT INTO bashgah (id,noe,esm,gh,ghf) VALUES (null,'b','"&EditText1.text&"','"&EditText2.text&"','"&EditText3.text&"')")
	

و با کد زیر این داده هارو در اسکرول ویو فراخوانی میکنم

cur = sql.ExecQuery("select * from bashgah")
	
	Dim h As Int
	h = 0%y
	
	For i = 0 To cur.RowCount-1
		cur.Position = i
	
	Dim ch As CheckBox
	ch.Initialize("ch")	
	ch.Text = cur.GetString("esm")	
	ch.TextColor = Colors.Black
	ch.TextSize = 15
    ScrollView2.Panel.AddView(ch,0%x,h,77%x,10%y)
	h = h + 10%y 
	Next

ولی توی اسکرول ویو چیزیرو مشاهده نمی کنم

ممنون میشم کمک کنید          

[razavioo 310]

سلام دوستان من با کد زیر داده هاییرو درون دیتا بیس ذخیره می کنم

sql.ExecNonQuery("INSERT INTO bashgah (id,noe,esm,gh,ghf) VALUES (null,'b','"&EditText1.text&"','"&EditText2.text&"','"&EditText3.text&"')")
	

و با کد زیر این داده هارو در اسکرول ویو فراخوانی میکنم

cur = sql.ExecQuery("select * from bashgah")
	
	Dim h As Int
	h = 0%y
	
	For i = 0 To cur.RowCount-1
		cur.Position = i
	
	Dim ch As CheckBox
	ch.Initialize("ch")	
	ch.Text = cur.GetString("esm")	
	ch.TextColor = Colors.Black
	ch.TextSize = 15
    ScrollView2.Panel.AddView(ch,0%x,h,77%x,10%y)
	h = h + 10%y 
	Next

ولی توی اسکرول ویو چیزیرو مشاهده نمی کنم

ممنون میشم کمک کنید          

این بخش از کدت که مربوط به دریافت اطلاعات از دیتابیس و نمایش اون در چک باکس هست به نظر درست میاد، بعد از خط اول این کدت این خط رو اضافه کن.

log(cur.rowcount)

این نشون می ده که آیا اصلا اطلاعاتی که مورد نظرت بوده داخل دیتابیس ذخیره شده یا نه.

 

یک پیشنهاد دیگه اینه که برنامه رو در امولیتور یا گوشی (هر کجا که دیباگ می کنی) یک بار Uninstall و دوباره دیباگ بکنی. ممکنه فایلای قدیمی db ت هنوز استفاده بشه توسط برنامه.