Hello Fellow Coders,
What code is used to clear a list box, like the one the i am suppling?
btn_click event---
#Region " Web Form Designer Generated Code "
'This call is required by the Web Form Designer.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.da1 = New System.Data.SqlClient.SqlDataAdapter
Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand
Me.cnn = New System.Data.SqlClient.SqlConnection
'
'da1
'
Me.da1.SelectCommand = Me.SqlSelectCommand1
Me.da1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "Customers", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("LastName", "LastName"), New System.Data.Common.DataColumnMapping("FirstName", "FirstName"), New System.Data.Common.DataColumnMapping("ContactName", "ContactName"), New System.Data.Common.DataColumnMapping("CompanyName", "CompanyName"), New System.Data.Common.DataColumnMapping("CustomerID", "CustomerID"), New System.Data.Common.DataColumnMapping("EmployeeID", "EmployeeID")})})
'
'SqlSelectCommand1
'
Me.SqlSelectCommand1.CommandText = "SELECT Employees.LastName, Employees.FirstName, Customers.ContactName, Customers." & _
"CompanyName, Customers.CustomerID, Employees.EmployeeID FROM Customers CROSS JOI" & _
"N Employees"
Me.SqlSelectCommand1.Connection = Me.cnn
'
'cnn
'
Me.cnn.ConnectionString = "workstation id=DESKTOP;packet size=4096;integrated security=SSPI;data source=desk" & _
"top;persist security info=False;initial catalog=Northwind"
End Sub
Protected WithEvents da1 As System.Data.SqlClient.SqlDataAdapter
Protected WithEvents SqlSelectCommand1 As System.Data.SqlClient.SqlCommand
Protected WithEvents cnn As System.Data.SqlClient.SqlConnection
Protected WithEvents btnEmp As System.Web.UI.WebControls.Button
Protected WithEvents btnCus As System.Web.UI.WebControls.Button
Protected WithEvents lstCus As System.Web.UI.WebControls.ListBox
Protected WithEvents lstemp As System.Web.UI.WebControls.ListBox
'NOTE: The following placeholder declaration is required by the Web Form Designer.
'Do not delete or move it.
Private designerPlaceholderDeclaration As System.Object
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Put user code to initialize the page here
End Sub
Private Sub btnEmp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEmp.Click
Dim ds1 As New DataSet
da1.Fill(ds1, "Employees")
Dim dr As DataRow
For Each dr In ds1.Tables("Employees").Rows
lstemp.Items.Add(dr.Item("FirstName"))
Next
End Sub
Private Sub btnCus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCus.Click
Dim ds1 As New DataSet
da1.Fill(ds1, "Customers")
Dim dr As DataRow
For Each dr In ds1.Tables("Customers").Rows
lstCus.Items.Add(dr.Item("CompanyName"))
Next
End Sub
End Class
