文章详情

短信预约-IT技能 免费直播动态提醒

请输入下面的图形验证码

提交验证

短信预约提醒成功

VB.NET中怎么操作dbf文件

2023-06-17 18:14

关注

本篇文章给大家分享的是有关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文件,小编相信有部分知识点可能是我们日常工作会见到或用到的。希望你能通过这篇文章学到更多知识。更多详情敬请关注编程网行业资讯频道。

阅读原文内容投诉

免责声明:

① 本站未注明“稿件来源”的信息均来自网络整理。其文字、图片和音视频稿件的所属权归原作者所有。本站收集整理出于非商业性的教育和科研之目的,并不意味着本站赞同其观点或证实其内容的真实性。仅作为临时的测试数据,供内部测试之用。本站并未授权任何人以任何方式主动获取本站任何信息。

② 本站未注明“稿件来源”的临时测试数据将在测试完成后最终做删除处理。有问题或投稿请发送至: 邮箱/279061341@qq.com QQ/279061341

软考中级精品资料免费领

  • 历年真题答案解析
  • 备考技巧名师总结
  • 高频考点精准押题
  • 2024年上半年信息系统项目管理师第二批次真题及答案解析(完整版)

    难度     813人已做
    查看
  • 【考后总结】2024年5月26日信息系统项目管理师第2批次考情分析

    难度     354人已做
    查看
  • 【考后总结】2024年5月25日信息系统项目管理师第1批次考情分析

    难度     318人已做
    查看
  • 2024年上半年软考高项第一、二批次真题考点汇总(完整版)

    难度     435人已做
    查看
  • 2024年上半年系统架构设计师考试综合知识真题

    难度     224人已做
    查看

相关文章

发现更多好内容

猜你喜欢

AI推送时光机
位置:首页-资讯-后端开发
咦!没有更多了?去看看其它编程学习网 内容吧
首页课程
资料下载
问答资讯