以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]项目发布后合并dBase文件报错  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=94700)
--  作者：黄训良
--  发布时间：2016/12/29 20:58:00
--  [求助]项目发布后合并dBase文件报错
项目发布后合并dBase文件报错，发布前能正常合并，代码如下：
Dim mg As New Merger
mg.SourcePath = "c:\\data\\" \'指定数据文件所在目录
mg.Format = "dbase" \'指定格式
mg.SourceTableName = "订单" \'指定要合并的dbase文件，无需扩展名
mg.DataTableName = "订单" \'指定接收数据的表
mg.Merge() \'开始合并

图片点击可在新窗口打开查看此主题相关图片如下：捕获.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2016/12/29 20:59:16编辑过]
--  作者：有点色
--  发布时间：2016/12/29 23:36:00
--  

只能导入低版本2.0的dbf文件，高版本不行。

 

你可以保存成低版本，或者保存成access、excel之类的再导入
--  作者：黄训良
--  发布时间：2017/1/2 23:03:00
--  
请问：导出低版本的参数或方法。
--  作者：有点色
--  发布时间：2017/1/3 9:50:00
--  
以下是引用黄训良在2017/1/2 23:03:00的发言：
请问：导出低版本的参数或方法。

 

在 vfp 命令窗口执行  COPY TO 新表名 TYPE  fox2
--  作者：黄训良
--  发布时间：2017/1/5 11:47:00
--  
未申明copy？
--  作者：有点色
--  发布时间：2017/1/5 11:49:00
--  
以下是引用黄训良在2017/1/5 11:47:00的发言：
未申明copy？

 

用vfp，打开dbase文件的工具，在其命令窗口执行代码，而不是在foxtable里执行。
--  作者：黄训良
--  发布时间：2017/1/5 11:57:00
--  
明白了！谢谢。
--  作者：有点色
--  发布时间：2017/1/5 12:01:00
--  

mark 导入dbf文件

 

你直接写代码导入也可以

 

Dim dlg As new openFileDialog
If dlg.ShowDialog = DialogResult.OK Then
    Dim str_oleConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FileSys.GetParentPath(dlg.FileName)  & ";Extended Properties=dBASE IV;"
    Dim ole_conn As New System.Data.OleDb.OleDbConnection(str_oleConn)
    Try
        ole_conn.Open()
       
        Dim cmd As New System.Data.OleDb.OleDbCommand("select * from " & FileSys.GetName(dlg.FileName), ole_conn)
       
        Dim reader As object = cmd.ExecuteReader()
       
        Do While reader.Read()
            If reader(0).Gettype.Name <> "DBNull" Then
                output.show(reader(0))
            Else
                output.show("空值")
            End If
           
        Loop
       
        msgbox("查询成功")
    Catch ex As Exception
        MessageBox.Show(ex.Message)
    Finally
        ole_conn.Close()
    End Try   
End If

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=72525&skin=0