日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

 VB.NET作為一款功能比較全面的編程語言，幫助開發(fā)人員實現(xiàn)了許多復(fù)雜的功能需求。比如對各種類型文件的操作等等。下面我們就一起來看看關(guān)于VB.NET操作dbf文件的相關(guān)代碼，來對這一知識點進行詳細解讀。#t#

創(chuàng)新互聯(lián)自成立以來，一直致力于為企業(yè)提供從網(wǎng)站策劃、網(wǎng)站設(shè)計、成都網(wǎng)站制作、成都網(wǎng)站設(shè)計、電子商務(wù)、網(wǎng)站推廣、網(wǎng)站優(yōu)化到為企業(yè)提供個性化軟件開發(fā)等基于互聯(lián)網(wǎng)的全面整合營銷服務(wù)。公司擁有豐富的網(wǎng)站建設(shè)和互聯(lián)網(wǎng)應(yīng)用系統(tǒng)開發(fā)管理經(jīng)驗、成熟的應(yīng)用系統(tǒng)解決方案、優(yōu)秀的網(wǎng)站開發(fā)工程師團隊及專業(yè)的網(wǎng)站設(shè)計師團隊。

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文件相關(guān)操作技巧就為大家介紹到這里。

文章名稱：如何使用VB.NET操作dbf文件
當(dāng)前路徑：http://m.5511xx.com/article/cdssoid.html