VB.NET作为一款功能比较全面的编程语言,帮助开发人员实现了许多复杂的功能需求。比如对各种类型文件的操作等等。下面我们就一起来看看关于VB.NET操作dbf文件的相关代码,来对这一知识点进行详细解读。#t#
创新互联自成立以来,一直致力于为企业提供从网站策划、网站设计、成都网站制作、成都网站设计、电子商务、网站推广、网站优化到为企业提供个性化软件开发等基于互联网的全面整合营销服务。公司拥有丰富的网站建设和互联网应用系统开发管理经验、成熟的应用系统解决方案、优秀的网站开发工程师团队及专业的网站设计师团队。
VB.NET操作dbf文件代码示例:
- 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。内容未经允许不得转载,或转载时需注明来源: 创新互联