MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Salvar dados no Firebird sem Duplicacao

    Compartilhe

    NADIRONUNES
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 408
    Registrado : 30/08/2010

    Salvar dados no Firebird sem Duplicacao

    Mensagem  NADIRONUNES em Sex 08 Maio 2015, 14:52

    eu uso esse codigo pra adicionar no banco do firebird, mas como que faco pra pesquisar pra nao salvar em duplicidade o mesmo registro


    Dim con As ADODB.Connection
    Set con = New ADODB.Connection
    con.Open "DRIVER=Firebird/InterBase(r) driver;" & _
            "DBNAME=G:\SysNaN\DB\BD_DADSO.gdb;" & _
            "UID=SYSDBA;" & _
            "PWD=masterkey"

    'Objeto utilizado para se comunicar com a tabela Produto
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    rs.Open "SELECT * FROM fornecedor", con, adOpenKeyset, adLockReadOnly
    con.Execute "INSERT INTO FORNECEDOR(cod,nome,fone,cnpj,insc,endereco,bairro,complemento," _
    & " numero,cep,cidade,UF,IBGE,EMAIL) Values (" & Forms!FORNECEDOR!CODIGO & ",'" & TiraSinal(RemoveAcento(Trim(StrConv(Forms!FORNECEDOR!FORNECEDOR, vbUpperCase)))) & "'," _
    & "'" & Forms!FORNECEDOR!FONE & "','" & TiraSinal(RemoveAcento(Trim(Forms!FORNECEDOR!CNPJ))) & "','" & TiraSinal(RemoveAcento(Trim(Forms!FORNECEDOR!INSC))) & "','" & TiraSinal(RemoveAcento(Trim(StrConv(Forms!FORNECEDOR!ENDERECO, vbUpperCase)))) & "'," _
    & "'" & TiraSinal(RemoveAcento(Trim(StrConv(Forms!FORNECEDOR!BAIRRO, vbUpperCase)))) & "'," _
    & "'" & TiraSinal(RemoveAcento(Trim(StrConv(Forms!FORNECEDOR!complemento, vbUpperCase)))) & "','" & Forms!FORNECEDOR!numero & "'," _
    & "'" & TiraSinal(RemoveAcento(Trim(Forms!FORNECEDOR!CEP))) & "','" & TiraSinal(RemoveAcento(Trim(StrConv(Forms!FORNECEDOR!CIDADE, vbUpperCase)))) & "'," _
    & "'" & StrConv(Forms!FORNECEDOR!UF, vbUpperCase) & "','" & Forms!FORNECEDOR!IBGE & "','" & Forms!FORNECEDOR!Email_Cli & "')"
    rs.Close
    Set rs = Nothing

    NADIRONUNES
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 408
    Registrado : 30/08/2010

    Re: Salvar dados no Firebird sem Duplicacao

    Mensagem  NADIRONUNES em Sab 09 Maio 2015, 12:26

    up!!

    NADIRONUNES
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 408
    Registrado : 30/08/2010

    Re: Salvar dados no Firebird sem Duplicacao

    Mensagem  NADIRONUNES em Qua 13 Maio 2015, 19:57

    alguem entendeu o que quero

      Data/hora atual: Sex 09 Dez 2016, 11:34