62,051
社区成员
发帖
与我相关
我的任务
分享
Public Function DBFToDataTable(ByVal filepath As String) As System.Data.DataTable
Dim topics As System.Data.DataTable
Dim dsResult As New DataSet
Try
Dim path As String = System.IO.Path.GetDirectoryName(filepath)
Dim FileName As String = System.IO.Path.GetFileName(filepath)
Dim conn As String = "Provider=vfpoledb.1;Data Source=" & path
Dim dbfconn As New OleDb.OleDbConnection()
dbfconn.ConnectionString = conn
Dim cmd As String = "select * from " & FileName
Dim adapter As New OleDbDataAdapter(cmd, dbfconn)
adapter.Fill(dsResult, "jysj")
topics = dsResult.Tables(0)
dsResult.Dispose()
adapter.Dispose()
dbfconn.Close()
dbfconn.Dispose()
Catch ex As Exception
Throw ex
End Try
Return topics
End Function
可能有一行是带删除标记的。
你在VFP中:
Select Count(*) As 记录数 From 20090601014151.DBF Where !Deleted()
看看不多少记录数,如果这样是491,说明有一行是带删除标记的。
可以这样找出带删除标记的记录:
Select * From 20090601014151.DBF Where Deleted()