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

[marius 23]

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

 

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