سلام من اطلاعات دیتابیس از روی لوکال هاست درون لیست ویو نمایش میدم میخواستم وقتی ایتم از لیست ویو انتخاب شد در اکتیوتی دیگر فید متن اون ایدی نمایش بده چطور باید این کار کنم
کد phpبه این صورت
<?php
$conn=mysqli_connect("localhost","root","","ali");
$query="SELECT * FROM ali";
$res=mysqli_query($conn,$query);
while ($row=mysqli_fetch_array($res)){
echo $row['id'].'#'.$row['na'].'#'.$row['fa'].'#'.$row['tx'].'<br>';
}
mysqli_close($conn);
?>
وکد در b4a
Sub Globals
Dim h As HttpJob
Dim str() As String
Dim str2() As String
Private ListView1 As ListView
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("select1")
h.Initialize("hh",Me)
h.PostString("HTTP://192.168.1.36/select.PHP","")
End Sub
Sub jobDONE(JOB As HttpJob)
If JOB.Success Then
str=Regex.Split("<br>",JOB.GetString)
For i=0 To str.Length-1
Dim id As String
Dim na As String
Dim fa As String
Dim tx As String
Dim jodasaz() As String
jodasaz=Regex.Split("#",str(i))
id=jodasaz(0)
na=jodasaz(1)
fa=jodasaz(2)
tx=jodasaz(3)
ListView1.AddSingleLine(na &"-"& fa)
ListView1.SingleLineLayout.Label.TextColor=Colors.Black
Next
Else
ToastMessageShow("NO CONNECT",False)
End If
End Sub
سوال
erfan9193 0
سلام من اطلاعات دیتابیس از روی لوکال هاست درون لیست ویو نمایش میدم میخواستم وقتی ایتم از لیست ویو انتخاب شد در اکتیوتی دیگر فید متن اون ایدی نمایش بده چطور باید این کار کنم
کد phpبه این صورت
وکد در b4a
Sub Globals
Dim h As HttpJob
Dim str() As String
Dim str2() As String
Private ListView1 As ListView
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("select1")
h.Initialize("hh",Me)
h.PostString("HTTP://192.168.1.36/select.PHP","")
End Sub
Sub jobDONE(JOB As HttpJob)
If JOB.Success Then
str=Regex.Split("<br>",JOB.GetString)
For i=0 To str.Length-1
Dim id As String
Dim na As String
Dim fa As String
Dim tx As String
Dim jodasaz() As String
jodasaz=Regex.Split("#",str(i))
id=jodasaz(0)
na=jodasaz(1)
fa=jodasaz(2)
tx=jodasaz(3)
ListView1.AddSingleLine(na &"-"& fa)
ListView1.SingleLineLayout.Label.TextColor=Colors.Black
Next
Else
ToastMessageShow("NO CONNECT",False)
End If
End Sub
لینک ارسال
به اشتراک گذاری در سایت های دیگر
2 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.