连接Excel数据源并查询

最新推荐文章于 2024-01-22 17:25:22 发布

原创最新推荐文章于 2024-01-22 17:25:22 发布 · 1.3k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#excel #dataset #button #properties #path #string

Office Development 同时被 3 个专栏收录

134 篇文章

订阅专栏

Excel 2010

25 篇文章

订阅专栏

VB.NET

14 篇文章

订阅专栏

本文介绍如何使用VB.NET及OleDb连接97-2003版本的Excel文件并进行数据查询。通过示例代码展示了打开文件对话框选择Excel文件、建立连接字符串、执行SQL查询并获取结果的过程。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Excel表必须是97-2003格式的。否则无法查询。

Imports System.Data.OleDb

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As  _
                              System.EventArgs) Handles Button1.Click
        Dim ConnectiongString As String
        Dim Path As String
        Dim Dialgo As OpenFileDialog = New OpenFileDialog
        Dim Connection As OleDbConnection = New OleDbConnection
        Dim adapter As OleDbDataAdapter

        Dialgo.Filter = "Excel Document (*.xls)|*.xls"
        Dialgo.ShowDialog()
        Path = Dialgo.FileName
        ConnectiongString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
            + Path + ";Extended Properties='Excel 8.0;HDR=no;IMEX=0'"
        Connection.ConnectionString = ConnectiongString
        Connection.Open()
        adapter = New OleDbDataAdapter("SELECT * FROM [Sheet1$] Where B = 4",
                                       Connection)
        adapter.Fill(DataSet1)
        MsgBox(DataSet1.Tables(0).Rows(0).Item(0))
        Connection.Close()
    End Sub
End Class