添加窗体文本框中的内容到数据库

opelwang

VBA，添加窗体文本框中的内容到数据库，求解，谢谢。

  附件：  

Henry D. Sy

什么叫重复

opelwang

所有文本框中的内容，与数据库中完全一样，就是重复记录，换句话说，就是数据库中已经有此记录了。
来自: 微社区

Henry D. Sy

opelwang 发表于 2017-8-9 13:06
所有文本框中的内容，与数据库中完全一样，就是重复记录，换句话说，就是数据库中已经有此记录了。

你是繁体字,我很难帮你

opelwang

Henry D. Sy 发表于 2017-8-9 15:12
你是繁体字,我很难帮你

全部转换成简体字，附件：  

敬请指点，谢谢！

Henry D. Sy

opelwang 发表于 2017-8-9 19:01
全部转换成简体字，附件：  

敬请指点，谢谢！

你自己测试看看,很奇怪用很多办法都判断不了重复记录

opelwang

Henry D. Sy 发表于 2017-8-10 18:01
你自己测试看看,很奇怪用很多办法都判断不了重复记录

非常感谢版主帮忙。
测试了下，可以添加记录。

但也确实判断不了重复。

opelwang

Henry D. Sy 发表于 2017-8-10 18:01
你自己测试看看,很奇怪用很多办法都判断不了重复记录

分享下，
Private Sub CommandButton1_Click()
    Dim Cn, rs, arr, i As Integer
    Dim PathStr As String, sql As String
    Set Cn = CreateObject("ADODB.Connection")       '创建数据连接对象
    Set rs = CreateObject("ADODB.Recordset")        '创建记录集对象
    PathStr = ThisWorkbook.Path & "\DC_Cap
来自: 微社区

opelwang

手机试了很多次都无法粘贴全部，只能下班用电脑操作了，
来自: 微社区

opelwang

Henry D. Sy 发表于 2017-8-10 18:01
你自己测试看看,很奇怪用很多办法都判断不了重复记录

看看这个代码：

测试了下，这个只能根据本厂货号，一个文本框来判断重复。

要求：要根据窗体上8个文本框中的内容来判断重复（8个文本框中的内容与数据库完全一样，才叫重复）

看看能否修改下，谢谢！