Mega Code Archive

 

Categories / ASP.Net / Mobile Control

 

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)