دستور INSERT INTO برای یک متن طولانی

[mobah 132]

سلام

من یک متن دارم که 10 خط هست اینها رو وارد فایل تکست کردم و میخوام با اجرای برنامه به صورت خودکار هر خط وارد جدول خودش بشه .

دستور  INSERT رو داخل Activity_Create  گذاشتم ولی   خطا میده

Java.lang.ArrayindexOutOFBoundsException : lenght:1;index=1

دستور INSERT  رو داخل یک باتون هم گذاشتم فرقی نکرد.

 

ایرادکجاست.

 

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("testtt")
	
	If File.Exists(File.DirInternal,"testi.db") = False Then
		File.Copy(File.DirAssets,"testi.db",File.DirInternal,"testi.db")
	End If
	If sql1.IsInitialized=False Then
		sql1.Initialize(File.DirInternal,"testi.db",False)
	End If
	
	If File.Exists(File.DirInternal,"srfrom.txt") = False Then
		File.Copy(File.DirAssets,"srfrom.txt",File.DirInternal,"srfrom.txt")
	End If
	
	Label2.Text=File.ReadString(File.DirInternal,"srfrom.txt")
	
	Dim str() As String = Regex.Split(CRLF,Label1.Text)
	
	cur1=sql1.ExecQuery("SELECT id FROM tab110")
	If cur1.RowCount>0 Then
		For i=0 To cur1.RowCount-1
			cur1.Position=i
			Dim new_num As Int
			new_num=cur1.GetInt("id")
		Next
	End If
	new_num=new_num+1
	sql1.ExecNonQuery("INSERT INTO tab110 VALUES('" &new_num&"','" &str(1)&"','"&str(2)&"','"&str(3)&"','"&str(4)&"','"&str(5)&"','"&str(6)&"','"&str(7)&"','"&str(8)&"','"&str(9)&"','"&str(10)&"')")



End Sub

 

این رو هم تست کردم

دستور اینتنت  رو هم تست کردم جواب نداد

 

	Dim str() As String = Regex.Split(CRLF,Label1.Text)
	cur1=sql1.ExecQuery("SELECT id FROM tab110")
	sql1.ExecNonQuery("INSERT INTO tab110(name) VALUES ('"& str(1) &"')")

 

[مجید آرتا 5,874]

سلام

خطا واسه این هستش که شما اندیس درستی واسه آرایه رشته قرار ندادین، گفتید اندیس 10 رو بیار که میشه عنصر 11، و شما 10 عنصر بیشتر ندارید.

بجای کد خودتون از این کد استفاده کنید.

	If File.Exists(File.DirInternal,"testi.db") = False Then
		File.Copy(File.DirAssets,"testi.db",File.DirInternal,"testi.db")
	End If
	If sql1.IsInitialized=False Then
		sql1.Initialize(File.DirInternal,"testi.db",False)
	End If
	
	If File.Exists(File.DirInternal,"srfrom.txt") = False Then
		File.Copy(File.DirAssets,"srfrom.txt",File.DirInternal,"srfrom.txt")
	End If
	
	Dim lst As List =File.ReadList(File.DirInternal,"srfrom.txt")
	Private id As Int = sql1.ExecQuerySingleResult("SELECT count(id) FROM tab110")
	id = id + 1
sql1.ExecNonQuery("INSERT INTO tab110 VALUES('" & id &"','" & lst.Get(0) &"','"& lst.Get(1)&"','"& lst.Get(2) &"','"& lst.Get(3)&"','"& lst.Get(4)&"','"& lst.Get(5)&"','"& lst.Get(6)&"','"& lst.Get(7)&"','"& lst.Get(8)&"','"& lst.Get(9)&"')")