• 如何使用VB.NET操作dbf文件

刚刚基础VB.NET语言的朋友可能会对这款语言的各种功能充满好奇感。首先就让我们通过对VB.NET操作dbf文件的解读来对此进行一个详尽的了解。

 VB.NET作为一款功能比较全面的编程语言，帮助开发人员实现了许多复杂的功能需求。比如对各种类型文件的操作等等。下面我们就一起来看看关于VB.NET操作dbf文件的相关代码，来对这一知识点进行详细解读。

• VB.NET获取硬盘信息操作方式总结概览
• VB.NET序列化实现方式简单介绍
• VB.NET操作注册表轻松上手
• VB.NET修饰符详细概念总结
• VB.NET调用IE几种常见方法介绍

 

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文件相关操作技巧就为大家介绍到这里。