خطا در جستجو وقتی که درون پرداخت را قرار دادم

[mortezasaidi 6]

با سلام

 

دوستان گرامی

 

من یکی از اپ ها را با روش اقای ایزدی به درون پرداخت مجهز کردم ، درست هم کار می کند

 

ولی در قسمت جستجو وقتی که روی گوشی اجرا می شود گاهی این ارور  را می دهد

android.database.CursorIndexOutOfBoundsException: Index 0 requested, with a size of 0

لطفا کمک کنید

 

بعد از گذاشتن این کد در قسمت سرچ نرم افزار مشکل فوق به وجود امد

If File.Exists(File.DirInternal,"pay.iz") = False Then
    If Position > 7 Then
        Dim result As Int
        result=Msgbox2("برای حمایت از ماو عضویت در مجله ماهیانه آن ، لطفا نسخه خود را ارتقا دهید","","ارتقا می دهم","","تمایلی ندارم",Null)
        If result=DialogResponse.POSITIVE Then
        payment.RequestPayment("eshterak", "inapp",Pardakht)
        Else If result=DialogResponse.NEGATIVE Then
        Return True
        End If
    Else
    pos=Position
    StartActivity(txtv)
    End If
Else
    pos=Position
    StartActivity(txtv)
End If

Sub pardakht_BillingSupported (Supported As Boolean, Message As String)
	Pardakht=Supported
End Sub

	Sub Pardakht_PurchaseCompleted(Successed As Boolean, Product As Purchase)
	If Successed Then
	ToastMessageShow("از خرید با ارزشتان متشکریم ",False)
	File.WriteString(File.DirInternal,"pay.iz","paysuccess")

	Else
	ToastMessageShow("اوه . متاسفانه موفق نبود",False)
	End If

	End Sub

[mortezasaidi 6]

اساتید لطفا همراهی کنید :gol:

[پژمان نیکروان 6,055]

این اررور ربطی به این کدها فکر نکنم داشته باشه.

خطا از Cursor هست.

شما از دیتابیس استفاده کردید؟؟

کدهاتون رو بذارید.

[mortezasaidi 6]

بفرمایید استاد

 

این کد صفحه سرچ است | بله دیتابیس دارم

#Region  Activity Attributes 
	#FullScreen: false
	#IncludeTitle: false
#End Region

Sub Process_Globals
Dim pos As Int
End Sub

Sub Globals
	Private Stxt As ScrollView
	Private ptxt As Panel
	Private bshare As Button
	Private Ltxt1 As Label
	Private numtxt As EditText
	Dim stu As StringUtils
	Dim f1,f2,f3,f4,f5 As Typeface


	Dim sql1 As SQL
	Dim cur As Cursor
	Private Favk As Button
	Private bcopy As Button
	Dim Favv As Int
	Private Bsting As Button
	Private idre As EditText
	Private imm1 As ImageView
	Private imm2 As ImageView

	Private Ltxt2 As Label
	Private Ltxt3 As Label


	Private Button1 As Button
	Private Fav As Button

		Dim sql1 As SQL
	Dim cur As Cursor
	Private Favk As Button
	Private bcopy As Button
Dim Favv As Int
	Private Bsearch As Button
	Private Ese As EditText
	Private Label1 As Label
	Private Label2 As Label
	Private ListView1 As ListView
	Private RadioButton1 As RadioButton
	Private RadioButton2 As RadioButton
	Private Fav As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("Search")
	    
	Dim bitmap1 As BitmapDrawable
	bitmap1.Initialize(LoadBitmap(File.DirAssets,"btnclick1.png"))
	RadioButton1.Checked=True
		 ListView1.SingleLineLayout.Background = bitmap1
	 ListView1.SingleLineLayout.Label.TextColor = Colors.Black
	 ListView1.SingleLineLayout.Label.Gravity = Gravity.RIGHT
	 ListView1.SingleLineLayout.Label.Gravity = Gravity.CENTER_VERTICAL
	 ListView1.SingleLineLayout.ItemHeight = 15%y
	 
	 	    Dim verticalPosition As String = "bottom" '"top" or "bottom"
    Dim horizontalPosition As String = "center" '"left", "right" or "center"
    Dim r As Reflector 
    Dim args(3) As Object = Array As Object(r.GetActivity, verticalPosition, horizontalPosition)
    Dim types(3) As String = Array As String("android.app.Activity", "java.lang.String", "java.lang.String")    
    r.RunStaticMethod("ir.adad.AdadB4APlugin", "createAdView", args, types)
	
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub



Sub Bsearch_Click

	If RadioButton1.Checked=True Then 
		Main.cur1= Main.sql1.ExecQuery("SELECT * FROM tbl1 WHERE onvan LIKE '%" & Ese.Text & "%'")
	End If 
	
	
	If RadioButton2.Checked=True Then 
	
		Main.cur1= Main.sql1.ExecQuery("SELECT * FROM tbl1 WHERE matn1 LIKE '%" & Ese.Text & "%'")
	End If 
	ListView1.Clear
	For i=0 To Main.cur1.RowCount-1
	Main.cur1.Position=i 
	ListView1.AddSingleLine("   " & Main.cur1.GetString("onvan"))
	Next
	
End Sub
Sub ListView1_ItemClick (Position As Int, Value As Object)
	AcFehrest.pos=Position
  	StartActivity(txtv)

End Sub

[abbas2142 557]

دوست من مثل اینکه اومدین محدودیت ایجاد کردین واسه نمایش 

و از روش درست کردن فایل هم جلو رفتین

 

فک کنم این کد به دردتون بخوره

 

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

Sub ListView1_ItemClick (Position As Int, Value As Object)
	If (Position>9) And (File.Exists(File.DirInternal,"pay.iz") =False) Then
    Msgbox("نیاز به فعال سازی کامل برنامه","توجه")
    Else
    Main.khandan=Value
    StartActivity(name)
    End If
End Sub

[mortezasaidi 6]

اساتید این کد صفحه فهرست است

#Region  Activity Attributes 
	#FullScreen: false
	#IncludeTitle: false
#End Region

Sub Process_Globals
Dim pos As Int
Dim shomare As Int
Dim payment As bazaarpay
Dim Id As PhoneId
Dim Pardakht As Boolean
Dim RSACode As String ="MIHNMA0GCSqGSIb3DQEBAQUAA4G7ADCBtwKBrwCtKxVlPrEu29e11B2zPI3ukYu4bVj+Pd9a1ydGw+oXkeUD00RFNd6RNz7trrpoYn7D8xZa29w1IUb2lN+yYdvSll014zgCmHeTqYPuRWipstczra0uZ5akEYSd9XDfrsyZOCfxooe52r13BovgzXM5GXMQXjgNFXttUSvL/EdqPXnamyxEvCqlaqq6pEws7slMLHusX/OWcKc7SelKPpuO7OxMKbqhJgDNHjca/+cCAwEAAQ=="
End Sub

Sub Globals

	Private ListViewFehrest As ListView
	Private ListViewData As ListView
	Dim bitmap1 As BitmapDrawable
	Dim LayoutNumber As Int
	Private btnExam As Button
	Private Button1 As Button
	Private Button2 As Button
	Private Button3 As Button
	Private Button4 As Button	
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("LayoutFehrest")
	bitmap1.Initialize(LoadBitmap(File.DirAssets,"btnclick1.png"))

	Dim verticalPosition As String = "bottom" '"top" or "bottom"
    Dim horizontalPosition As String = "center" '"left", "right" or "center"
    Dim r As Reflector 
    Dim args(3) As Object = Array As Object(r.GetActivity, verticalPosition, horizontalPosition)
    Dim types(3) As String = Array As String("android.app.Activity", "java.lang.String", "java.lang.String")    
    r.RunStaticMethod("ir.adad.AdadB4APlugin", "createAdView", args, types)
	
   payment.Initialize("pardakht", RSACode)
	If File.Exists(File.DirInternal,"pay.iz") Or File.Exists(File.DirDefaultExternal,"pay.iz") Then

	End If

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub AddSubjects

End Sub
Sub btnha

	 Activity.RemoveAllViews
	 LayoutNumber = 1
	 Activity.LoadLayout("LayoutData")
	 ListViewData.SingleLineLayout.Background = bitmap1
	 ListViewData.SingleLineLayout.Label.TextColor = Colors.Black
	 ListViewData.SingleLineLayout.Label.Gravity = Gravity.RIGHT
	 ListViewData.SingleLineLayout.Label.Gravity = Gravity.CENTER_VERTICAL
	 ListViewData.SingleLineLayout.ItemHeight = 15%y

	
	 Main.cur1 = Main.sql1.ExecQuery("SELECT * FROM tbl1 WHERE daste='"&shomare&"'")
	 For i=0 To Main.cur1.RowCount-1
	 Main.cur1.Position=i 
	 ListViewData.AddSingleLine("   " & Main.cur1.GetString("onvan"))
	 Next
 
End Sub

Sub Activity_KeyPress (KeyCode As Int) As Boolean

  If KeyCode = KeyCodes.KEYCODE_BACK Then
	  	If LayoutNumber = 0 Then
		
		Activity.Finish
		StartActivity(Main)
		
		Else If LayoutNumber = 1 Then
		
		Activity.RemoveAllViews
		Activity.LoadLayout("LayoutFehrest")
		AddSubjects
		LayoutNumber = 0
		Return True
		
		End If
  End If
  
End Sub

Sub ListViewData_ItemClick (Position As Int, Value As Object)

If File.Exists(File.DirInternal,"pay.iz") = False Then
    If Position > 7 Then
        Dim result As Int
        result=Msgbox2("برای حمایت از ما و عضویت در مجله ماهیانه آن ، لطفا نسخه خود را ارتقا دهید","","ارتقا می دهم","","تمایلی ندارم",Null)
        If result=DialogResponse.POSITIVE Then
        payment.RequestPayment("eshterak", "inapp",Pardakht)
        Else If result=DialogResponse.NEGATIVE Then
        Return True
        End If
    Else
    pos=Position
    StartActivity(txtv)
    End If
Else
    pos=Position
    StartActivity(txtv)
End If
End Sub

Sub Button4_Click
	 shomare =4
	 btnha
End Sub

Sub Button3_Click
	 shomare =3
	 btnha
End Sub
Sub Button2_Click
	 shomare =2
	 btnha
End Sub
Sub Button1_Click
	 shomare =1
	 btnha
End Sub

Sub pardakht_BillingSupported (Supported As Boolean, Message As String)
	Pardakht=Supported
End Sub

	Sub Pardakht_PurchaseCompleted(Successed As Boolean, Product As Purchase)
	If Successed Then
	ToastMessageShow("از خرید با ارزشتان متشکریم ! امیدواریم بتوانیم رضایت شما را کسب کنیم . هم اکنون می توانید از تمامی مطالب استفاده کنید",False)
	File.WriteString(File.DirInternal,"pay.iz","paysuccess")

	Else
	ToastMessageShow("اوه . متاسفانه خرید شما با مشکل مواجه شد ، لطفا دوباره سعی فرمایید",False)
	End If

	End Sub

[mortezasaidi 6]

اساتید شما هم علت خطا را نمی دانید :fekr: