ListBox Question

[jnichols]

Ok I have my customers set up in SQL and I want to display the AccountNumber, FirstName, LastName, AccountStatus, and AccountBalance.

First off is this even possible to do? Second can i set it up so that when I click the header can I have it sort by column? And last how do I do it?

Thanks in Advanced

Brad Nichols

[jnichols]

* bump *

[taxes]

Hi,

You have probably not received a prompt response because the width of your question makes it difficult to know where to begin. Your posted heading refers to List Boxes. Does that mean you want to display all the information in a listbox?

Do you know how to get the information from the database into a datatable or a dataset?

I'm not too sure what you mean by "can i set it up so that when I click the header can I have it sort by column?" Are you confusing this with the Database ability to do it?

Finally, is it possible that you are thinking of VB Scripting rather than VB.NET?

[jnichols]

Maybe I didn't explain it correctly

What I want to be able to do is click on Customer List from my Main Menu and open another form with a ListBox displaying all the above information from the customer table in the database. I have know idea how to retrieve the data and display it this way. A program that has something like this is Quickbooks. When you click on customer list it displays a listing of all the customers. Please let me know if this is enough info about what I am trying to do.

Brad Nichols

[jnichols]

WindowsApplication23 is very close to what i am looking for. But see attachment. And see if I can do something like this.

[taxes]

Hi,

You have probably already noticed it but look at thread

http://www.vbforums.com/showthread.p...hreadid=291093

[jnichols]

ayan can you repost WindowsApplication23 the one posted is corupt. I d/l it yesterday but can't today. Thanks

[ayan]

here it is j... glad to repost this...

[jnichols]

I don't know but this is what i've got so far. Is there anyway to select the whole record not just the first column? As you may notice there is a textbox on top of the listview which I would like to be able to start typing a name and it automatically select it??

Also is it possible to do this in a listbox or is listview the way to go? And finally can the columns be sorted?

Imports System.Data.SqlClient
Public Class frmCustomerList
    Inherits System.Windows.Forms.Form
 
#Region " Windows Form Designer generated code "
 
    Public Sub New()
        MyBase.New()
 
        'This call is required by the Windows Form Designer.
        InitializeComponent()
 
        'Add any initialization after the InitializeComponent() call
 
    End Sub
 
    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub
 
    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer
 
    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents ColumnHeader1 As System.Windows.Forms.ColumnHeader
    Friend WithEvents ColumnHeader2 As System.Windows.Forms.ColumnHeader
    Friend WithEvents ColumnHeader3 As System.Windows.Forms.ColumnHeader
    Friend WithEvents ColumnHeader4 As System.Windows.Forms.ColumnHeader
    Friend WithEvents ColumnHeader5 As System.Windows.Forms.ColumnHeader
    Friend WithEvents CustView As System.Windows.Forms.ListView
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.TextBox1 = New System.Windows.Forms.TextBox
        Me.Label1 = New System.Windows.Forms.Label
        Me.CustView = New System.Windows.Forms.ListView
        Me.ColumnHeader1 = New System.Windows.Forms.ColumnHeader
        Me.ColumnHeader2 = New System.Windows.Forms.ColumnHeader
        Me.ColumnHeader3 = New System.Windows.Forms.ColumnHeader
        Me.ColumnHeader4 = New System.Windows.Forms.ColumnHeader
        Me.ColumnHeader5 = New System.Windows.Forms.ColumnHeader
        Me.SuspendLayout()
        '
        'TextBox1
        '
        Me.TextBox1.Location = New System.Drawing.Point(88, 16)
        Me.TextBox1.Name = "TextBox1"
        Me.TextBox1.Size = New System.Drawing.Size(248, 20)
        Me.TextBox1.TabIndex = 0
        Me.TextBox1.Text = ""
        '
        'Label1
        '
        Me.Label1.Location = New System.Drawing.Point(12, 16)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(76, 23)
        Me.Label1.TabIndex = 2
        Me.Label1.Text = "Search For:"
        Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        '
        'CustView
        '
        Me.CustView.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader1, Me.ColumnHeader2, Me.ColumnHeader3, Me.ColumnHeader4, Me.ColumnHeader5})
        Me.CustView.Location = New System.Drawing.Point(8, 48)
        Me.CustView.Name = "CustView"
        Me.CustView.Size = New System.Drawing.Size(576, 312)
        Me.CustView.TabIndex = 0
        Me.CustView.View = System.Windows.Forms.View.Details
        '
        'ColumnHeader1
        '
        Me.ColumnHeader1.Text = "Account Number"
        Me.ColumnHeader1.Width = 100
        '
        'ColumnHeader2
        '
        Me.ColumnHeader2.Text = "First Name"
        Me.ColumnHeader2.Width = 100
        '
        'ColumnHeader3
        '
        Me.ColumnHeader3.Text = "Initial"
        Me.ColumnHeader3.Width = 100
        '
        'ColumnHeader4
        '
        Me.ColumnHeader4.Text = "Last Name"
        Me.ColumnHeader4.Width = 100
        '
        'ColumnHeader5
        '
        Me.ColumnHeader5.Text = "City"
        Me.ColumnHeader5.Width = 100
        '
        'frmCustomerList
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.AutoScroll = True
        Me.ClientSize = New System.Drawing.Size(594, 368)
        Me.Controls.Add(Me.CustView)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.TextBox1)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
        Me.MaximizeBox = False
        Me.MinimizeBox = False
        Me.MinimumSize = New System.Drawing.Size(600, 400)
        Me.Name = "frmCustomerList"
        Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "Customer Lookup"
        Me.ResumeLayout(False)
 
    End Sub
 
#End Region
    Private Sub frmCustomerList_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            Dim cn As New SqlConnection("Server=LAPTOP\COMPLETEFMS;Database=CompleteFMS;User ID=sa;Password=test;Trusted_Connection=False")
            cn.Open()
            Dim cmdText As String = "SELECT CustAccountNumber, CustFirstName, CustInitial, CustLastName, CustCity FROM Customers"
            Dim cm As New SqlCommand(cmdText, cn)
 
            Dim dr As SqlDataReader = cm.ExecuteReader
            Dim i As Integer = 0
            While dr.Read
                CustView.Items.Add(dr(0))
                CustView.Items(i).SubItems.Add(dr(1))
                CustView.Items(i).SubItems.Add(dr(2))
                CustView.Items(i).SubItems.Add(dr(3))
                CustView.Items(i).SubItems.Add(dr(4))
                i += 1
            End While
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
End Class