مشکل در اپدیت دیتابیس افلاین از طریق انلاین

[mr-edris 186]

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

Sub jobdone (job As HttpJob)
If job.JobName= "php" Then

		Dim v() As String
			v = Regex.split("<br>",job.GetString)
			Try
			For i=0 To v.Length-1
				Dim j() As String
				j = Regex.Split("#",v(i))
				If j(5) = "1" Then
				    cur1 = query.ExecQuery("SELECT count(id) FROM ofl WHERE id='"& j(0) &"'")
					cur1.Position = 0
					If cur1.GetInt("count(id)") = 1 Then
					    query.ExecNonQuery("UPDATE ofl SET dastan='"& j(1) &"', matn='"& j(2) &"', fav='"& j(3) &"' WHERE id='"& j(0) &"'")
					Else If cur1.GetInt("count(id)") = 0 Then
					    query.ExecNonQuery("INSERT INTO ofl (id,dastan,matn,fav)VALUES('"& j(0) &"','"& j(1) &"','"& j(2) &"','"& j(3) &"')")
					End If
 				End If
				If j(5) = "2" Then
				    query.ExecNonQuery("delete from ofl where id='"& j(0) &"'")
				End If
			Next
			Catch
			End Try
			ToastMessageShow("عملیات همگام سازی دیتابیس های انجام شد",False)
			Else
			If job.GetString= "" Then
	ToastMessageShow("محتوایی برای اپدیت وجود ندارد",False)
	
	End If
	End If
End Sub

این ساب که کلا کار نمیکنه یعنی اگر کد

lse
			If job.GetString= "" Then
	ToastMessageShow("محتوایی برای اپدیت وجود ندارد",False)

رو مثل فیلم اموزشی بالا بزارم از همون اول میکه محتوایی برای اپدیت نیست

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

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

cur = query.ExecQuery("SELECT * FROM ofl")
For i=0 To cur.RowCount-1
		cur.Position = i
Dim p As Panel
p.Initialize("p")
sv1.Panel.AddView(p,0,stop,100%x,100%y)
stop = stop + 35%y
p.LoadLayout("mp")
Label1.Text=cur.GetString("dastan")
sv1.Panel.Height = stop
Dim fa As Int
fa=cur.GetInt("fav")
If fa=0 Then
ImageView1.SetBackgroundImage(LoadBitmapSample(File.DirAssets,"booki2.png",100,100))
Else
ImageView1.SetBackgroundImage(LoadBitmapSample(File.DirAssets,"booki.png",100,100))
End If
Next

[mr-edris 186]

کسی برا کمک نبود ایا؟

[حسن قاسمی نیا 547]

طبق فیلم آموزشی برید مشکلی نخواهد بود دوست عزیز

[mr-edris 186]

خب من طبق فیلم رفتم اما ایتمام تعداد فیلدهای دیتا بیسم نحوه ی نشان دادنشون فرق داره دیگه

[حسن قاسمی نیا 547]

دوست گلم چیزی که مشخصه اینه که عملا من داخل اون فیلم آموزشی به نتیه رسیدم شما با همین الگوریتم پیش برید میتونید نتیجه منطقی بگیرید . حالا به نحوی غیر اصولی یا بدون منطق رفتید دیگه بنده مقصر نیستم

بالا تر گفتید این بخش گیر میداد که محتوایی برای آپدیت وجود نداره برداشتمش خب این یعنی چی ؟ برنامه بد بخت داره میگه عمو چیزی برای آپدیت نیست دیگه از این واضح تر ؟ وقتی نیست چیو برات بیاره تو دیتابیس آفلاین ؟

[mr-edris 186]

عزیز دلم شما تو لیست ویو لود
کردید من تو مولتی پنل این فرق ماست

شما 4تا فیلد داشتید تو دیتا بیس من 5تا این فرق ماست

 

حالا اگر لازمه کل سورس و اطلاعات هاستم رو بدم خدمتتون چک کنید؟

اصلا من بلد نیستم

شما بگو مشکل من کجاست دیگه!!