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

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


MoniSoft

سوال

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

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
لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

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

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

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

SQL1.ExecNonQuery("DELETE FROM smstbl where id='"&num&"'")
لینک ارسال
به اشتراک گذاری در سایت های دیگر

 

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

 

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

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

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

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

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

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

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

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

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
لینک ارسال
به اشتراک گذاری در سایت های دیگر

شاید این کد کمکت کنه البته تجربه خیلی زیاد در 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
لینک ارسال
به اشتراک گذاری در سایت های دیگر

 

شاید این کد کمکت کنه البته تجربه خیلی زیاد در 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

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

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

بایگانی شده

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

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

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