Office中国论坛/Access中国论坛

标题: 添加窗体文本框中的内容到数据库 [打印本页]

作者: opelwang 时间: 2017-8-8 19:20
标题: 添加窗体文本框中的内容到数据库

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

附件： [attach]61858[/attach]

作者: Henry D. Sy 时间: 2017-8-9 12:35
什么叫重复

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

作者: Henry D. Sy 时间: 2017-8-9 15:12

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

你是繁体字,我很难帮你

作者: opelwang 时间: 2017-8-9 19:01

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

全部转换成简体字，附件： [attach]61861[/attach]

敬请指点，谢谢！

作者: Henry D. Sy 时间: 2017-8-10 18:01

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

敬请指点，谢谢！

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

作者: opelwang 时间: 2017-8-10 19:32

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

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

但也确实判断不了重复。

作者: opelwang 时间: 2017-8-11 09:09

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 时间: 2017-8-11 09:12
手机试了很多次都无法粘贴全部，只能下班用电脑操作了，

作者: opelwang 时间: 2017-8-11 18:58

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

看看这个代码： [attach]61871[/attach]

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

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

看看能否修改下，谢谢！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)