VB.Net by API/System.Windows.Forms/DataGridView

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


<source lang="vbnet"> Imports System.Data.OleDb Imports System.Data Imports System.Windows.Forms public class LoadAccessDataToDataView

  public Shared Sub Main
       Application.Run(New Form1)
  End Sub

End class Public Class Form1

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim ConnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=MyMDB.mdb"
       Dim SQLString As String = "SELECT * FROM TestDB"
       Dim OleDBConn1 As System.Data.OleDb.OleDbConnection = New System.Data.OleDb.OleDbConnection(ConnString)
       Dim DataSet1 As New DataSet()
       Dim OleDbDataAdapter1 As System.Data.OleDb.OleDbDataAdapter = New System.Data.OleDb.OleDbDataAdapter(SQLString, OleDBConn1)
       OleDbDataAdapter1.Fill(DataSet1, "TestDB")
       DataGridView1.DataSource = DataSet1.Tables("TestDB")
   End Sub

End Class

<Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _ Partial Class Form1

   Inherits System.Windows.Forms.Form
   "Form overrides dispose to clean up the component list.
   <System.Diagnostics.DebuggerNonUserCode()> _
   Protected Overrides Sub Dispose(ByVal disposing As Boolean)
       If disposing AndAlso components IsNot Nothing Then
       End If
   End Sub
   "Required by the Windows Form Designer
   Private components As System.ruponentModel.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.
   <System.Diagnostics.DebuggerStepThrough()> _
   Private Sub InitializeComponent()
       Me.Button1 = New System.Windows.Forms.Button
       Me.DataGridView1 = New System.Windows.Forms.DataGridView
       CType(Me.DataGridView1, System.ruponentModel.ISupportInitialize).BeginInit()
       Me.Button1.Location = New System.Drawing.Point(35, 289)
       Me.Button1.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
       Me.Button1.Name = "Button1"
       Me.Button1.Size = New System.Drawing.Size(171, 29)
       Me.Button1.TabIndex = 0
       Me.Button1.Text = "Read Access"
       Me.Button1.UseVisualStyleBackColor = True
       Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
       Me.DataGridView1.Location = New System.Drawing.Point(16, 15)
       Me.DataGridView1.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
       Me.DataGridView1.Name = "DataGridView1"
       Me.DataGridView1.RowTemplate.Height = 23
       Me.DataGridView1.Size = New System.Drawing.Size(503, 266)
       Me.DataGridView1.TabIndex = 1
       Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 15.0!)
       Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
       Me.ClientSize = New System.Drawing.Size(535, 332)
       Me.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
       CType(Me.DataGridView1, System.ruponentModel.ISupportInitialize).EndInit()
   End Sub
   Friend WithEvents Button1 As System.Windows.Forms.Button
   Friend WithEvents DataGridView1 As System.Windows.Forms.DataGridView

End Class