添加窗體文本框中的內(nèi)容到數(shù)據(jù)庫(kù)

opelwang

VBA，添加窗體文本框中的內(nèi)容到數(shù)據(jù)庫(kù)，求解，謝謝。

  附件：  

Henry D. Sy

什么叫重復(fù)

opelwang

所有文本框中的內(nèi)容，與數(shù)據(jù)庫(kù)中完全一樣，就是重復(fù)記錄，換句話說，就是數(shù)據(jù)庫(kù)中已經(jīng)有此記錄了。
來自: 微社區(qū)

Henry D. Sy

opelwang 發(fā)表于 2017-8-9 13:06
所有文本框中的內(nèi)容，與數(shù)據(jù)庫(kù)中完全一樣，就是重復(fù)記錄，換句話說，就是數(shù)據(jù)庫(kù)中已經(jīng)有此記錄了。

你是繁體字,我很難幫你

opelwang

Henry D. Sy 發(fā)表于 2017-8-9 15:12
你是繁體字,我很難幫你

全部轉(zhuǎn)換成簡(jiǎn)體字，附件：  

敬請(qǐng)指點(diǎn)，謝謝！

Henry D. Sy

opelwang 發(fā)表于 2017-8-9 19:01
全部轉(zhuǎn)換成簡(jiǎn)體字，附件：  

敬請(qǐng)指點(diǎn)，謝謝！

你自己測(cè)試看看,很奇怪用很多辦法都判斷不了重復(fù)記錄

opelwang

Henry D. Sy 發(fā)表于 2017-8-10 18:01
你自己測(cè)試看看,很奇怪用很多辦法都判斷不了重復(fù)記錄

非常感謝版主幫忙。
測(cè)試了下，可以添加記錄。

但也確實(shí)判斷不了重復(fù)。

opelwang

Henry D. Sy 發(fā)表于 2017-8-10 18:01
你自己測(cè)試看看,很奇怪用很多辦法都判斷不了重復(fù)記錄

分享下，
Private Sub CommandButton1_Click()
    Dim Cn, rs, arr, i As Integer
    Dim PathStr As String, sql As String
    Set Cn = CreateObject("ADODB.Connection")       '創(chuàng)建數(shù)據(jù)連接對(duì)象
    Set rs = CreateObject("ADODB.Recordset")        '創(chuàng)建記錄集對(duì)象
    PathStr = ThisWorkbook.Path & "\DC_Cap
來自: 微社區(qū)

opelwang

手機(jī)試了很多次都無法粘貼全部，只能下班用電腦操作了，
來自: 微社區(qū)

opelwang

Henry D. Sy 發(fā)表于 2017-8-10 18:01
你自己測(cè)試看看,很奇怪用很多辦法都判斷不了重復(fù)記錄

看看這個(gè)代碼：

測(cè)試了下，這個(gè)只能根據(jù)本廠貨號(hào)，一個(gè)文本框來判斷重復(fù)。

要求：要根據(jù)窗體上8個(gè)文本框中的內(nèi)容來判斷重復(fù)（8個(gè)文本框中的內(nèi)容與數(shù)據(jù)庫(kù)完全一樣，才叫重復(fù)）

看看能否修改下，謝謝！