vb.net读取dbf、Excel、Access数据文件

原创 2007年10月09日 15:30:00

看到网上很多朋友在查找使用VB.net如何对DBF、XLS 等常用数据文件进行访问,特别写了个小程序,来演示一下。

由于对具体数据文件的操作已经被封装到了oledb中,所以对数据文件的操作在vb。net的代码是一样的,学要我们做的就是为oldb连接字符串设置为正确连接字符串就行了。有个网站http://www.connectionstrings.com/提供了大量的关于连接字符串的信息,大家可以参考。并不是设置好链接字符串就可以访问所有的数据文件,可能还需要安装数据访问驱动程序。

本实例支持dbf文件、Excel、Access(含2007版)文件的支持

实例界面:实例界面

下面就是实例的代码:

 

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() {NothingNothingNothing, 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

用c#打开.DBF文件 读取内容到DataTable或DataSet中

转自:http://www.cnblogs.com/weekzero/archive/2009/10/13/1582793.html /* 现在开发的很多软件需要和一些老的系统进行数据...
  • u011871201
  • u011871201
  • 2016年07月14日 18:53
  • 1992

在VS2013平台下,用VB.net 连接Access数据库

从开始学习计算机,我们使用的一直是SQL数据库。这次接触了Access数据库,我将从Access创建到连接向大家分享一下我在Access数据库中的收获。...
  • WKX18330698534
  • WKX18330698534
  • 2016年04月17日 20:41
  • 4786

VB.NET操作ACCESS数据库读取存入图片

一、准备工作     在ACCESS数据库中,将字段声明为 OLE链接 类型 二、将图片框中图片转化成二进制数组的方法         Dim MyStream As New System.IO....
  • aocshallo
  • aocshallo
  • 2014年02月28日 00:53
  • 2547

用Odbc读取dbf文件可能存在的问题且不易被发现

近几天新建一个项目做测试,
  • johnsany
  • johnsany
  • 2014年05月19日 10:13
  • 1063

javadbf 读取dbf文件 支持包括memo的多种类型

下面是读取dbf中各种数据类型,包括memo类型的部分源码 public Comparable[] nextRecord(Comparable[] recordObjects)  throws D...
  • boriswu
  • boriswu
  • 2013年05月23日 17:15
  • 951

用JavaDBF操作(读、写)DBF文件

最近的一个项目需要动态生成DBF文件,用到JavaDBF,简单介绍一下官方网站:http://javadbf.sarovar.org/官方英文指南:http://sarovar.org/docman/...
  • xzknet
  • xzknet
  • 2014年01月09日 17:25
  • 10824

VB.NET 读取写入XML文件

Public Class CSysXML Dim mXmlDoc As New System.Xml.XmlDocument Public XmlFile As String ...
  • wang19850219
  • wang19850219
  • 2014年11月27日 11:14
  • 3348

VB.net数据库编程(01):简单的入门实例--连接到Access文件

先来一个简单的实例。 VB.net 2012 SQl server 2012 Access文件:http://download.csdn.net/detail/dzweather...
  • u014366427
  • u014366427
  • 2014年03月26日 11:08
  • 1442

Java 读取dbf文件

Java读取dbf文件,
  • changerzhuo_319
  • changerzhuo_319
  • 2016年12月01日 20:01
  • 1430

VB.net学习笔记(二十一)XML流的读写

System.Xml名称空间支持XML的处理,为了生成和浏览XML文档,使用两种访问方式: 一、读写方式     (一)基于流的方式     特点:速度快,可连续读写,缺点不能作为节点、元素等进...
  • dzweather
  • dzweather
  • 2016年05月22日 12:07
  • 3895
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:vb.net读取dbf、Excel、Access数据文件
举报原因:
原因补充:

(最多只允许输入30个字)