ارور برای آپدیت دیتابیس انلاین

[amirmahdi3744 5]

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

Sub jobdone (job As HttpJob)
	
	
	
	If job.Success = True Then
		
		
		If job.JobName = "job1" Then
			
					cur2 = sql2.ExecQuery("SELECT * FROM tbl")
					rowCount = cur2.RowCount
					
					If job.GetString > rowCount Or  job.GetString < rowCount Then
						
						cur2 = sql2.ExecQuery("SELECT * FROM tbl")
						rowCount = cur2.RowCount
						
						ht2.PostString("در این قسمت ادرس فایل وجود دارد به خاطر امنیت پاک می کنم","tedad="& rowCount &"")
						showlist
						
					Else
						ToastMessageShow("db is up to date!!!",False)
						ProgressDialogHide
					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
								sql2.ExecNonQuery("INSERT INTO tbl(id,fname,lname,img) VALUES(null,'"&str2(1)&"','"&str2(2)&"','"&str2(3)&"')")
								showlist
								
							Catch
								Log(LastException)
							End Try
						Next
						ProgressDialogHide
					
					End If
					
	
		
	End If 

		End If

ولی در برنامه گزینه ارور بوجود میاد و هیچ کاری نمیی کنه.

لطفا کمک کنید

[shahab.es 5,429]

هموطن یه جستجویی

یه تحقیقی 

چیزی بزن دلاور

http://answercenter.ir/topic/14357-%D8%A7%D9%BE%D8%AF%DB%8C%D8%AA-%D8%AF%DB%8C%D8%AA%D8%A7%D8%A8%DB%8C%D8%B3-%D8%A7%D9%81%D9%84%D8%A7%DB%8C%D9%86%D8%A7%D8%B2-%D8%B7%D8%B1%DB%8C%D9%82-%D8%A8%D8%A7%D9%86%DA%A9-%D8%A7%D9%86%D9%84%D8%A7%DB%8C%D9%86-%D9%82%D8%B3%D9%85%D8%AA-%D8%AF%D9%88/