vb.net输出dbf文件并压缩示例

最新推荐文章于 2021-01-09 11:08:33 发布

第八个猴子

最新推荐文章于 2021-01-09 11:08:33 发布

阅读量582

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/wanddy/archive/2007/10/19/930720.html

本文介绍了一种使用Visual Basic .NET中VFP OLEDB提供程序和SharpZIP库创建、读取DBF文件并将其压缩为ZIP格式的方法。通过实例展示了如何建立数据库连接、创建和填充DBF表、读取表数据以及计算CRC32校验和。

Imports System.Data.OleDb
Imports Lion.IO.SharpZIP.Zip
Imports Lion.IO.SharpZIP.Checksums
Imports System.IO
Module Module1

Sub Main()
'Try

        Dim cn1 As New OleDbConnection( _
            "Provider=VFPOLEDB.1;Data Source=C:\Temp\;")
        cn1.Open()
        '-- Make some VFP data to play with
        Dim cmd1 As New OleDbCommand( _
            "Create Table TestDBF (Field1 I, Field2 C(10))", cn1)
        Dim cmd2 As New OleDbCommand( _
            "Insert Into TestDBF Values (1, '行贿)", cn1)
        Dim cmd3 As New OleDbCommand( _
            "Insert Into TestDBF Values (2, '受贿')", cn1)
        cmd1.ExecuteNonQuery()
        cmd2.ExecuteNonQuery()
        cmd3.ExecuteNonQuery()
        cn1.Close()

        Dim cn2 As New OleDbConnection( _
            "Provider=VFPOLEDB.1;Data Source=C:\Temp\;")
        cn2.Open()

        Dim cmd4 As New OleDbCommand( _
            "Select * From TestDBF", cn2)
        Dim da1 As New OleDbDataAdapter(cmd4)
        Dim ds1 As New DataSet
        Dim dr1 As DataRow
        da1.Fill(ds1)
        For Each dr1 In ds1.Tables(0).Rows
            Console.WriteLine(dr1.Item(1).ToString())
        Next

        cn2.Close()
        Dim crc As New Crc32
        Dim s As New ZipOutputStream(System.IO.File.Create("c:\temp\dbf.zip"))
        s.SetLevel(6)
        Dim fs As FileStream = File.OpenRead("c:\temp\testdbf.dbf")
        Dim b(fs.Length - 1) As Byte'c#中的语句为byte[] b = byte[fs.Length ];要注意这点

        fs.Read(b, 0, b.Length)
        Dim entry As ZipEntry = New ZipEntry("c:\temp\testdbf.dbf")
        entry.DateTime = DateTime.Now
        entry.Size = fs.Length
        fs.Close()

        crc.Reset()
        crc.Update(b)
        entry.Crc = crc.Value
        s.PutNextEntry(entry)
        s.Write(b, 0, b.Length)
        s.Finish()
        s.Close()
        Console.ReadLine()
        'Catch e As Exception
        'MsgBox(e.ToString())
        'End Try
    End Sub

End Module

转载于:https://www.cnblogs.com/wanddy/archive/2007/10/19/930720.html