مشکل در مقایسه متن ادیت تکست با متن دیتا بیس

[hossein92 74]

با سلام خدمت دوستان عزیز

من داخل برنامه 30 عدد عکس دارم که محتوای عکس یکسری عدد هست

من داخل این دیتابیس دو ستون دارم یکی اسم عکس به صورت 1.png ذخیره شده و یکی هم که مقدار این عکس هارو دخیره میکنه به صورت رشته (برای عکس 1.png مقدار 1)

حالا من میخوا با نمایش عکس کاربر مقدار اونو داخل ادیت تکست بنویسه و با زدن دکمه بیاد مقدار ادیت تکست با جدول دیتابیسم مقایسه کنه . اما هرکاری میکنم به مشکل میخورم و دستور if اجرا نمیشه انگار

اساتیدلدفن کمک کنید

اینم کد :

Sub btn_next_Click

c1 = sql1.ExecQuery("select * from test_pic")
   rn=Rnd(0,30)
   c1.Position = rn
   h=c1.GetString("address")
   pnl_img.SetBackgroundImage(LoadBitmap(File.DirAssets,h)) 
a=c1.GetString("value")
b= ed_rep.Text
Dim GetTxt As String : GetTxt = c1.GetString("value")
   If ed_rep.Text.Contains(GetTxt)=True Then
       Msgbox("Your Data  Equlse","") 
   Else 
       Msgbox("Your Data Not Equlse","")
   End If



End Sub

[hossein92 74]

مشکلم حل شد کد میزارم خود دوستان تحلیلش کنند !!!!*laie*

Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Dim sql1 As SQL
End Sub


Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Dim time As Timer

Dim sec As Int
Private lbl_sec As Label


Private Panel1 As Panel
Private pnl_img As Panel
Private ed_rep As EditText
Dim rn As Int
Dim c1 As Cursor
Dim c2 As Cursor
Dim h As String
Dim rep As Int
Private lbl_rep_cnt As Label
Dim a As String
Dim b As String
Dim cunt(32) As Int
Dim c As Int
Private btn_next As Button
End Sub


Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("d_frm_test1")
'-------------------timer------------------------

sec = 120
time.Initialize("time",1000)

Panel1.Color=Colors.Transparent

'-------------------load database----------------
If File.Exists(File.DirInternal,"tstpic.db") = False Then
File.Copy(File.DirAssets,"tstpic.db",File.DirInternal,"tstpic.db")
End If
sql1.Initialize(File.DirInternal,"tstpic.db",False)
btn_next.Text="شروع"
'-----------------------------------------------------
For i=0 To 31
cunt(i)=Rnd(0,30)
Next
c=1
'---------------------------------------------------
End Sub


Sub Activity_Resume


End Sub


Sub Activity_Pause (UserClosed As Boolean)


End Sub


Sub time_tick




lbl_sec.Text=sec




If sec=0 Then
	sec = 59

	Msgbox("time is over ","error")

		time.Enabled=False
Else
	sec = sec-1
End If		






End Sub


Sub btn_next_Click
time.Enabled=True






btn_next.Text="ادامه "

c1 = sql1.ExecQuery("select * from test_pic")
c2 = sql1.ExecQuery("select * from test_pic")
   c1.Position = cunt(c)
c2.Position = cunt(c-1)
	If c=31 Then
		Msgbox("تست به پایان رسید !","پیام ")
		time.Enabled=False
	Else
		c=c+1

		   h=c1.GetString("address")
 		   pnl_img.SetBackgroundImage(LoadBitmap(File.DirAssets,h)) 
		a=c2.GetString("value")
		b= ed_rep.Text
			If a=b Then 
				rep=rep+1
			lbl_rep_cnt.Text=rep
			End If
			End If




ed_rep.Text=""

End Sub

[shahab.msb 326]

من که منظورتونو درست نفهمیدم یکم واضح تر توضیح بدین که میخواین چه کاری میخوای انجام بدی

[hossein92 74]

از این واضح تر ؟

میخوام متن تکست باکس با مقدار جدول value من مقایسه کنه و به صورت پیام نشون بده درسته یا نه ؟

[مجید آرتا 5,874]

اینطور عمل کنید :

If ed_rep.Text=GetTxt Then

End If