<%@ Import Namespace="System.Data.SQLClient" %>
<script language=VB runat=server>
Sub Page_Load(Sender As Object, E As EventArgs)
Dim conn As SqlConnection = New SqlConnection(ConfigurationSettings.AppSettings("DSN_pubs"))
Dim sql as string = "Select au_id, au_lname, au_fname from Authors"
Dim dr as New SQLCommand(sql, conn)
Dim reader as sqldatareader
Dim values as ArrayList= new ArrayList()
conn.Open()
reader = dr.ExecuteReader()
While reader.Read()
Values.Add(reader.item("au_id").ToString())
End While
lb.DataSource = values
lb.DataBind()
conn.Close()
reader.close()
End Sub
</script>
<html>
<head>
<title>ListBox using SQLDataReader</title>
</head>
<body>
<form method="post" runat="server">
<asp:ListBox id="lb" SelectionMode="Multiple" runat="server"/>
</form>
</body>
</html> |