اضافه کردن متن تکست به دیتابیس

[majid08 266]

سلام

من یه فایل جیسون دارم میخام متنش رو به دیتابیس اضافه کنم همه چی درسته فقط هر وقت برنامه رو باز میکنم همه رکورد ها دوباره تکرار میشن

اینم سورس

Sub Process_Globals
	
Dim s As SQL

End Sub

Sub Globals
	
	Dim json As JSONParser
	Private Label1 As Label
	Private ListView1 As ListView
	Private Spinner1 As Spinner
	Private Label2 As Label
	Dim fara As Farakhani
	Dim cur1 As Cursor
End Sub

Sub Activity_Create(FirstTime As Boolean)

	Activity.LoadLayout("Layout1")
	
	

	
	If File.Exists(File.DirInternal,"test.db")= False Then
	File.Copy(File.DirAssets,"test.db",File.DirInternal,"test.db")
	End If
	
	If s.IsInitialized=False Then
	s.Initialize(File.DirInternal,"test.db",False)
	End If
	'	
	
	json.Initialize(File.ReadString(File.DirAssets,"test.txt"))
	Dim m As Map
	m=json.NextObject
	Dim bas As List
	bas=m.Get("basic4android.org")
	For i=0 To bas.Size-1
	m=bas.Get(i)
	Label1.Text=(m.Get("name"))
	Label2.Text=(m.Get("family"))
	
	Next
	
	s.ExecNonQuery("INSERT INTO tbl1 (onvan,matn) VALUES ('"& Label1.Text &"','"& Label2.Text &"')")
ListView1.Clear
	cur1 = s.ExecQuery("SELECT * FROM tbl1")
	For i = 0 To cur1.RowCount-1
	cur1.Position = i
	fara.SingleLineTitr("test.db",s,cur1,"SELECT * FROM tbl1 ",ListView1,"onvan","id")
	Next
End Sub