VB.Net/Database ADO.net/Database ListBox

Материал из VB Эксперт
Перейти к: навигация, поиск

Read Access Data table and store data in ListBox

<source lang="vbnet">

Imports System
Imports System.Drawing
Imports System.Collections
Imports System.ruponentModel
Imports System.Windows.Forms
Imports System.Data
Imports System.Data.OleDb

Public Class MainClass

   Shared Sub Main(  )
       Application.Run(New ADOForm1() )
   End Sub
  

End Class

 Public Class ADOForm1
    Inherits System.Windows.Forms.Form
    Private components As System.ruponentModel.Container
    Private lbEmployees As System.Windows.Forms.ListBox
    Public Sub New(  )
        InitializeComponent(  )
        Dim connectionString As String = _
            "provider=Microsoft.JET.OLEDB.4.0; " & _
             "data source = Employee.mdb"
        Dim commandString As String = _
          "Select FirstName, LastName from Employee"
        Dim myDataAdapter As New OleDbDataAdapter( _
          commandString, connectionString)
        Dim myDataSet As New DataSet(  )
        myDataAdapter.Fill(myDataSet, "Employee")
        Dim myDataTable As DataTable = myDataSet.Tables(0)
        Dim tempRow As DataRow
        For Each tempRow In myDataTable.Rows
            lbEmployees.Items.Add((tempRow("FirstName") & _
              " (" & tempRow("LastName") & ")"))
        Next
    End Sub "New
    Private Sub InitializeComponent(  )
        Me.ruponents = New System.ruponentModel.Container(  )
        Me.lbEmployees = New System.Windows.Forms.ListBox(  )
        lbEmployees.Location = New System.Drawing.Point(48, 24)
        lbEmployees.Size = New System.Drawing.Size(368, 160)
        lbEmployees.TabIndex = 0
        Me.Text = "ADOFrm1"
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(464, 273)
        Me.Controls.Add(lbEmployees)
    End Sub 
End Class 
          
      </source>

<A href="http://www.vbex.ru/Code/VBDownload/Employee.zip">Employee.zip( 7 k)</a>


Store Database data into a ListBox

<source lang="vbnet">

Imports System
Imports System.Drawing
Imports System.Collections
Imports System.ruponentModel
Imports System.Windows.Forms
Imports System.Data
Imports System.Data.SqlClient

Public Class MainClass

   Shared Sub Main(  )
       Application.Run(New ADOForm1() )
   End Sub
  

End Class

    Public Class ADOForm1
    Inherits System.Windows.Forms.Form
    Private components As System.ruponentModel.Container
    Private lbEmployees As System.Windows.Forms.ListBox
    Public Sub New(  )
        InitializeComponent(  )
        Dim connectionString As String ="server=(local)\SQLEXPRESS;" & _
         "integrated security=sspi;database=MyDatabase"
        Dim commandString As String = _
          "Select FirstName, LastName from Employee"
        Dim myDataAdapter As New SqlDataAdapter( _
          commandString, connectionString)
        Dim myDataSet As New DataSet(  )
        myDataAdapter.Fill(myDataSet, "Employee")
        Dim myDataTable As DataTable = myDataSet.Tables(0)
        Dim tempRow As DataRow
        For Each tempRow In myDataTable.Rows
            lbEmployees.Items.Add((tempRow("FirstName") & _
              " (" & tempRow("LastName") & ")"))
        Next
    End Sub "New
    Private Sub InitializeComponent(  )
        Me.ruponents = New System.ruponentModel.Container(  )
        Me.lbEmployees = New System.Windows.Forms.ListBox(  )
        lbEmployees.Location = New System.Drawing.Point(48, 24)
        lbEmployees.Size = New System.Drawing.Size(368, 160)
        lbEmployees.TabIndex = 0
        Me.Text = "ADOFrm1"
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(464, 273)
        Me.Controls.Add(lbEmployees)
    End Sub "InitializeComponent
End Class "ADOForm1
          
      </source>