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

سوال

سلام دوستان خداقوت

من یه دکمه ساختم که با کلیک روی اون لیست ویو با کمک دیتابیس آنلاین بروز بشه و اعضا رو نشون بده

اما وقتی روی دکمه کلیک میکنم این ارر رو میده

میشه بگید ایراد کارم کجاست؟

 

sending message to waiting queue (CallSubDelayed – JobDone)

در حال بررسی 0
, ۱۳۹۸/۷/۱۱ ۱۷:۵۵:۱۱ 2 پاسخ کاربر 0

پاسخ ها ( 2 )

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

    سلام.

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

    • hamed
      0
      ۱۳۹۸/۷/۱۲ ۲:۱۱:۲۷
      پاسخ

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

      صفحه اول

      صفحه اول
      ۱
      ۲
      ۳
      Sub Activity_Create(FirstTime As Boolean)
      Activity.LoadLayout("lprofileaza")
      End Sub

      ۱
      ۲
      ۳
      ۴
      Sub lblkol_Click
      Activity.Finish
      Activity.LoadLayout("lprodileazalist")
      End Sub

      صفحه دوم

      ۱
      ۲
      ۳
      ۴
      ۵
      ۶
      ۷
      ۸
      ۹
      ۱۰
      ۱۱
      Sub Activity_Create(FirstTime As Boolean)
      Activity.LoadLayout("lprodileazalist")
      slvaza.Initialize("slvaza")
      ht1.Initialize("ht1",Me)
      ProgressDialogShow("درحال برقراری با سرور. لطفا صبر کنید...")
      ht1.Download("http://hamedafrough.ir/misaq/tblusers.php")
       
      End Sub

      ۱
      ۲
      ۳
      ۴
      ۵
      ۶
      ۷
      ۸
      ۹
      ۱۰
      ۱۱
      ۱۲
      ۱۳
      ۱۴
      ۱۵
      ۱۶
      ۱۷
      ۱۸
      ۱۹
      ۲۰
      ۲۱
      ۲۲
      ۲۳
      ۲۴
      ۲۵
      ۲۶
      ۲۷
      ۲۸
      Sub jobdone1(job As HttpJob)
      If job.Success=True Then
      ProgressDialogHide
      j.Initialize(job.GetString)
      Dim list As List= j.NextArray
      For i=۰ To list.Size-۱
      Dim map_title As Map=list.Get(i)
      Dim p As Panel
      p.Initialize("p")
      slvaza.Panel.AddView(p,۰%x,top,۹۵%x,۲۶%y)
      p.LoadLayout("lprofileazalist2")
      p.Tag=i
      top=top+۱۵%y+۰%x
      lblid.Text=map_title.Get("ID")
      lblnam.Text=map_title.Get("nam")
      lblkod.Text=map_title.Get("kod")
      lblsemat.Text=map_title.Get("semat")
      Next
      slvaza.Panel.Height=top
      Else
      ProgressDialogHide
      Msgbox("خطا در برقراری ارتباط با سرور. لطفا اتصال خود را با اینترنت چک کنید","خطا")
      End If
      ht1.Release
      End Sub

       

  2. hamed
    0
    ۱۳۹۸/۷/۱۶ ۲:۰۰:۲۶
    پاسخ

    سلام دوستان

    من مشکلم بابت اون ارر حل شد اما وقتی برنامه رو اجرا می کنم یه صفحه سفید بهم میده و اطلاعات رو نمایش نمیده
    ممنون میشم کمکم کنید

    ۱
    ۲
    ۳
    ۴
    ۵
    ۶
    ۷
    ۸
    ۹
    ۱۰
    ۱۱
    ۱۲
    ۱۳
    <?php
    $conn=new PDO('mysql:host=localhost;dbname=hamedafr_misaq;charset=utf8','adminname','pass' );
      
       $data=$conn->query('SELECT ID,nam,semat,kod FROM tblusers');
       $array=array();
       while($row=$data->fetch())
       {
            array_push($array,array('ID' => $row['ID'],'nam' => $row['nam'],'kod' => $row['kod'],'semat' => $row['semat']));
       }
       echo json_encode($array);
          
        $conn=null;
    ?>

     

    ۱
    ۲
    ۳
    ۴
    ۵
    ۶
    ۷
    Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("lprodileazalist")
    ht1.Initialize("ht1",Me)
    ht1.Download("http://hamedafrough.ir/misaq/tblusers.php")
     
    End Sub

    ۱
    ۲
    ۳
    ۴
    ۵
    ۶
    ۷
    ۸
    ۹
    ۱۰
    ۱۱
    ۱۲
    ۱۳
    ۱۴
    ۱۵
    ۱۶
    ۱۷
    ۱۸
    ۱۹
    ۲۰
    ۲۱
    ۲۲
    ۲۳
    ۲۴
    ۲۵
    ۲۶
    ۲۷
    ۲۸
    Sub jobdone1(job As HttpJob)
    If job.Success=True Then
    j.Initialize(job.GetString)
    Dim list As List=j.NextArray
    For i=۰ To list.Size-۱
    Dim map1 As Map=list.Get(i)
    Dim p As Panel
    p.Initialize("p")
    slvaza.Panel.AddView(p,۰,top,۹۵%x,۲۶%y)
    p.LoadLayout("lprofileazalist2")
    p.Tag=i
    top=top+۱۵%y+۰%x
    lblid.Text=map1.Get("ID")
    lblnam.Text=map1.Get("nam")
    lblsemat.Text=map1.Get("semat")
    lblkod.Text=map1.Get("kod")
    Next
    slvaza.Panel.Height=top
    Else
    Msgbox("","خطا در برقراری ارتباط")
    End If
    ht1.Release
    End Sub

    تو قسمت لاگهای بیسیک هم دو گزینه اخرش ایناس:

    *** Service (httputils2service) Create ***

    ** Service (httputils2service) Start **

     

ارسال یک پاسخ