یک دیتابیس آنلاین دارم و کدی برای جستجو نوشتم. رشته جستجو رو پیدا میکنه مشکل نداره، ولی وقتی کلمه ای که توی دیتابیس نیست رو جستجو میکنم ارور میده . ارورش اینه:
این کد جستجوی بیسیک من هستش
Sub EditTextsearch_TextChanged (Old As String, New As String)
'try
Labelback.Visible= True
New = New.Trim
ListViewsearch1.Clear
ListViewsearch1.SingleLineLayout.Label.TextColor=Colors.Black
ListViewsearch1.SingleLineLayout.Label.TextSize = 13
If ll = 1 Then
ListViewsearch1.SingleLineLayout.Label.Left = ListViewsearch1.SingleLineLayout.Label.Left - 8dip
ll=2
End If
ProgressDialogShow("منتظر بمانید...")
Dim search1 As HttpJob
search1.Initialize("", Me)
search1.PostString("http://192.168.1.18/publisherAPP/search1_apk.php","item=" & New )
Wait For(search1) JobDone(job2 As HttpJob)
If job2.Success Then
ProgressDialogHide
whichlv = False
If job2.GetString.Length <> 0 Then
Dim all_array_rows() As String
all_array_rows = Regex.Split("@", job2.GetString)
For i=0 To all_array_rows.Length-1
Dim my_array_fields() As String
Dim f1, f2 As String
my_array_fields = Regex.Split(">", all_array_rows(i))
f1 = my_array_fields(0)
f2 = my_array_fields(1)
ListViewsearch1.AddSingleLine2(f2, f1)
Next
End If
End If
job2.Release
' Catch
' Log(LastException)
' End Try
End Sub
سوال
[email protected] 0
سلام به اساتید محترم.
یک دیتابیس آنلاین دارم و کدی برای جستجو نوشتم. رشته جستجو رو پیدا میکنه مشکل نداره، ولی وقتی کلمه ای که توی دیتابیس نیست رو جستجو میکنم ارور میده . ارورش اینه:
این کد جستجوی بیسیک من هستش
Sub EditTextsearch_TextChanged (Old As String, New As String) 'try Labelback.Visible= True New = New.Trim ListViewsearch1.Clear ListViewsearch1.SingleLineLayout.Label.TextColor=Colors.Black ListViewsearch1.SingleLineLayout.Label.TextSize = 13 If ll = 1 Then ListViewsearch1.SingleLineLayout.Label.Left = ListViewsearch1.SingleLineLayout.Label.Left - 8dip ll=2 End If ProgressDialogShow("منتظر بمانید...") Dim search1 As HttpJob search1.Initialize("", Me) search1.PostString("http://192.168.1.18/publisherAPP/search1_apk.php","item=" & New ) Wait For(search1) JobDone(job2 As HttpJob) If job2.Success Then ProgressDialogHide whichlv = False If job2.GetString.Length <> 0 Then Dim all_array_rows() As String all_array_rows = Regex.Split("@", job2.GetString) For i=0 To all_array_rows.Length-1 Dim my_array_fields() As String Dim f1, f2 As String my_array_fields = Regex.Split(">", all_array_rows(i)) f1 = my_array_fields(0) f2 = my_array_fields(1) ListViewsearch1.AddSingleLine2(f2, f1) Next End If End If job2.Release ' Catch ' Log(LastException) ' End Try End Sub
این کد php
اشکال کدمو بهم بگید کمک بزرگی بهم میکنید.
لینک ارسال
به اشتراک گذاری در سایت های دیگر
2 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.