yasindeveloper

بیشتر هم از خط کد زیر گیر میده 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