دستور update در دیتابیس

[amirsafari 116]

سلام دوستان من یه برنامه ی فلش کارت دارم مینویسم . که توش یه دکمه ای دارم به نام addhard که با کلیک روی اون اگه کلمه جزو سخت ها باشه حذف میشه . نباشه . اضافه میشه.

 

حالا سوالم :::

همونطور که کد رو میبینید ما میایم به cursor  موقعیت میدیم. بعد اون sql  دستور اپدیت رو میده. اون sql موقعیت کودسور رو آپدیت میکنه؟؟؟

یا صالا مشکل کد من کجاس که کار نمیکنه؟؟؟

Sub addhard_Click
	Dim c1 As Cursor
	Dim s1 As SQL
	s1.Initialize(File.DirInternal,"data.db",True)
	c1=s1.ExecQuery("select * from vocab where en='"&cursor1.GetString("en")&"'")
	c1.Position=0
	If c1.GetInt("val")=0 Then
	s1.ExecNonQuery("update vocab set val='"& 1 &"' where en='"&cursor1.GetString("en")&"'")
	cheekhard
	Else If c1.GetInt("val")=1 Then
	s1.ExecNonQuery("update vocab set val='"& 0 &"' where en='"&cursor1.GetString("fa")&"'")
	cheekhard
	End If
End Sub