Controle de registro iguais

[mateuscrocha 0]

Aê rapeize...ve se podem me ajudar.Tipo vou fazer um inclusão de dados em uma tabela X. Como vou fazer para saber se algum o campo que tem a chave primária não será repetido??pra não dar esse erro: Microsoft OLE DB Provider for ODBC Drivers error '80040e14' [Microsoft][ODBC Microsoft Access Driver] The changes you requested to the table were not successful because they would create duplicate values in the index, primary key, or relationship. Change the data in the field or fields that contain duplicate data, remove the index, or redefine the index to permit duplicate entries and try again. /teste/noticia/index.asp, line 28

[renato-navarro 0]

cara... isso é 1/2 complicado dizer...normalmente campos que não podem se repetir são campos de id ou uma constraint que você cria dando uma regra...o que você pode fazer é dar um select na tabela antes de dar o insert... ou fazer um tratamento de erro ignorando o erro qdo acontecer ou tomando uma ação diferente...pq na boa... teoricamente, se você tem uma regra no banco, seja de primary key, seja constraint, você não vai inserir registros duplicados... justamente pq a regra existe! hehe+ dá uma olhada ae e qq coisa dá um grito!

[nostrinkes 0]

Tenta inserir com este add_new ele insere e atualiza mais tem que usar include adovbs.incSET objRS = server.CreateObject ("ADODB.RecordSet") '------SEGUNDO RECORDSET objRS.Open "SELECT * FROM autores order by id desc" ,Conn, adOpenDynamic, adLockPessimistic, adCMDText objRS.AddNew objRS("numero")= strnumero objRS("autor")= strautor objRS("ano")= strano objRS.Update ' Atualizando o recordset

[Salgado 4]

Complementando a resposta do Nosso amigo nostrinkes:

SET objRS = server.CreateObject ("ADODB.RecordSet")
objRS.Open "SELECT * FROM autores where campo= 'valor';" ,Conn, adOpenDynamic, adLockPessimistic, adCMDText

if objRS.EOF or objRS.BOF then 'Testando para saber se existe o Registro
objRS.AddNew 'Adiciona um Registro
'Coloque aqui os campos e os valores que você quer inserir
objRS("campo")=Valor
objRS.Update ' Atualizando o recordset
else
response.write "Registro Existente!" ' Aqui é um aviso para u usuário de registro existente, ,você pode colocar o que quizer aqui!
end if

Qualquer duvida poste aqui.

 

 

Valeu?