Foxtable(狐表)用户栏目专家坐堂 → 高速导出DBF时出现错误 ??


  共有2895人关注过本帖树形打印复制链接

主题:高速导出DBF时出现错误 ??

帅哥哟,离线,有人找我吗?
tennis
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1433 积分:10763 威望:0 精华:0 注册:2013/3/29 10:23:00
高速导出DBF时出现错误 ??  发帖心情 Post By:2015/7/31 13:53:00 [只看该作者]

如题:

 


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

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/7/31 14:19:00 [只看该作者]

呃,我导出正常,内外数据源都没问题。

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/7/31 14:22:00 [只看该作者]

 你安装了MS Office了吗?
[此贴子已经被作者于2015/7/31 14:22:18编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/7/31 14:23:00 [只看该作者]

 也有可能是你的路径问题,保存到c盘、D盘根目录看看

 回到顶部
帅哥哟,离线,有人找我吗?
tennis
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1433 积分:10763 威望:0 精华:0 注册:2013/3/29 10:23:00
  发帖心情 Post By:2015/7/31 14:35:00 [只看该作者]

一样错误,我的是ms office 2010

 


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

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/7/31 15:06:00 [只看该作者]

 不知道是什么问题,其它形式的导出是否也有问题?

 

 


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/7/31 15:28:00 [只看该作者]

mark 用代码导出dbf格式文件

 

Dim dlg As new SaveFileDialog
dlg.FileName = CurrentTable.Name
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 str As String = ""
        For Each c As Col In CurrentTable.cols
            str &= c.name & " char(16),"
        Next
        output.show(str)
        Dim cmd1 As New System.Data.OleDb.OleDbCommand("Create Table " &  FileSys.GetName(dlg.FileName) & " (" & str.Trim(",") & ")", ole_conn)
        cmd1.ExecuteNonQuery()
       
        For Each r As Row In CurrentTable.rows
            str = ""
            For Each c As Col In CurrentTable.cols
                str &= "'" & r(c.name) & "',"
            next
            Dim cmd2 As New System.Data.OleDb.OleDbCommand("Insert Into " & FileSys.GetName(dlg.FileName) & " values (" & str.Trim(",")  & ")", ole_conn)
            output.show(str)
            cmd2.ExecuteNonQuery()
        next
        msgbox("保存成功")
    Catch ex As Exception
        MessageBox.Show(ex.Message)
    Finally
        ole_conn.Close()
    End Try
   
End If


 回到顶部
帅哥哟,离线,有人找我吗?
tennis
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1433 积分:10763 威望:0 精华:0 注册:2013/3/29 10:23:00
  发帖心情 Post By:2015/7/31 16:13:00 [只看该作者]

还是错误 !!


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


 回到顶部
帅哥哟,离线,有人找我吗?
tennis
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1433 积分:10763 威望:0 精华:0 注册:2013/3/29 10:23:00
  发帖心情 Post By:2015/7/31 16:17:00 [只看该作者]

高速导出-->存档类型 只又excel2007文件及dBASE文件不行


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/7/31 17:02:00 [只看该作者]

 电脑问题。把你的Office卸载重装一次看看。

 

 


 回到顶部