مشکل در اپدیت دیتابیس

[Cna 5]

سلام

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

اما برای اپدیت شدن حتما باید یه بار برنامه رو حذف کنم و دو.باره نصب کنم تا فیلد های جدید اضافه بشه

نمیدونید مشکل از کجاس؟؟؟

 

اینم کد jobdone

If job.Success = True Then
		
		If job.JobName = "job1" Then
			s1.cur = s1.sql1.ExecQuery("SELECT * FROM tbl")
			row1 = s1.cur.RowCount
			If job.GetString > row1 Then
'				ProgressDialogShow("در حال پردازش...")
			s1.cur =s1.sql1.ExecQuery("SELECT * FROM tbl")
			row1 = s1.cur.RowCount
				httt1.PostString("http://hellona.net/fapp/show_tbl.php","query="&row1&"")
				total = (total + (job.GetString - row1))
			Else
'				ht2.PostString("http://hellona.net/fapp/rowCount_tbl1.php","")
			ToastMessageShow("موزیک جدید وجود ندارد",False)
			ProgressDialogHide
			End If
			
		else If job.JobName = "jobbb1" Then
			If job.GetString = "nothing" Then
						ToastMessageShow("خطا",False)
					Else 
			Dim str(),str1() As String
			str = Regex.Split("<br>",job.GetString)
			For i = 0 To str.Length - 1
				str1 = Regex.Split("#",str(i))
				Try
				s1.sql1.ExecNonQuery("INSERT INTO tbl (id,filename,filelink,fileduration,filesize,filepic,month,Fav,open) Values (null,'"&str1(1)&"','"&str1(2)&"','"&str1(3)&"','"&str1(4)&"','"&str1(5)&"','"&str1(6)&"','"&str1(7)&"','"&str1(8)&"')")
				Catch
					Log(LastException)
				End Try
			Next

[Cna 5]

کدهات که مشکل داره 

من کدهای آقا شهاب میزارم ( برو دوباره آموزش قسمت 2 رو ببین تا کامل متوجه بشی) 

من یه موردشو میگم بقیه اشو خودت پیدا کن 

 تو کدهای آقا شهاب بعد ترای کش یه ساب آورده به اسم showlist  مال شما کو؟

Sub jobdone (job As HttpJob)
	
	
	
	If job.Success = True Then
		
		
		If job.JobName = "job1" Then
			
					cur = SQL.ExecQuery("SELECT * FROM tbl_name")
					rowCount = cur.rowCount
					
					If job.GetString > rowCount Then
						
						cur = SQL.ExecQuery("SELECT * FROM tbl_name")
						rowCount = cur.rowCount
						
		ht2.PostString("http://www.schoolearn.ir/shahab/amoozeshi/amoozeshe_update_db/getcontent.php","tedad="& rowCount &"")
						
						
					Else
						ToastMessageShow("db is up to date!!!",False)
					End If
					
		Else If job.JobName = "job2" Then
					If job.GetString = "nothing" Then
						ToastMessageShow("error",False)
					Else 
						Dim str1() As String = Regex.Split("<br>",job.GetString)
						For i = 0 To str1.Length - 1
							Dim str2() As String = Regex.Split("#",str1(i))
							Try
						SQL.ExecNonQuery("INSERT INTO tbl_name (id,name,lname) VALUES (null,'"&str2(1)&"','"&str2(2)&"')")
								showlist
							Catch
								Log(LastException)
							End Try
						Next
					ProgressDialogHide
					End If
		End If
	End If
End Sub

و یه نکته ای رو به نظرم بگم شاید بد نباشه حتما کدها رو تحلیل کنید تا بدونید چی نوشتید (هر جا رو نفهمیدید بپرسید تا یاد بگیرید ) و حتما حتما وقتی به مطلبی رسیدید 

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

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

ولی من به نوعی دیگه لیست رو فراخوانی کردم

و برای همین دیگ نیازی به اوردن showlist نیست!!!!!!!!!!!!!

[حاج حسین 2,098]

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

ولی من به نوعی دیگه لیست رو فراخوانی کردم

و برای همین دیگ نیازی به اوردن showlist نیست!!!!!!!!!!!!!

خب فک کنم سر همین دستکاری که این مشکل برات پیش آومده 

من خودم دقیقا مثلا آقا شهاب عمل کردم و showlist رو همون جای گذاشتم که آقا شهاب گذاشت و درست کار کرد 

[حاج حسین 2,098]

کدهات که مشکل داره 

من کدهای آقا شهاب میزارم ( برو دوباره آموزش قسمت 2 رو ببین تا کامل متوجه بشی) 

من یه موردشو میگم بقیه اشو خودت پیدا کن 

 تو کدهای آقا شهاب بعد ترای کش یه ساب آورده به اسم showlist  مال شما کو؟

Sub jobdone (job As HttpJob)
	
	
	
	If job.Success = True Then
		
		
		If job.JobName = "job1" Then
			
					cur = SQL.ExecQuery("SELECT * FROM tbl_name")
					rowCount = cur.rowCount
					
					If job.GetString > rowCount Then
						
						cur = SQL.ExecQuery("SELECT * FROM tbl_name")
						rowCount = cur.rowCount
						
		ht2.PostString("http://www.schoolearn.ir/shahab/amoozeshi/amoozeshe_update_db/getcontent.php","tedad="& rowCount &"")
						
						
					Else
						ToastMessageShow("db is up to date!!!",False)
					End If
					
		Else If job.JobName = "job2" Then
					If job.GetString = "nothing" Then
						ToastMessageShow("error",False)
					Else 
						Dim str1() As String = Regex.Split("<br>",job.GetString)
						For i = 0 To str1.Length - 1
							Dim str2() As String = Regex.Split("#",str1(i))
							Try
						SQL.ExecNonQuery("INSERT INTO tbl_name (id,name,lname) VALUES (null,'"&str2(1)&"','"&str2(2)&"')")
								showlist
							Catch
								Log(LastException)
							End Try
						Next
					ProgressDialogHide
					End If
		End If
	End If
End Sub

و یه نکته ای رو به نظرم بگم شاید بد نباشه حتما کدها رو تحلیل کنید تا بدونید چی نوشتید (هر جا رو نفهمیدید بپرسید تا یاد بگیرید ) و حتما حتما وقتی به مطلبی رسیدید 

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