defaultvb.aspx.vb

Telerik是很大的第三方软件制造商

Imports System
Imports Telerik.QuickStart
Imports Telerik.WebControls
Imports System.Data
Imports System.Data.OleDb


Namespace Telerik.ComboboxExamplesVB.AutoCompleteSql
   
   '/ <summary>
   '/ Summary description for _Default.
   '/ </summary>
   Public Class DefaultVB
      Inherits XhtmlPage
      Protected WithEvents Button1 As System.Web.UI.WebControls.Button
      Protected Label1 As System.Web.UI.WebControls.Label
      Protected WithEvents CheckBox1 As System.Web.UI.WebControls.CheckBox
      Protected Checkbox2 As System.Web.UI.WebControls.CheckBox
      Protected WithEvents RadComboBox1 As Telerik.WebControls.RadComboBox
      
      
      Private Sub RadComboBox1_ItemsRequested(o As Object, e As Telerik.WebControls.RadComboBoxItemsRequestedEventArgs) Handles RadComboBox1.ItemsRequested
         Dim combo As RadComboBox = CType(o, RadComboBox)
         combo.Items.Clear()
         
         Dim mdbPath As String = Server.MapPath("~/Combobox/Data/NWind.mdb")
         Dim dbCon As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + mdbPath)
         dbCon.Open()
         
         Dim [text] As String = e.Text
         Dim sql As String = "SELECT * from Customers WHERE CompanyName LIKE '" + [text].Replace("'", "''") + "%'"
         
         Dim adapter As New OleDbDataAdapter(sql, dbCon)
         Dim dt As New DataTable()
         adapter.Fill(dt)
         dbCon.Close()
         
         Dim row As DataRow
         For Each row In  dt.Rows
            Dim item As New RadComboBoxItem(row("CompanyName").ToString().ToLower())
            item.Value = row("CompanyName").ToString()
            combo.Items.Add(item)
         Next row
      End Sub 'RadComboBox1_ItemsRequested
      
      
      Private Sub Page_Load(sender As Object, e As System.EventArgs) Handles MyBase.Load
      End Sub 'Page_Load
      Protected Overrides Sub OnInit(e As EventArgs)
         '
         ' CODEGEN: This call is required by the ASP.NET Web Form Designer.
         '
         InitializeComponent()
         MyBase.OnInit(e)
      End Sub 'OnInit
      
      
      '/		Required method for Designer support - do not modify
      '/		the contents of this method with the code editor.
      '/ </summary>
      Private Sub InitializeComponent()
      End Sub 'InitializeComponent
      Private Sub Button1_Click(sender As Object, e As System.EventArgs) Handles Button1.Click
         If RadComboBox1.Text <> [String].Empty Then
            Label1.Text = "You selected text: <b>" + RadComboBox1.Text + "</b> and value : <b>" + RadComboBox1.Value + "</b>"
         Else
            Label1.Text = "ComboBox is empty"
         End If
      End Sub 'Button1_Click
      
      
      Private Sub CheckBox1_CheckedChanged(sender As Object, e As System.EventArgs) Handles CheckBox1.CheckedChanged
         RadComboBox1.MarkFirstMatch = CheckBox1.Checked
      End Sub 'CheckBox1_CheckedChanged
   End Class 'DefaultVB 
End Namespace 'Telerik.ComboboxExamplesVB.AutoCompleteSql