以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  保存数据到服务器的出错信息  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=108695)

--  作者:zhangchi96
--  发布时间:2017/10/27 14:18:00
--  保存数据到服务器的出错信息

1、一个外部表:【网络教职工】,数据源在远程服务器
   两个数据文件,一个在本机 ProjectPath & "\\Data\\兴化教育信息数据库.mdb”
                 一个在服务器

 

2、\'-----把本地数据读取到表【网络教职工】中
Dim mg As New Merger
mg.SourcePath = ProjectPath &"\\Data\\某某教育信息数据库.mdb"    \'指定数据文件
mg.Password = "******"
mg.SourceTableName = "教职工信息表"
mg.DataTableName = "网络教职工"
mg.Filter = "台帐年月 = \'" & CurrentYM & "\' and 单位代码 = " & DWDM.text & " "
mg.Merge()

 

3、然后保存

For Each dr As DataRow In DataTables("网络教职工").Select("", "是否在职 desc,姓名")
   If dr.RowState <> DataRowState.Unchanged Then
        dr.save
    End If
Next

 

4、这时就会出现提示

                              “未能启用约束。一行或多行中包含违反非空、唯一或外键约束的值。”


这个提示不是一定出现,是偶尔出现,而且连续运行上述代码,就基本不再出现,请问这是什么原因?


--  作者:有点甜
--  发布时间:2017/10/27 14:22:00
--  

不要用 dr.save

 

直接写 DataTables("网络教职工").Save 不行么?