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


    [Resolvido]Aplicando dois recordset's em BD's diferentes...

    avatar
    Convidado
    Convidado


    [Resolvido]Aplicando dois recordset's  em BD's diferentes... Empty Aplicando dois recordset's em BD's diferentes...

    Mensagem  Convidado 11/6/2011, 16:55

    Amigos.. tenho um código que funciona, mas ao trabalhar com recordset's em BD diferentes.. alguns campos não foram mostrados...
    Eis o código, se puderem, analizem e me ajudem a ver o que há de errado com este código..

    Dim db, dbLocal As DAO.Database
    Dim ws As DAO.Workspace
    Dim rs, rsAdm As DAO.Recordset
    Set ws = DBEngine.Workspaces(0)
    Set db = ws.OpenDatabase(CurrentProject.Path & "\Syspen_Be.accdb", False, False, "MS Access;PWD=senha")
    Set dbLocal = ws.OpenDatabase(CurrentProject.Path & "\Syspen_Be_Local.accdb", False, False, "MS Access;PWD=senha")

    strSQLDetentos = "SELECT * FROM Detentos LEFT JOIN Fotos_Detentos ON Detentos.ID=Fotos_Detentos.Detento WHERE ID = " & Forms!frmDetentoConsulta!ID & ";"
    Set rs = db.OpenRecordset(strSQLDetentos)

    strSQLAdm = "SELECT * FROM Administração"
    Set rsAdm = dbLocal.OpenRecordset(strSQLAdm)


    Grato
    avatar
    Convidado
    Convidado


    [Resolvido]Aplicando dois recordset's  em BD's diferentes... Empty Re: [Resolvido]Aplicando dois recordset's em BD's diferentes...

    Mensagem  Convidado 11/6/2011, 17:11

    Perdão amigos.. o código acima esta funcionando...
    e que quando testei, o registro visualizado tinha todos os campos preenchidos...

    e no que fui visualizar nao havia, por isso os campos estavam em branco...

    Vacilo...

    Grato
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Aplicando dois recordset's  em BD's diferentes... Empty Re: [Resolvido]Aplicando dois recordset's em BD's diferentes...

    Mensagem  criquio 11/6/2011, 17:12

    Só a título de informação:

    Dim db, dbLocal As DAO.Database ' Forma não correta

    Dim db As DAO.Database, dbLocal As DAO.Database ' Forma correta


    No primeiro exemplo, você está declarando apenas dbLocal como Database. db está ficando como variant. Por isso muitos programadores preferem colocar cada um em uma linha:

    Dim db As DAO.Database
    Dim dbLocal As DAO.Database


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Convidado
    Convidado


    [Resolvido]Aplicando dois recordset's  em BD's diferentes... Empty Re: [Resolvido]Aplicando dois recordset's em BD's diferentes...

    Mensagem  Convidado 11/6/2011, 17:13

    Ok Mudarei
    Grato!!
    avatar
    Convidado
    Convidado


    [Resolvido]Aplicando dois recordset's  em BD's diferentes... Empty Re: [Resolvido]Aplicando dois recordset's em BD's diferentes...

    Mensagem  Convidado 11/6/2011, 17:15

    Se não for pedir muito, poderia me falar um pouco sobre VARIANT?

    Grato
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Aplicando dois recordset's  em BD's diferentes... Empty Re: [Resolvido]Aplicando dois recordset's em BD's diferentes...

    Mensagem  criquio 11/6/2011, 17:19

    Variant é um tipo de variável que pode variar de função. Geralmente esse tipo funciona em praticamente qualquer circunstância, no entanto, por não ser um tipo definido, pode não ter uma performance tão boa quanto uma variável declarada de acordo o tipo de dado que precisa. Por exemplo, se o seu campo é tipo Número, declare como Integer, Long ou Double. Qual a diferença entre esses três tipos de número? Basicamente, está no tamanho dele. Para números grandes, use Double. Se for tipo texto a variável deve ser As String. Assim, a instrução já saberá de antemão o tipo de dado que será usado. Existem casos em que somente a Variant funciona, mas em geral usamos texto ou número, então declaramos os tipos corretos.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Convidado
    Convidado


    [Resolvido]Aplicando dois recordset's  em BD's diferentes... Empty Re: [Resolvido]Aplicando dois recordset's em BD's diferentes...

    Mensagem  Convidado 11/6/2011, 17:51

    Claro como o dia...

    Grato

    Conteúdo patrocinado


    [Resolvido]Aplicando dois recordset's  em BD's diferentes... Empty Re: [Resolvido]Aplicando dois recordset's em BD's diferentes...

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 19/4/2024, 06:07