MyTetra Share
Делитесь знаниями!
Подключение к Excel как к БД
25.03.2018
00:24
Текстовые метки: VB,
Раздел: VB

Подключение к Excel как к БД

    Dim tbl As DataTable

    Dim da As New OleDb.OleDbDataAdapter

 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim fname As String = "C:\1.xls"

        Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & fName & ";Extended Properties=""Excel 8.0;HDR=NO;IMEX=1""")

        cn.Open()

        da.SelectCommand = New OleDb.OleDbCommand("Select [F1] from [Лист3$]", cn)

        tbl = New DataTable

        da.Fill(tbl)

 

        'DataGridView1.DataSource = tbl

        ListBox1.DisplayMember = "F1"

        ListBox1.DataSource = tbl

 

    End Sub

Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования