ارتباط با دیتابیس آنلاین

سوال

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

java.lang.OutOfMemoryError: OutOfMemoryError thrown while trying to throw OutOfMemoryError; no stack trace available

 

در حال بررسی 0
, 2019-12-06T16:10:45+03:30 1 پاسخ ها کاربر 0

پاسخ ها ( 1 )

  1. morteza
    0
    2019-12-06T23:26:27+03:30
    پاسخ

    دستورات مربوط به بیسیکت رو بذار ببینم.

     

    • hamed
      0
      2019-12-07T03:28:45+03:30
      پاسخ 
      If File.Exists(File.DirInternal,"misaqusers.db") = False Then
		File.copy(File.DirAssets,"misaqusers.db",File.DirInternal,"misaqusers.db")
	End If
	
	If Main.sql1.IsInitialized = False Then
		Main.sql1.Initialize(File.DirInternal,"misaqusers.db",True)
	End If
			
	Main.cr1=Main.sql1.ExecQuery("SELECT famili,nam FROM tblusers1")

	showlist
	slvcreate(i)
	
	Main.ht1.Initialize("job1",Me)
	Main.ht2.Initialize("job2",Me)

       

      Dim ListView1 As ListView
	ListView1.Initialize("")
	ListView1.SingleLineLayout.Label.Gravity = Gravity.CENTER
	ListView1.SingleLineLayout.Label.TextColor=Colors.Black
	ListView1.clear
	ListView1.AddSingleLine2(Main.cr1.GetString("famili")&"-----"&Main.cr1.GetString("nam"),Main.cr1.GetInt("ID"))
	ListView1.AddSingleLine2(Main.cr1.GetString("famili")&" "&Main.cr1.GetString("nam"),"")


	Main.cr1 = Main.sql1.ExecQuery("SELECT famili,nam FROM tblusers1")
	For i = 0 To Main.cr1.RowCount - 1
		Main.cr1.Position = i
		slvaza.Panel.LoadLayout("lkoleaza_mpdata")
		slvaza.Panel.Height=250%y
		lblmp_semat.Text=Main.cr1.GetString("famili")
		lblmp_nam.Text=Main.cr1.GetString("nam")
	Next

       

      	Dim p As Panel
	p.Initialize("p")
	slvaza.Panel.AddView(p,0,top,slvaza.Width,100%y)
	top=top+29%y
	p.LoadLayout("lkoleaza_mpdata")

	Dim fa As String

	lblmp_nam.Text="UPDATE famili,nam FROM tblusers1"
	lblmp_nam.Tag=i
	slvaza.Panel.Height=top
      If job.Success = True Then
		If job.JobName = "job1" Then
			Main.cr1 = Main.sql1.ExecQuery("SELECT nam,famili FROM tblusers1")
			Main.rowCount = Main.cr1.RowCount
					
			If job.GetString > Main.rowCount Then
						
				Main.cr1 = Main.sql1.ExecQuery("SELECT nam,famili FROM tblusers1")
				Main.rowCount = Main.cr1.RowCount
				Main.ht2.PostString("http://www.hamedafrough.ir/misaq/offtoon/getcontent.php","tedad="& Main.rowCount &"")
			Else
				ToastMessageShow("اطلاعات برنامه به‌روز است",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
						Main.sql1.ExecNonQuery("INSERT INTO tblusers1 (ID,nam,famili) VALUES (null,'"&str2(1)&"','"&str2(2)&"')")
						
						showlist
					Catch
						Log(LastException)
					End Try
				Next
				ProgressDialogHide
			End If
		End If
	End If
      Sub lblrefresh_Click
	Main.ht1.PostString("http://www.hamedafrough.ir/misaq/offtoon/check.php","")
	ProgressDialogShow("در حال بروزرسانی ...")
	
End Sub

       

      ممنونم

ارسال یک پاسخ