MaximoAccess

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

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 : 414
    Registrado : 30/08/2010

    Salvar dados no Firebird sem Duplicacao

    Mensagem  NADIRONUNES em Sex 08 Maio 2015, 7:22 pm

    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 : 414
    Registrado : 30/08/2010

    Re: Salvar dados no Firebird sem Duplicacao

    Mensagem  NADIRONUNES em Sab 09 Maio 2015, 4:56 pm

    up!!

    NADIRONUNES
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: Salvar dados no Firebird sem Duplicacao

    Mensagem  NADIRONUNES em Qui 14 Maio 2015, 12:27 am

    alguem entendeu o que quero

      Data/hora atual: Sex 23 Jun 2017, 7:17 am