如何使用VB.NET操作dbf文件
作者：佚名
剛剛基礎VB.NET語言的朋友可能會對這款語言的各種功能充滿好奇感。首先就讓我們通過對VB.NET操作dbf文件的解讀來對此進行一個詳盡的了解。
VB.NET作為一款功能比較全面的編程語言，幫助開發人員實現了許多復雜的功能需求。比如對各種類型文件的操作等等。下面我們就一起來看看關于VB.NET操作dbf文件的相關代碼，來對這一知識點進行詳細解讀。#t#
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 FileFileStream = File.Open
Read("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
VB.NET操作dbf文件相關操作技巧就為大家介紹到這里。
責任編輯：曹凱
來源：
博客園
