dataenums.vb

来自「wrox出版社的另一套经典的VB2005数据库编程学习书籍,收集了书中源码,郑重」· VB 代码 · 共 30 行

Option Strict On
Option Explicit On

Imports System.Data
Imports System.Data.Sql
Imports System.Data.Common

Public Class DataEnums
    Private Sub frmDataEnums_Load(ByVal sender As System.Object, _
     ByVal e As System.EventArgs) Handles MyBase.Load
        'Get and load list of SQL Server instances
        Dim dtServers As DataTable = SqlDataSourceEnumerator.Instance.GetDataSources
        With dgvServers
            .DataSource = dtServers
            .AutoGenerateColumns = True
            .RowHeadersVisible = False
            .BorderStyle = BorderStyle.None
        End With
        'Get and load list of .NET data providers installed
        Dim dtProviders As DataTable = DbProviderFactories.GetFactoryClasses()
        With dgvProviders
            .DataSource = dtProviders
            .AutoGenerateColumns = True
            .RowHeadersVisible = False
            '.RowTemplate.Height = 22
            .BorderStyle = BorderStyle.None
        End With
    End Sub
End Class