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

1. ASP.Net
2. Mobile Control
3. SelectionList

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