کمک در ساخت دکمه حذف مطلب از دیتابیس

[MoniSoft 14]

سلام من در برنامم دکمه حذف مطلب گذاشتم و کدش به این صورت هست ولی وقتی روش کلیک میکنم اتفاقی نمی افته لطفا راهنماییم کنین کجاش مشکل داره.

Sub btndelet_Click
Dim cur As Cursor
	cur = SQL1.ExecQuery("SELECT * FROM smstbl")
	For i = 0 To cur.RowCount - 1
		cur.Position = i 
		Dim num As Int = cur.GetInt("id")
		num = num+1
		SQL1.ExecNonQuery("DELETE sms FROM smstbl where id="&num&"")
		SQL1.Close
	Next
End Sub

[MoniSoft 14]

شرمنده تاپیک میارم بالا ولی من با این قضیه مشکل دارم و نمیتونم کاری کنم تا مطلبم حذف بشه.لطفا راهنمایی کنید

[porya 959]

سلام خط مربوط به کوئری رو به این صورت تست کنید...

SQL1.ExecNonQuery("DELETE FROM smstbl where id='"&num&"'")

[MoniSoft 14]

 

سلام خط مربوط به کوئری رو به این صورت تست کنید...

SQL1.ExecNonQuery("DELETE FROM smstbl where id='"&num&"'")

امتحان کردم بازم اتفاقی نمیافته.

[shahab.es 5,429]

کل کوئریتون مورد داره عزیزم

یه مطلب رو فقط میخواین حذف کنید؟

id اون یه مطلب رو باید بدید به کوئری delete

حلقه نمیدونم اینجا دقیقا کاربردش چیه

[MoniSoft 14]

Sub btndelet_Click
	Dim cur As Cursor
	cur = SQL1.ExecQuery("SELECT * FROM smstbl")
    cur.Position = btndelet.Tag
		Dim num As Int = cur.GetInt("id")
		num = num
		SQL1.ExecNonQuery("DELETE FROM smstbl where id='"&num&"'")
End Sub

من کد رو به این صورت تغیر دادم وقتی کلیک میکنم از برنامه خارج میشه

[shahab.es 5,429]

Dim bt as button
bt = SENDER
sql1.ExenonQuery("DELETE FROM smstbl WHERE id = "& bt.tag &"")

اینو یه تست بفرمایید...

[MoniSoft 14]

Dim bt as button
bt = SENDER
sql1.ExenonQuery("DELETE FROM smstbl WHERE id = "& bt.tag &"")

اینو یه تست بفرمایید...

 

تست کردم اتفاقی نمیافته

[shahab.es 5,429]

تست کردم اتفاقی نمیافته

تگتون رو چک کنید ببینید چه عددی داخلش هست دقیقا

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

[MoniSoft 14]

تگتون رو چک کنید ببینید چه عددی داخلش هست دقیقا

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

Sub Activity_Create(FirstTime As Boolean)

	If File.Exists(File.DirInternal,"sms.db")=False Then
	File.copy(File.DirAssets,"sms.db",File.DirInternal,"sms.db")
	End If
	If SQL1.IsInitialized = False Then
	SQL1.Initialize(File.DirInternal,"sms.db",True)
	End If
	cursur1 = SQL1.ExecQuery("SELECT sms FROM smstbl") 

	myfont = Typeface.LoadFromAssets("byekan.ttf")
	Activity.LoadLayout("sv")

	For i=0 To cursur1.RowCount-1
	cursur1.Position=i
	text= cursur1.GetString("sms") 
	ScrollView1.Panel.Color = Colors.Transparent
	
	Dim p1 As Panel
	p1.Initialize("")
	p1.LoadLayout("main")
	ScrollView1.Panel.AddView(p1,0,PanelHeight,100%x,100dip)

	btnshare.Tag = i
	btndelet.Tag = i
	btncopy.Tag = i
	btnnumber.text = i + 1
	btnnumber.Typeface=Typeface.LoadFromAssets("byekan.ttf")

	ht=art(text,Label1,myfont,20)
	Label1.TextColor=Colors.Black
	Label1.Width = 5%y
	Label1.Height = 5%x
	p1.Height=ht+70dip
	PanelHeight=PanelHeight+ht+70dip
	Next
	ScrollView1.Panel.Height=PanelHeight
End Sub

[MoniSoft 14]

دوستان کسی میتونه راهنماییم کنه

[محمد رشوند 1,208]

شاید این کد کمکت کنه البته تجربه خیلی زیاد در Sql ندارم

 

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

loadlist

Sub btndelet_Click
Scrollview1.RemoveView
		SQL1.ExecNonQuery("DELETE  FROM smstbl WHERE id="&num&"")
		SQL1.Close
loadlist

End Sub
Sub loadlist
If File.Exists(File.DirInternal,"sms.db")=False Then
    File.copy(File.DirAssets,"sms.db",File.DirInternal,"sms.db")
    End If
    If SQL1.IsInitialized = False Then
    SQL1.Initialize(File.DirInternal,"sms.db",True)
    End If
    cursur1 = SQL1.ExecQuery("SELECT sms FROM smstbl")

    myfont = Typeface.LoadFromAssets("byekan.ttf")
    Activity.LoadLayout("sv")

    For i=0 To cursur1.RowCount-1
    cursur1.Position=i
    text= cursur1.GetString("sms")
    ScrollView1.Panel.Color = Colors.Transparent
    
    Dim p1 As Panel
    p1.Initialize("")
    p1.LoadLayout("main")
    ScrollView1.Panel.AddView(p1,0,PanelHeight,100%x,100dip)

    btnshare.Tag = i
    btndelet.Tag = i
    btncopy.Tag = i
    btnnumber.text = i + 1
    btnnumber.Typeface=Typeface.LoadFromAssets("byekan.ttf")

    ht=art(text,Label1,myfont,20)
    Label1.TextColor=Colors.Black
    Label1.Width = 5%y
    Label1.Height = 5%x
    p1.Height=ht+70dip
    PanelHeight=PanelHeight+ht+70dip
    Next
    ScrollView1.Panel.Height=PanelHeight
    
End Sub

[MoniSoft 14]

ممنون از راهنماییتون

[MoniSoft 14]

 

شاید این کد کمکت کنه البته تجربه خیلی زیاد در Sql ندارم

 

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

loadlist

Sub btndelet_Click
Scrollview1.RemoveView
		SQL1.ExecNonQuery("DELETE  FROM smstbl WHERE id="&num&"")
		SQL1.Close
loadlist

End Sub
Sub loadlist
If File.Exists(File.DirInternal,"sms.db")=False Then
    File.copy(File.DirAssets,"sms.db",File.DirInternal,"sms.db")
    End If
    If SQL1.IsInitialized = False Then
    SQL1.Initialize(File.DirInternal,"sms.db",True)
    End If
    cursur1 = SQL1.ExecQuery("SELECT sms FROM smstbl")

    myfont = Typeface.LoadFromAssets("byekan.ttf")
    Activity.LoadLayout("sv")

    For i=0 To cursur1.RowCount-1
    cursur1.Position=i
    text= cursur1.GetString("sms")
    ScrollView1.Panel.Color = Colors.Transparent
    
    Dim p1 As Panel
    p1.Initialize("")
    p1.LoadLayout("main")
    ScrollView1.Panel.AddView(p1,0,PanelHeight,100%x,100dip)

    btnshare.Tag = i
    btndelet.Tag = i
    btncopy.Tag = i
    btnnumber.text = i + 1
    btnnumber.Typeface=Typeface.LoadFromAssets("byekan.ttf")

    ht=art(text,Label1,myfont,20)
    Label1.TextColor=Colors.Black
    Label1.Width = 5%y
    Label1.Height = 5%x
    p1.Height=ht+70dip
    PanelHeight=PanelHeight+ht+70dip
    Next
    ScrollView1.Panel.Height=PanelHeight
    
End Sub

این کار رو انجام دادم فقط اسکرول ویو خالی میشه و مطلب رو حذف نمیکنه.