温馨提示×

温馨提示×

您好,登录后才能下订单哦!

密码登录×
登录注册×
其他方式登录
点击 登录注册 即表示同意《亿速云用户服务条款》

VB.NET中怎么操作dbf文件

发布时间:2021-07-15 11:34:05 来源:亿速云 阅读:408 作者:Leah 栏目:编程语言

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

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 

  1. Dim cn1 As New OleDbConnection( _  

  2. "Provider=VFPOLEDB.1;Data 
    Source=C:\Temp\;")  

  3. cn1.Open()  

  4. '-- Make some VFP data to 
    play with  

  5. Dim cmd1 As New OleDbCommand
    ( _  

  6. "Create Table TestDBF (Field1 
    I, Field2 C(10))", cn1)  

  7. Dim cmd2 As New OleDbCommand( _  

  8. "Insert Into TestDBF Values 
    (1, '行贿)", cn1)  

  9. Dim cmd3 As New OleDbCommand( _  

  10. "Insert Into TestDBF Values
     (2, '受贿')", cn1)  

  11. cmd1.ExecuteNonQuery()  

  12. cmd2.ExecuteNonQuery()  

  13. cmd3.ExecuteNonQuery()  

  14. cn1.Close() 

  1. Dim cn2 As New OleDbConnection( _  

  2. "Provider=VFPOLEDB.1;Data Source=C:\Temp\;")  

  3. cn2.Open()  

  4. Dim cmd4 As New OleDbCommand( _  

  5. "Select * From TestDBF", cn2)  

  6. Dim da1 As New OleDbDataAdapter(cmd4)  

  7. Dim ds1 As New DataSet  

  8. Dim dr1 As DataRow  

  9. da1.Fill(ds1)  

  10. For Each dr1 In ds1.Tables(0).Rows  

  11. Console.WriteLine(dr1.Item(1).ToString())  

  12. Next  

  13. cn2.Close()  

  14. Dim crc As New Crc32  

  15. Dim s As New ZipOutputStream(System.
    IO.File.Create("c:\temp\dbf.zip"))  

  16. s.SetLevel(6)  

  17. Dim fs As FileFileStream = File.Open
    Read("c:\temp\testdbf.dbf")  

  18. Dim b(fs.Length - 1) As Byte'c#中的
    语句为byte[] b = byte[fs.Length ];要注意这点  

  19. fs.Read(b, 0, b.Length)  

  20. Dim entry As ZipEntry = New ZipEntry
    ("c:\temp\testdbf.dbf")  

  21. entry.DateTime = DateTime.Now  

  22. entry.Size = fs.Length  

  23. fs.Close()  

  24. crc.Reset()  

  25. crc.Update(b)  

  26. entry.Crc = crc.Value  

  27. s.PutNextEntry(entry)  

  28. s.Write(b, 0, b.Length)  

  29. s.Finish()  

  30. s.Close()  

  31. Console.ReadLine()  

  32. 'Catch e As Exception  

  33. 'MsgBox(e.ToString())  

  34. 'End Try  

  35. End Sub  

  36. End Module 

以上就是VB.NET中怎么操作dbf文件,小编相信有部分知识点可能是我们日常工作会见到或用到的。希望你能通过这篇文章学到更多知识。更多详情敬请关注亿速云行业资讯频道。

向AI问一下细节

免责声明:本站发布的内容(图片、视频和文字)以原创、转载和分享为主,文章观点不代表本网站立场,如果涉及侵权请联系站长邮箱:is@yisu.com进行举报,并提供相关证据,一经查实,将立刻删除涉嫌侵权内容。

AI