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]Referencias Dao..

    avatar
    Convidado
    Convidado


    [Resolvido]Referencias Dao.. Empty Referencias Dao..

    Mensagem  Convidado 6/6/2011, 02:29

    Amigao.. hoje coloquei no repositorio um exemplo de monitoramento de usuarios na rede...
    Estou a coloca-lo no meu...
    Importei os form.. codigos e tabelas...
    Mas....

    'irá mostrar todos os usuários atualmente conectados a um banco de dados
    '* com base nas informações fornecidas no Microsoft KnowledgeBase *

    Private Sub Transfer_UserRosterMultipleUsers(ByVal strPath_Filename_ToBackend As String)
    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim strRowSource As String
    Dim strUserToCheck As String

    olha o erro amigao... e a referencia Dao.3.6 e tal..
    Mas se a marco.. fala que ja tem uma sendo usada...
    a 12....
    avatar
    Convidado
    Convidado


    [Resolvido]Referencias Dao.. Empty Re: [Resolvido]Referencias Dao..

    Mensagem  Convidado 6/6/2011, 02:31

    Se desmarco a 12 access data base e marco a Dao 3.6 da pau em outros modulos que tenho

    A agora josé???
    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]Referencias Dao.. Empty Re: [Resolvido]Referencias Dao..

    Mensagem  criquio 6/6/2011, 02:34

    Mas isso não funciona no arquivo original? Dê uma checada nas referências do outro. Se não conseguir resolver, tente então importar tudo desse aplicativo para uma cópia do original.


    .................................................................................
    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]Referencias Dao.. Empty Re: [Resolvido]Referencias Dao..

    Mensagem  Convidado 6/6/2011, 02:36

    Eu tenho o Sypen... Devo importar o De rede para o Syspen
    ou o contrário...

    Se for importar o syspen para o de rede.. nao da
    complica

    o que faço
    avatar
    Convidado
    Convidado


    [Resolvido]Referencias Dao.. Empty Re: [Resolvido]Referencias Dao..

    Mensagem  Convidado 6/6/2011, 02:39

    Era a falta do Microsoft Active x data Objects 2.1

    Agora so uma outra questao sobre o mesmo assunto.. 1 minuto
    avatar
    Convidado
    Convidado


    [Resolvido]Referencias Dao.. Empty Re: [Resolvido]Referencias Dao..

    Mensagem  Convidado 6/6/2011, 02:42

    Resolvi acima.. agora da o seguinte...
    Dim rs As ADODB.Recordset
    Dim strRowSource As String
    Dim strUserToCheck As String

    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset

    lstConnections.RowSource = ""
    DoCmd.Hourglass True

    With cn
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .Properties("Data Source") = mstrConnectedDB
    If mconfSecuredDB Then
    .Properties("User Id") = mcon_SEC_AdminsAcountName
    .Properties("Password") = mcon_SEC_AdminsAcountPWD
    .Properties("Jet OLEDB:System database") = getPath(mstrConnectedDB) & mcon_SEC_MDW_Name
    End If
    .Open
    End With

    Formato de banco de dados nao reconhecido...
    O exemplo usava um Back end MDB
    o meu é accdb

    Isso ta dando confilto..
    o que faço amigão??
    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]Referencias Dao.. Empty Re: [Resolvido]Referencias Dao..

    Mensagem  criquio 6/6/2011, 02:51

    Tente substituir o ADODB por DAO. Exemplo:

    Dim db As DAO.Database, ws As DAO.Workspace, rs As DAO.Recordset, rs2 As DAO.Recordset

    Set ws = DBEngine.Workspaces(0)
    Set db = ws.OpenDatabase(CurrentProject.Path & "\Backend.accdb", False, False, "MS Access;PWD=SenhaDoBackendSeTiver")
    Set rs = db.OpenRecordset("tblClientes", dbOpenDynaset)
    Set rs2 = db.OpenRecordset("SELECT Max(Código) FROM tblClientes", dbOpenDynaset)
    rs.AddNew

    If IsNull(rs2(0)) Then
    rs("Código") = 1
    Else
    rs("Código") = rs2(0).Value + 1
    End If

    rs("Nome") = Me.txtNome
    rs("Sobrenome") = Me.txtSobrenome
    rs("dtNascimento") = Me.txtNascimento
    rs("Sexo") = Me.txtSexo
    rs.Update
    rs.Close
    Set rs = Nothing
    Set db = Nothing

    MsgBox "Dados gravados com sucesso" & vbCrLf & rs2(0).Value, vbOKOnly + vbInformation, ""


    Nesse exemplo, o rs2 é usado porque o código é personalizado, o último + 1. Se usar AutoNumeração não precisará o rs2.


    .................................................................................
    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]Referencias Dao.. Empty Re: [Resolvido]Referencias Dao..

    Mensagem  Convidado 6/6/2011, 03:04

    Amiguinho.. esse codigo complicou um pouco para mim..
    como ficaria isso no meu...

    uma solucao que encontrei foi pegar apenas o Back end do aplicativo da rede e deixa no dir do Meu back end...
    Ele apenas cumpriria a funcao de identificacao do local da rede...

    Fiz assim e funcionou...
    Me aconselha a alterar o código ou deixar esse MDB junto no dir do meu be-.accdb??
    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]Referencias Dao.. Empty Re: [Resolvido]Referencias Dao..

    Mensagem  criquio 6/6/2011, 03:14

    Se seu aplicativo só precisa saber se ele está lá então se está a funfar está tudo certo. Agora, se precisa de fazer pesquisas ou gravar dados na tabela, aí talvez a coisa mude um pouco. Vou indo-me agora mas amanhã estarei de volta, espero Very Happy


    .................................................................................
    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]Referencias Dao.. Empty Re: [Resolvido]Referencias Dao..

    Mensagem  Convidado 6/6/2011, 03:16

    Este aploicativo de rede so uma uma tabela para acompanha o BD, para localizar o aplicastivo na rede...
    Deixarei esse Bd com essa tabela... .MDB junto na raiz.. nao pesa em nada..
    Grato.. e boa noite

    Conteúdo patrocinado


    [Resolvido]Referencias Dao.. Empty Re: [Resolvido]Referencias Dao..

    Mensagem  Conteúdo patrocinado


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