Predmet:Re: Combobox as you type
Eve vidi dali ce raditi ova
PreuzmiIzvorni kôd (vbnet): Private Sub cboArtikli_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs)
Dim rsArtikliBaraj = New ADODB.Recordset
Dim dtArtikliBaraj As New DataTable
Dim sqlBaraj As String
Dim i As Integer
sqlBaraj = "SELECT * FROM tblArtikli WHERE Artikal_Ime LIKE '%" & cboArtikli.Text & "%'"
'WHERE Description LIKE '%' + @SearchTerm + '%' AND Price <> '0.00'
rsArtikliBaraj.Open(sqlBaraj, cn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)
dtArtikliBaraj = RecordSetToDataTable(rsArtikliBaraj)
' Me.cboArtikli.DropDownStyle = ComboBoxStyle.DropDownList
' Me.cboArtikli.AutoCompleteMode = AutoCompleteMode.None
' Me.cboArtikli.AutoCompleteSource = AutoCompleteSource.None
' Me.cboArtikli.AllowDrop = True
Me.cboArtikli.DataSource = dtArtikliBaraj
' Me.cboArtikli.DisplayMember = "Artikal_Ime"
' Me.cboArtikli.ValueMember = "ID_Artikal"
Me.cboArtikli.Refresh()
Me.cboArtikli.DroppedDown = True
'Me.cboArtikli.DataBindings.Add("SelectedValue", dtArtikliBaraj, "Ed_Mera")
End Sub