رفتن به مطلب
  • 0

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


Cna

سوال

سلام

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

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

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

 

اینم کد 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
لینک ارسال
به اشتراک گذاری در سایت های دیگر

3 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

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

من کدهای آقا شهاب میزارم ( برو دوباره آموزش قسمت 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 نیست!!!!!!!!!!!!! :cheshmak:

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

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

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

من کدهای آقا شهاب میزارم ( برو دوباره آموزش قسمت 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

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...