چگونگی استفاده از دستور لیمیت

[mr-edris 186]

سلام

کد لیمیت رو به این صورت تغییر دادم

<?php

$con = mysql_connect("localhost", "ierverir_line", "@edris2020");
if (!$con) {
  die('Could not connect: ' . mysql_error());
}

mysql_select_db("ierverir_line", $con);
$tedad = $_POST['tedad'];
$az = $_POST['az'];
$db1 = mysql_query("SELECT * FROM line LIMIT $tedad OFFSET $az");

while ($result = mysql_fetch_array($db1))
{
echo $result['id']. "#" .$result['Name']. "#" .$result['FAmily']. "#" .$result['Sen']. "#" .$result['Shahr']. "#" .$result['Line']."<br>";
}
?>

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

 

Sub ref3_Click

    readdb.Download("http://linefrnd.ml/dbsee.php")
    ProgressDialogShow("در حال دانلود کردن")
    sd.PostString("http://linefrnd.ml/limited.php","tedad="& EditText1.Text & "&az=" & EditText2.Text)
End Sub

 

حلالا در ادامش دقیق نمیدونم باید چی کار کنم

روی داد جاب اولمم اینه

Sub JobDone (Job As HttpJob)
If Job.Success = True Then
Try
a = Regex.Split("<br>",Job.GetString)
ProgressDialogHide
  Dim id As String
 Dim Name As String
 Dim FAmily As String
 Dim Sen As String
 Dim Shahr As String
 Dim Line As String
 Dim str() As String
  For i= j To z
 Dim str () As String =Regex.Split("#",a(i)) 
Try
Name = str (1) 'Shomareh Andis
Catch
Name = ""
End Try
Try
FAmily = str (2) 'Shomareh Andis
Catch
FAmily = ""
End Try
Try
Sen = str(3) 'Shomareh Andis
Catch
Sen = ""
End Try
Try
Shahr = str(4) 'Shomareh Andis
Catch
Shahr = ""
End Try
Try
Line = str(5) 'Shomareh Andis
Catch
Line = ""
End Try
 Dim p As  Panel
p.Initialize("p")
ScrollView1.Panel.AddView(p,0,stop,100%x,100%y)
stop = stop + 80%y
p.LoadLayout("mp")
Label7.Text= id
Label8.Text= Name
Label9.Text=FAmily
Label10.Text=Sen
Label11.Text=Shahr
Label12.Text=Line
ScrollView1.Panel.Height = stop
Next
Catch
ToastMessageShow("در حال حاضر هیچ لینکی موجود نیست و یا شما به اینترنت متصل نمیباشد",False)
End Try
End If
End Sub

[مهمان]

سلام . شما اگر از متد پست استفاده میکنید اون دانلود اولتون را بردارید چون دیگه نیازی بهش نیست

بقیه کدتون نیازی به تغییر نداره

[mr-edris 186]

کار نمیکنه خیلی عجیبه

[مهمان]

من تا ساعت 1 کدتون را درست و براتون می فرستم

[مهدی ایزدی 9,203]

زمانی که از متد پست استفاده میکنید دیگه نیازی به اون تیکه کد Download نیست

خود Post میاد Download رو انجام میده ...

[mr-edris 186]

دنیا دنیا تشکر داش عزیزم

[مهمان]

زمانی که از متد پست استفاده میکنید دیگه نیازی به اون تیکه کد Download نیست

خود Post میاد Download رو انجام میده ...

بهشون گفتم ولی مثل اینکه میگن مشکل داره

[mr-edris 186]

زمانی که از متد پست استفاده میکنید دیگه نیازی به اون تیکه کد Download نیست

خود Post میاد Download رو انجام میده ...

میدونم پاکش کردم

Sub ref3_Click
	sd.PostString("http://linefrnd.ml/limited.php","tedad=" & EditText1.Text & "&az=" & EditText2.Text)
	ProgressDialogShow("در حال دانلود کردن")
End Sub
Sub JobDone (Job As HttpJob)
If Job.Success = True Then
Try
a = Regex.Split("<br>",Job.GetString)
ProgressDialogHide
Dim tedad As Int
Dim az As Int
  Dim id As String
 Dim Name As String
 Dim FAmily As String
 Dim Sen As String
 Dim Shahr As String
 Dim Line As String
 Dim str() As String
  For i= tedad To az
 Dim str () As String =Regex.Split("#",a(i)) 
Try
Name = str (1) 'Shomareh Andis
Catch
Name = ""
End Try
Try
FAmily = str (2) 'Shomareh Andis
Catch
FAmily = ""
End Try
Try
Sen = str(3) 'Shomareh Andis
Catch
Sen = ""
End Try
Try
Shahr = str(4) 'Shomareh Andis
Catch
Shahr = ""
End Try
Try
Line = str(5) 'Shomareh Andis
Catch
Line = ""
End Try
 Dim p As  Panel
p.Initialize("p")
ScrollView1.Panel.AddView(p,0,stop,100%x,100%y)
stop = stop + 80%y
p.LoadLayout("mp")
Label7.Text= id
Label8.Text= Name
Label9.Text=FAmily
Label10.Text=Sen
Label11.Text=Shahr
Label12.Text=Line
ScrollView1.Panel.Height = stop
Next
Catch
ToastMessageShow("در حال حاضر هیچ لینکی موجود نیست و یا شما به اینترنت متصل نمیباشد",False)
End Try
End If
End Sub

[مهمان]

میدونم پاکش کردم

Sub ref3_Click	sd.PostString("http://linefrnd.ml/limited.php","tedad="& EditText1.Text & "&az=" & EditText2.Text)	ProgressDialogShow("در حال دانلود کردن")End SubSub JobDone (Job As HttpJob)If Job.Success = True ThenTrya = Regex.Split("",Job.GetString)ProgressDialogHideDim tedad As IntDim az As Int  Dim id As String Dim Name As String Dim FAmily As String Dim Sen As String Dim Shahr As String Dim Line As String Dim str() As String  For i= tedad To az Dim str () As String =Regex.Split("#",a(i)) TryName = str (1) 'Shomareh AndisCatchName = ""End TryTryFAmily = str (2) 'Shomareh AndisCatchFAmily = ""End TryTrySen = str(3) 'Shomareh AndisCatchSen = ""End TryTryShahr = str(4) 'Shomareh AndisCatchShahr = ""End TryTryLine = str(5) 'Shomareh AndisCatchLine = ""End Try Dim p As  Panelp.Initialize("p")ScrollView1.Panel.AddView(p,0,stop,100%x,100%y)stop = stop + 80%yp.LoadLayout("mp")Label7.Text= idLabel8.Text= NameLabel9.Text=FAmilyLabel10.Text=SenLabel11.Text=ShahrLabel12.Text=LineScrollView1.Panel.Height = stopNextCatchToastMessageShow("در حال حاضر هیچ لینکی موجود نیست و یا شما به اینترنت متصل نمیباشد",False)End TryEnd IfEnd Sub 

من خودم هرکدی که دوسمته مینیویسم هزاربار دیباگ میکنم فک کنم باید مفصل یک اموزش دیباگم بزارم . ممکنه حتی اشکال از سرورتون باشه . که من الان به لپ تاپ دسترسی ندارم . دسترسی داشتم انجامش میدم

[mr-edris 186]

من خودم هرکدی که دوسمته مینیویسم هزاربار دیباگ میکنم فک کنم باید مفصل یک اموزش دیباگم بزارم . ممکنه حتی اشکال از سرورتون باشه . که من الان به لپ تاپ دسترسی ندارم . دسترسی داشتم انجامش میدم

ار هر راهی که  صلاح میدونی و درست نمایش میده تست بزن الان حدود 3000 تا نصب خورده و این مشکل مشکل کوچیکی نیست ببخشید که خودم واقعا توش موندم

[مهمان]

ار هر راهی که  صلاح میدونی و درست نمایش میده تست بزن الان حدود 3000 تا نصب خورده و این مشکل مشکل کوچیکی نیست ببخشید که خودم واقعا توش موندم

پیامتون را چک کنید 

[حسن قاسمی نیا 547]

الان مشکل دقیقا چیه ؟ خطا دارید یا هیچ اطلاعات برای نمایش ندارید ؟

[مهمان]

ار هر راهی که  صلاح میدونی و درست نمایش میده تست بزن الان حدود 3000 تا نصب خورده و این مشکل مشکل کوچیکی نیست ببخشید که خودم واقعا توش موندم

پ.خ چک شود