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

اپدیت دیتابیس


marius

سوال

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

 

Sub JobDone (job As HttpJob)
	ProgressDialogHide
		If job.Success = True Then
			Dim total() As String
			total=Regex.Split("<hr>",job.GetString)
			For i =0 To  total.Length -1
				Dim json As JSONParser
				json.Initialize(total(i))
				Dim list As List
				list=json.NextArray
				
				CID= list.Get(0)
				Name= list.Get(1)
				Types= list.Get(2)
				
			sql1.ExecNonQuery2("INSERT INTO Info (CID,Name,Types) VALUES (?,?,?)", Array As Object(CID,Name,Types))
			Next
		End If

End Sub

 

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

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

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

هنوز برای این سوال پاسخی ارسال نشده است

بایگانی شده

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

  • کاربران آنلاین در این صفحه   0 کاربر

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