Foxtable(狐表)用户栏目专家坐堂 → [求助]Exporter导出数据到mdb文件怎么[_Identify]列丢失了


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

主题:[求助]Exporter导出数据到mdb文件怎么[_Identify]列丢失了

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


加好友 发短信
等级:幼狐 帖子:141 积分:1131 威望:0 精华:0 注册:2014/3/25 13:14:00
[求助]Exporter导出数据到mdb文件怎么[_Identify]列丢失了  发帖心情 Post By:2018/5/19 16:29:00 [只看该作者]

导出部分数据到MDB文件给另一个软件用,但是导出的数据表没有主键

因为每天要导出所以不要手工设置主键,要自动,或者导出的时候怎么设置导出表的主键。

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110602 积分:562912 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/5/19 16:42:00 [只看该作者]

1、用toaccess把表结构导出到一个mdb数据库图片点击可在新窗口打开查看
2、把这个数据库作为数据源加进来,或者动态添加数据源
3、需要导出的时候,把这个数据源的表清空,然后然后通过filler填充数据
4、再把这个mdb数据库复制给其它软件

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


加好友 发短信
等级:幼狐 帖子:141 积分:1131 威望:0 精华:0 注册:2014/3/25 13:14:00
  发帖心情 Post By:2018/5/20 10:01:00 [只看该作者]

用代码怎么写??

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


加好友 发短信
等级:幼狐 帖子:141 积分:1131 威望:0 精华:0 注册:2014/3/25 13:14:00
  发帖心情 Post By:2018/5/20 16:53:00 [只看该作者]

以下是引用有点蓝在2018/5/19 16:42:00的发言:
1、用toaccess把表结构导出到一个mdb数据库图片点击可在新窗口打开查看
2、把这个数据库作为数据源加进来,或者动态添加数据源
3、需要导出的时候,把这个数据源的表清空,然后然后通过filler填充数据
4、再把这个mdb数据库复制给其它软件




用代码怎么写??

[此贴子已经被作者于2018/5/20 16:54:00编辑过]

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/5/20 21:20:00 [只看该作者]

参考代码

 

Dim t As Table = CurrentTable
Dim str_oleConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\test.mdb;Persist Security Info=False"
Dim ole_conn As New System.Data.OleDb.OleDbConnection(str_oleConn)
Try
    ole_conn.Open()
    Dim str As String = "_Identify AUTOINCREMENT PRIMARY KEY,"
    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 " &  t.name & " (" & str.Trim(",") & ")", ole_conn)
    cmd1.ExecuteNonQuery()
   
    For Each r As Row In t.rows
        str = "'" & r("_Identify") & "',"
        For Each c As Col In t.cols
            str &= "'" & r(c.name) & "',"
        Next
        Dim cmd2 As New System.Data.OleDb.OleDbCommand("Insert Into " & t.name & " 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

 


 回到顶部