VB.NET中怎么操作dbf文件

本篇文章给大家分享的是有关VB.NET中怎么操作dbf文件，小编觉得挺实用的，因此分享给大家学习，希望大家阅读完这篇文章后可以有所收获，话不多说，跟着小编一起来看看吧。

成都创新互联公司主营青龙网站建设的网络公司,主营网站建设方案,成都app开发,青龙h5小程序设计搭建,青龙网站营销推广欢迎青龙等地区企业咨询

VB.NET操作dbf文件代码示例：

1. Imports System.
   Data.OleDb  

2. Imports Lion.IO.
   SharpZIP.Zip  

3. Imports Lion.IO.
   SharpZIP.Checksums  

4. Imports System.IO  

5. Module Module1  

6. Sub Main()  

7. '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文件，小编相信有部分知识点可能是我们日常工作会见到或用到的。希望你能通过这篇文章学到更多知识。更多详情敬请关注创新互联行业资讯频道。