vbnet 讀取 dbf、Excel、Access

引用來源
--

Imports System.Data.OleDb
Public Class Form1Class Form1
    Dim dbfconn As OleDb.OleDbConnection = New OleDb.OleDbConnection
    Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'dbf文件操作
        'http://www.connectionstrings.com/?carrier=dbffoxpro
        Dim path, FileName As String
        Me.OpenFileDialog1.Title = "选择dbf文件"
        Me.OpenFileDialog1.Filter = "dbf文件|*.dbf"
        If Me.OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            path = System.IO.Path.GetDirectoryName(OpenFileDialog1.FileName)
            FileName = System.IO.Path.GetFileName(OpenFileDialog1.FileName)

            FileName = Microsoft.VisualBasic.Left(FileName.ToUpper, FileName.Length - 4)


            Dim conn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & path & ";Extended Properties=dBASE IV;User ID=Admin;Password=;"

            'Dim conn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e: mp;Extended Properties=dBASE IV;User ID=Admin;Password=;"
            Dim dbfconn As OleDb.OleDbConnection = New OleDb.OleDbConnection
            dbfconn.ConnectionString = conn

            'Dim cmd As String = "select * from w"
            Dim cmd As String = "select * from " & FileName
            Dim adapter As New OleDbDataAdapter(cmd, dbfconn)
            Dim topics As New DataSet
            adapter.Fill(topics)
            Me.DataGridView1.DataSource = topics.Tables(0)
            Me.DataGridView1.Refresh()
        End If


    End Sub

    Private Sub open_excel_Click()Sub open_excel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles open_excel.Click
        Dim path, FileName, FileExname As String
        Dim conn As String
        Me.OpenFileDialog1.Title = "选择Excel文件"
        Me.OpenFileDialog1.Filter = "Excel 文件|*.xls*"
        If Me.OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            path = System.IO.Path.GetFullPath(OpenFileDialog1.FileName)
            FileName = System.IO.Path.GetFileName(OpenFileDialog1.FileName)
            FileExname = System.IO.Path.GetExtension(OpenFileDialog1.FileName).ToUpper
            FileName = Microsoft.VisualBasic.Left(FileName.ToUpper, FileName.Length - 4)

            If FileExname = "XLSX" Then

                conn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & path & ";Extended Properties='Excel 8.0;HDR=Yes;IMEX=1';"
            Else
                conn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & path & ";Extended Properties='Excel 12.0;HDR=YES';"

            End If


            dbfconn.ConnectionString = conn
            '获取数据表列表
       Dim table_list As Data.DataTable = GetSchemaTable(dbfconn, "TABLE")

            '在combbox列表控件中显示数据库中包含的数据表
            
Me.cb_table_list.DataSource = table_list.DefaultView
            Me.cb_table_list.ValueMember = "TABLE_NAME"
            Me.cb_table_list.DisplayMember = "TABLE_NAME"

        End If
    End Sub


    Private Function GetSchemaTable()Function GetSchemaTable(ByVal connection As Data.OleDb.OleDbConnection, ByVal Type As String)
        ' 获取数据表列表
        'Type 有："TABLE,VIEW,ACCESS TABLE,SYSTEM TABLE",

        Type = Type.ToUpper
        connection.Open()
        Dim table_list As Data.DataTable
        table_list = connection.GetOleDbSchemaTable(Data.OleDb.OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, Type})
        connection.Close()
        Return table_list
    End Function

    Private Sub table_list_SelectedIndexChanged()Sub table_list_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cb_table_list.SelectedIndexChanged
        ''获取数据表的内容
        'MsgBox(Me.cb_table_list.SelectedValue)
        If Me.cb_table_list.SelectedValue.ToString <> "System.Data.DataRowView" Then
            Dim cmd As String = "select * from [" & Me.cb_table_list.SelectedValue.ToString & "]"
            Dim adapter As New OleDbDataAdapter(cmd, dbfconn)
            Dim topics As New DataSet
            adapter.Fill(topics)
            Me.DataGridView1.DataSource = topics.Tables(0)
            Me.DataGridView1.Refresh()
        End If

    End Sub

    Private Sub Open_Access_Click()Sub Open_Access_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Open_Access.Click
 
        Dim path, FileName, FileExname As String
        Dim conn As String
        Me.OpenFileDialog1.Title = "选择Access文件"
        Me.OpenFileDialog1.Filter = "Access 文件|*.mdb|Access 2007 文件|*.accdb"
        If Me.OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            path = System.IO.Path.GetFullPath(OpenFileDialog1.FileName)
            FileName = System.IO.Path.GetFileName(OpenFileDialog1.FileName)
            FileExname = System.IO.Path.GetExtension(OpenFileDialog1.FileName).ToUpper
            FileName = Microsoft.VisualBasic.Left(FileName.ToUpper, FileName.Length - 4)

            If FileExname = "MDB" Then
'access 97 -2003  连接字符串
                conn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & path & ";Jet OLEDB:Database Password=;"
            Else
'access 2007 连接字符串
                conn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & path & ";Jet OLEDB:Database Password=MyDbPassword;"

            End If
            dbfconn.ConnectionString = conn
            '获取数据表列表
            Dim table_list As Data.DataTable , = GetSchemaTable(dbfconn, "TABLE")

            Me.cb_table_list.DataSource = table_list.DefaultView
            Me.cb_table_list.ValueMember = "TABLE_NAME"
            Me.cb_table_list.DisplayMember = "TABLE_NAME"
        End If


    End Sub
End Class