MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


    Salvar dados no Firebird sem Duplicacao

    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

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

    Salvar dados no Firebird sem Duplicacao Empty Salvar dados no Firebird sem Duplicacao

    Mensagem  NADIRONUNES 8/5/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
    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

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

    Salvar dados no Firebird sem Duplicacao Empty Re: Salvar dados no Firebird sem Duplicacao

    Mensagem  NADIRONUNES 9/5/2015, 12:26

    up!!
    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

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

    Salvar dados no Firebird sem Duplicacao Empty Re: Salvar dados no Firebird sem Duplicacao

    Mensagem  NADIRONUNES 13/5/2015, 19:57

    alguem entendeu o que quero

    Conteúdo patrocinado


    Salvar dados no Firebird sem Duplicacao Empty Re: Salvar dados no Firebird sem Duplicacao

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 23:14