دریافت اطلاعات از بانک آنلاین

[aloneboy7617 155]

درود دوستان

من یه سورسی دارم اکتیویتی کریتش واسه شروع باید یه سری اطلاعات از هاست بگیره

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

Sub jobdone (job As HttpJob)
	If job.JobName = "php" Then
		Try
			If job.GetString = "" Then
			    ToastMessageShow("محتوایی برای آپدیت وجود ندارد",False)
				Activity_Create(True)
			Else 
			    Dim a() As String
				a = Regex.split("<br>",job.GetString)
				For i=0 To a.Length-1
					Dim j() As String
					j = Regex.Split("#",a(i))
					If j(7) = "1" Then
					    cur1 = query.ExecQuery("SELECT count(id) FROM content WHERE id='"& j(0) &"'")
						cur1.Position = 0
						If cur1.GetInt("count(id)") = 1 Then
						    query.ExecNonQuery("UPDATE content SET username='"& j(1) &"', body='"& j(2) &"',love='"& j(3) &"',serial='"& j(5) &"',value='"& j(7) &"' WHERE id='"& j(0) &"'")
						Else If cur1.GetInt("count(id)") = 0 Then
						    query.ExecNonQuery("INSERT INTO content (id,username,body,love,serial,value)VALUES('"& j(0) &"','"& j(1) &"','"& j(2) &"','"& j(3) &"','"& j(5) &"','"& j(7) &"')")
						End If
	 				End If
					If j(7) = "2" Then
						Try
					    query.ExecNonQuery("DELETE FROM content WHERE id='"& j(0) &"'")
						Catch
						End Try
					End If
				Next
				ToastMessageShow("عملیات همگام سازی دیتابیس های انجام شد",False)
	
				Activity_Create(True)
			End If
		Catch
			ToastMessageShow("عملیات همگام سازی دیتابیس های انجام نشد",False)
		End Try
	Else If job.JobName = "htlike" Then
		ls.Text = newvalue

	End If
End Sub

الان من نمیدونم مشکل چیه که ران ک میگیرم ارور میگیره از این قسمت تمام فایل ها هم تو هاست آپلود شده