yasindeveloper

هم اکنون، yasindeveloper گفته است:

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

Private Sub EditText1_TextChanged (Old As String, New As String)
    cur=sql1.ExecQuery("SELECT * FROM test WHERE test1 LIKE '%" & EditText1.Text & "%'")
    For i=0 To cur.RowCount-1
        cur.Position=i
        lst_result.AddTwoLines(cur.GetString("name"),(cur.GetString("family")))
        If EditText1.Text="" Then
            lst_result.Clear
        End If
    Next
End Sub

اینم از متغیر هام برای اینکه گیج نشین😁

Sub Process_Globals
	Dim sql1 As SQL
	Dim cur As Cursor
End Sub

Sub Globals
	Private EditText1 As EditText
	Private ListView1 As ListView
	Private lst_result As ListView
End Sub

 

بیشتر هم از خط کد زیر گیر میده

cur=sql1.ExecQuery("SELECT * FROM test WHERE test1 LIKE '%" & EditText1.Text & "%'")

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

Private Sub EditText1_TextChanged (Old As String, New As String)
    cur=sql1.ExecQuery("SELECT * FROM test WHERE test1 LIKE '%" & EditText1.Text & "%'")
    For i=0 To cur.RowCount-1
        cur.Position=i
        lst_result.AddTwoLines(cur.GetString("name"),(cur.GetString("family")))
        If EditText1.Text="" Then
            lst_result.Clear
        End If
    Next
End Sub

اینم از متغیر هام برای اینکه گیج نشین😁

Sub Process_Globals
	Dim sql1 As SQL
	Dim cur As Cursor
End Sub

Sub Globals
	Private EditText1 As EditText
	Private ListView1 As ListView
	Private lst_result As ListView
End Sub