Bind data to mobile selectionlist (VB.net) : SelectionList « Mobile Control « ASP.Net






Bind data to mobile selectionlist (VB.net)

<%@ Page 
    Inherits="System.Web.UI.MobileControls.MobilePage" 
    Language="VB" 
    Debug=True
%>
<%@ Register 
    TagPrefix="mobile" 
    Namespace="System.Web.UI.MobileControls" 
    Assembly="System.Web.Mobile" 
%>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OLEDB" %>
<script runat="server" language="VB">
Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
    If Not IsPostBack Then
        Dim DBConn as OleDbConnection
        Dim DBCommand As OleDbDataAdapter
        Dim DSPageData as New DataSet
        DBConn = New OleDbConnection( _
            "PROVIDER=Microsoft.Jet.OLEDB.4.0;" _
            & "DATA SOURCE=" _
            & Server.MapPath("EmployeeDatabase.mdb;"))
        DBCommand = New OleDbDataAdapter _
            ("Select FirstName " _
            & "From Employee " _
            & "Order By FirstName", DBConn)
        DBCommand.Fill(DSPageData, _
            "Employee")
        sl1.DataSource = _
            DSPageData.Tables("Employee").DefaultView
        sl1.DataBind()
    End If
End Sub
Sub OK_OnSubmit(Sender As Object, E As EventArgs)
    ActiveForm = FinishForm
    lbl1.Text = "You selected " _
        & sl1.Selection.ToString()
End Sub
</script>
<mobile:Form id="StartForm" runat="server">
<mobile:selectionlist
    runat="server" 
    id="sl1"
    selecttype="DropDown"
    datatextfield="FirstName" 
/>
<mobile:Command 
    runat="server" 
    id="cmdOK"
    OnClick="OK_OnSubmit" 
    Text="OK" 
/>
</mobile:form>
<mobile:form 
    id="FinishForm" 
    runat="server">
<mobile:label 
    runat="server" 
    id="lbl1"
/>
</mobile:form>
           
       








EmployeeDatabase.zip( 10 k)

Related examples in the same category

1.mobile selectionList Demo (ComboBox) (VB.net)
2.Set selected item in a mobile selectionlist (VB.net)
3.mobile:SelectionList (VB.net)