2012年5月25日 星期五

vb.net 輸出 dbf 並壓縮


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

沒有留言:

張貼留言