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

本文名称：如何使用VB.NET操作dbf文件
URL网址：http://www.shufengxianlan.com/qtweb/news33/553283.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源：创新互联

猜你还喜欢下面的内容