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

سوال

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

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

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

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

 

sending message to waiting queue (CallSubDelayed – JobDone)

در حال بررسی 0
, 2019-10-03T17:55:11+03:30 2 پاسخ کاربر 0

پاسخ ها ( 2 )

  1. morteza
    0
    2019-10-04T00:06:13+03:30
    پاسخ

    سلام.

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

    • hamed
      0
      2019-10-04T02:11:27+03:30
      پاسخ

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

      صفحه اول

      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=0 To list.Size-1
			Dim map_title As Map=list.Get(i)
			
			Dim p As Panel
			p.Initialize("p")
			slvaza.Panel.AddView(p,0%x,top,95%x,26%y)
			p.LoadLayout("lprofileazalist2")
			p.Tag=i
			top=top+15%y+0%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
    2019-10-08T02:00:26+03:30
    پاسخ

    سلام دوستان

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

    <?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=0 To list.Size-1
			Dim map1 As Map=list.Get(i)
			
			Dim p As Panel
			p.Initialize("p")
			slvaza.Panel.AddView(p,0,top,95%x,26%y)
			p.LoadLayout("lprofileazalist2")
			p.Tag=i
			top=top+15%y+0%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 **

     

ارسال یک پاسخ