COMO EVITAR DUPLICIDADE:

ASHKATCHUP 28/05/2010 08:37:30
#343023
Então, antes de salvar o registro no seu programa, você valida se os campos já existem. Exemplo de código que eu uso no meu programa::


Private Sub sub_Salva_Dados()
    Dim sSql                                      As String
    Dim adoRecord                                 As New ADODB.Recordset
    [ô]
    sSql = [Ô]Select [Ô] _
         & [Ô]       *[Ô] _
         & [Ô]From [Ô] _
         & [Ô]       Db_Tb_Tabelas [Ô] _
         & [Ô]Where [Ô] _
         & [Ô]       Db_Cp_Tabelas_Codigo = [ô][Ô] & txtCodigo.Text & [Ô][ô][Ô]
    adoRecord.Open sSql, objConexao, adOpenKeyset, adLockBatchOptimistic
    [ô]
    If adoRecord.EOF Then
        adoRecord.AddNew
        adoRecord!Db_Cp_Tabelas_Codigo = txtCodigo.Text
    End If
    [ô]
    adoRecord!Db_Cp_Tabelas_Nome = txtTabela.Text & [Ô][Ô]
    adoRecord!Db_Cp_Tabelas_Descricao = txtDescricao.Text & [Ô][Ô]
    [ô]
    adoRecord.UpdateBatch adAffectCurrent
    [ô]
    adoRecord.Close
    Set adoRecord = Nothing
    [ô]
End Sub
ASHKATCHUP 28/05/2010 09:09:52
#343029
Nesse exemplo eu usei o tipo de conexão ADO. Qual você está utilizando?
JAMESBOND007 28/05/2010 09:14:09
#343030
Microsoft ActiveX Data Objects 2.8 Library
Microsoft ActiveX Data Objects 2.8 (Multi-dimensional) 2.8 Library
Microsoft ActiveX Data Objects recordset 2.8 Library
Microsoft ADO Ext. 2.8 for DLL and Security
ASHKATCHUP 28/05/2010 09:18:17
#343031
Ta. E o que essas fotos significam?
JAMESBOND007 28/05/2010 09:19:08
#343032
o erro que ta dando
JAMESBOND007 28/05/2010 09:21:16
#343034
Mas do mesmo jeito ainda esta duplicando os dados
ASHKATCHUP 28/05/2010 09:22:30
#343035
Tem alguma chance de você postar o projeto em anexo?
JAMESBOND007 28/05/2010 09:31:44
#343038
sim você vai encontra diversos erros que não estou conseguindo solucionar tais como os mais obveis
a duplicidade na hora da pesquisa se eu clicar em pesquisar ele aparece na fles blz certinho na hora de filtrar ele da erro e tbm se eu fechar o form de pesquisa e abrilo novamente ele ta erro de novo analisa isso ai pra vc ver a dor de cabeça depegar um projeto pra arrumar

http://uploaddearquivos.com.br/download/PROJETO_CHECK_NNF.rar
ASHKATCHUP 28/05/2010 09:40:17
#343041
Você tem que tomar mais cuidados na hora de programar....

1) nunca deixe o caminho do banco fixo. Utiliza o [Ô]APP.PATH[Ô] para direcioná-lo

conex.Open [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[Ô] & App.Path & [Ô]\Base\check.mdb;Persist Security Info=False[Ô]


2) O erro da consulta dava pq você não estava fechando a conexão:


Private Sub Form_Unload(Cancel As Integer)
    rs.Close
    conex.Close
End Sub



Você tem msn pra gente trocar uma idéia?
JAMESBOND007 28/05/2010 09:46:36
#343044
trakinas_reggae@hotmail.com estou on line. Obrigado por me ajudar cara
Página 2 de 2 [20 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar