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

    [Resolvido]Pegar informações de BD externo para SQL

    Compartilhe

    ewertonms
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 65
    Registrado : 20/09/2012

    [Resolvido]Pegar informações de BD externo para SQL

    Mensagem  ewertonms em Qui 02 Out 2014, 18:24

    Olá pessoal eu tenho o seguinte código

    Dim db As DAO.Database
    Dim rs As DAO.Recordset

    db = "\\SERVIDOR\C\ISMO\"Controle ISMO-08.mdb"

    rs = db.OpenRecordset("SELECT cod, Nome, Registro, Telefone, Endereço, Cidade FROM Bera where cod=(nº_prontuário);")

    paciente = rs(1)
    txtcpf = rs(2)
    txttel = rs(3)
    txtend = rs(4)
    txtcidade = rs(5)



    o db não é o currentdb, ele é um outro banco de dados do qual eu gostaria de puxar as informações
    "nº_prontuário" é um campo do form que no evento after update preenche os outros campos com as informações do db externo

    está dando erro de uso invalido da propriedade na 3ª linha, como faço pra resolver o problema?

    ewertonms
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 65
    Registrado : 20/09/2012

    Re: [Resolvido]Pegar informações de BD externo para SQL

    Mensagem  ewertonms em Qui 02 Out 2014, 19:15

    Resolvi da seguinte forma pessoal

    Dim db As Database
    Dim rs As DAO.Recordset


    Set db = OpenDatabase("\\SERVIDOR\C\ISMO\Controle ISMO-08.mdb")


    Set rs = db.OpenRecordset("SELECT cod, Nome, Registro, Telefone, Endereço, Cidade FROM Bera WHERE cod=" & [Nº_PRONTUÁRIO])


    If rs.RecordCount > 0 Then
    PACIENTE = rs(1)
    txtcpf = rs(2)
    txttel = rs(3)
    txtend = rs(4)
    txtcidade = rs(5)

    Set rs = Nothing
    Set db = Nothing
    txtdtenvio.SetFocus

    Else
    Set rs = Nothing
    PACIENTE.SetFocus
    End If

      Data/hora atual: Sex 09 Dez 2016, 07:41