[Rabeea Qbaha]

PHP كود :

Private Sub auto_complete()
        Try

            If Conn.State = ConnectionState.Closed Then
                Conn.Open()
            End If

            Dim cmd As New OleDbCommand("SELECT MaterialName FROM Materials", Conn)
            Dim ds As New DataSet
            Dim da As New OleDbDataAdapter(cmd)
            da.Fill(ds, "list")

            Dim col As New AutoCompleteStringCollection
            Dim i As Integer
            For i = 0 To ds.Tables(0).Rows.Count - 1
                col.Add(ds.Tables(0).Rows(i)(0).ToString())
            Next
            Conn.Close()

            TxTMaterialName.AutoCompleteSource = AutoCompleteSource.CustomSource
            TxTMaterialName.AutoCompleteCustomSource = col
            TxTMaterialName.AutoCompleteMode = AutoCompleteMode.Suggest
        Catch ex As Exception

        End Try
    End Sub 


وتستدعي الميثود اينما تريد

PHP كود :

auto_complete