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

سوال

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

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

 

در حال بررسی 0
, ۱۳۹۸/۹/۱۵ ۱۶:۱۰:۴۵ 1 پاسخ ها کاربر 0

پاسخ ها ( 1 )

  1. morteza
    0
    ۱۳۹۸/۹/۱۵ ۲۳:۲۶:۲۷
    پاسخ

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

     

    • hamed
      0
      ۱۳۹۸/۹/۱۶ ۳:۲۸:۴۵
      پاسخ

      ۱
      ۲
      ۳
      ۴
      ۵
      ۶
      ۷
      ۸
      ۹
      ۱۰
      ۱۱
      ۱۲
      ۱۳
      ۱۴
      ۱۵
      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 = ۰ To Main.cr1.RowCount - ۱
      Main.cr1.Position = i
      slvaza.Panel.LoadLayout("lkoleaza_mpdata")
      slvaza.Panel.Height=۲۵۰%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,۰,top,slvaza.Width,۱۰۰%y)
      top=top+۲۹%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 = ۰ To str1.Length - ۱
      Dim str2() As String = Regex.Split("#",str1(i))
      Try
      Main.sql1.ExecNonQuery("INSERT INTO tblusers1 (ID,nam,famili) VALUES (null,'"&str2(۱)&"','"&str2(۲)&"')")
      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

       

      ممنونم

ارسال یک پاسخ