رفتن به مطلب
  • 0

رفرش شدن صفحه بعد از حذف شدن مقداری از دیتابیس


mohamad1520

سوال

با سلام 
بنده اطلاعات دیتابیس رو روی یک اسکرول ویو نشون میدم ک یدونه دکمه برای حذف هرکدام از ایتم ها تعریف کردم دوس دارم بعد از اینکه دکمه حذف رده میشه صفحه خودکار رفرش شده و اطلاعات جدید رو نشون بده
توی کد ها بعد دستور حذف دستور لود شدن دیتابیس رو نوشتم اما عمل نمیکنه 
 

Sub del_Click
	
    sq.ExecNonQuery("DELETE FROM Interest WHERE IDB="&scb.IDB&"")
	 
	 	Dim top As Int
	top=0
	c = sq.ExecQuery("SELECT * FROM Interest")
  For i=0 To c.RowCount-1
	p1.Initialize("")
	ScrollView1.Panel.AddView(p1,0,top,100%x,Panel1.Height)
	top = top + Panel1.Height+5
	ScrollView1.Panel.Height=top
	p1.LoadLayout("interestpattern")
	c.Position = i
	cyn.Text=c.GetString("Cyn")
	brn.Text=c.GetString("Brn")
  Next
 
 
End Sub

 

لطفا کسایی میدونن راهنمایی کنن ممنون

لینک ارسال
به اشتراک گذاری در سایت های دیگر

7 پاسخ به این سوال تاکنون داده شده است

ارسال‌های توصیه شده

خدمت شما

Sub Process_Globals
	
     Dim sq As SQL
	 
End Sub

Sub Globals
	
	Dim c As Cursor
	Dim p1 As Panel
	Private ScrollView1 As ScrollView
	Private brn As Label
	Private cyn As Label
	Private del As Label
	Private Label1 As Label
	Private Label2 As Label
	Private Panel1 As Panel
	Private interestpanel As Panel
		Dim top As Int = 0

End Sub

Sub Activity_Create(FirstTime As Boolean)
	
	If File.Exists(File.DirInternal,"stcy.db") = False  Then
		File.Copy(File.DirAssets,"stcy.db",File.DirInternal,"stcy.db")
	End If
	
	If sq.IsInitialized = False Then
	sq.Initialize(File.DirInternal,"stcy.db",False)
	End If
	
    Activity.LoadLayout("interestpattern")
	Activity.LoadLayout("interest")
CreatePanel("select * from stcy")

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub
Sub del_Click
	
    Dim s As Label
	s = Sender	
	ToastMessageShow(s.Tag,False)
    sq.ExecNonQuery("DELETE FROM stcy WHERE ID="&s.Tag&"")
	CreatePanel("select * from stcy")
End Sub

Sub CreatePanel(query As String)
	ScrollView1.Panel.RemoveAllViews
	ScrollView1.ScrollPosition = 0
	top = 0
c = sq.ExecQuery(query)
  For i=0 To c.RowCount-1
	p1.Initialize("")
	ScrollView1.Panel.AddView(p1,0,top,100%x,Panel1.Height)
	top = top + Panel1.Height+5
	ScrollView1.Panel.Height=top
	p1.LoadLayout("interestpattern")
	c.Position = i
	cyn.Text=c.GetString("City")
	brn.Text=c.GetString("State")
	del.Tag=c.GetInt("ID")
Next
	
End Sub

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

در 3 ساعت قبل، shahab.es گفته است :

خدمت شما


Sub Process_Globals
	
     Dim sq As SQL
	 
End Sub

Sub Globals
	
	Dim c As Cursor
	Dim p1 As Panel
	Private ScrollView1 As ScrollView
	Private brn As Label
	Private cyn As Label
	Private del As Label
	Private Label1 As Label
	Private Label2 As Label
	Private Panel1 As Panel
	Private interestpanel As Panel
		Dim top As Int = 0

End Sub

Sub Activity_Create(FirstTime As Boolean)
	
	If File.Exists(File.DirInternal,"stcy.db") = False  Then
		File.Copy(File.DirAssets,"stcy.db",File.DirInternal,"stcy.db")
	End If
	
	If sq.IsInitialized = False Then
	sq.Initialize(File.DirInternal,"stcy.db",False)
	End If
	
    Activity.LoadLayout("interestpattern")
	Activity.LoadLayout("interest")
CreatePanel("select * from stcy")

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub
Sub del_Click
	
    Dim s As Label
	s = Sender	
	ToastMessageShow(s.Tag,False)
    sq.ExecNonQuery("DELETE FROM stcy WHERE ID="&s.Tag&"")
	CreatePanel("select * from stcy")
End Sub

Sub CreatePanel(query As String)
	ScrollView1.Panel.RemoveAllViews
	ScrollView1.ScrollPosition = 0
	top = 0
c = sq.ExecQuery(query)
  For i=0 To c.RowCount-1
	p1.Initialize("")
	ScrollView1.Panel.AddView(p1,0,top,100%x,Panel1.Height)
	top = top + Panel1.Height+5
	ScrollView1.Panel.Height=top
	p1.LoadLayout("interestpattern")
	c.Position = i
	cyn.Text=c.GetString("City")
	brn.Text=c.GetString("State")
	del.Tag=c.GetInt("ID")
Next
	
End Sub

 

عاااااالی بود یه دنیا ممنون همونی ک میخواستم :53::53::yahoo::areuok:

لینک ارسال
به اشتراک گذاری در سایت های دیگر

خیلی رو این موضوع کار کردم اخرش مجبور شدم 2 تا اکتویتی ایجاد کنم مثل main , main 1 ک کدهاش یکی باشه بعد از هر بار تغیر در دیتابیس بره اکتویتی بعد و اینحوری تغیر کنه ، شاید دوستان راه حل بهتری داشته باشن

لینک ارسال
به اشتراک گذاری در سایت های دیگر

در ۱ ساعت قبل، mohammad3250 گفته است :

خیلی رو این موضوع کار کردم اخرش مجبور شدم 2 تا اکتویتی ایجاد کنم مثل main , main 1 ک کدهاش یکی باشه بعد از هر بار تغیر در دیتابیس بره اکتویتی بعد و اینحوری تغیر کنه ، شاید دوستان راه حل بهتری داشته باشن

مرسی ممنون راه حل خیلی خوبیه :53:

فعلا همین کار رو  میکنم ممنون

اما اگ دوستان راه حل بهتری دارن لطفا راهنمایی کنن

لینک ارسال
به اشتراک گذاری در سایت های دیگر

در 4 ساعت قبل، mohamad1520 گفته است :

مرسی ممنون راه حل خیلی خوبیه :53:

فعلا همین کار رو  میکنم ممنون

اما اگ دوستان راه حل بهتری دارن لطفا راهنمایی کنن

سلام هموطن

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

من براتون حذف و رفرش رو درست میکنم :)

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

در 13 ساعت قبل، shahab.es گفته است :

سلام هموطن

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

من براتون حذف و رفرش رو درست میکنم :)

 

سلام دوست عزیزم :hi:
خیلی ممنون لطف میکنید  :53:
بفرمایید اینم یه تست ممنون میشم

 

test1.rar

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...