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


2 participantes

    [Resolvido]Ajuda com conexão a BD Access usando VBA

    luizsd942
    luizsd942
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 25
    Registrado : 10/03/2014

    [Resolvido]Ajuda com conexão a BD Access usando VBA Empty [Resolvido]Ajuda com conexão a BD Access usando VBA

    Mensagem  luizsd942 18/3/2014, 14:02

    Olá,
    Estou tendo dificuldades em conectar a um banco de dados "bdAltAdm" do Access 2000.
    Já tentei usar o ADOBD, mas não deu certo.

    Objetivo: Quero criar uma conexão com o banco de dados e acessar a tabela "TEL", consultar todos os nomes da tabela e comparar se existe nomes iguais ao digitado no formulário formTel, no campo NOME.

    Código:

        Function VerificaNomesIguais(Texto)
        Dim conn As ADODB.Connection
        Dim SQL As String
        Dim rst As ADODB.Recordset
         
        Set conn = New ADODB.Connection
        Set rst = New ADODB.Recordset
        conn.CursorLocation = adUseClient
       
        ' estabele a conexão
        With conn
            .Provider = "Provider=Microsoft.Jet.OLEDB.3.6;"
            .ConnectionString = "Data Source=H:\Projeto Acces\bdAltAdm.mdb;"
            .Open
        End With

        SQL = "SELECT NOME FROM TEL"
        rst.Open SQL, conn, adOpenStatic, adLockOptimistic
       
        'db.Execute SQL, dbInconsistent
        rst.Close
        Set rst = Nothing
        db.Close
        Set db = Nothing
       
        For i = 1 To SQL
        If Texto = i Then
            MsgBox "Nome Já Existe", , "Atenção"
        End If
        Next
        End Function

    Se puderem me dizer o que está errado nessa conexão ou me dar uma outra solução para esse problema, eu agradeço.
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Ajuda com conexão a BD Access usando VBA Empty Ajuda com conexão a BD Access usando VBA

    Mensagem  toyebom 18/3/2014, 14:51

    Se o problema é mesmo dentro do bd ao preencheres um campo podes ver aqui um exemplo feito de outra forma:

    http://maximoaccess.forumeiros.com/t16974-resolvidorun-time-error-3420

    Código:
    Private Sub Texto37_AfterUpdate()
    '********************************************
    'Code sample courtesy of srfreeman
    'Adaptado por Harysohn - Fórum Maximo Access
    'em 26/01/2014
    '********************************************
    Dim SID As String
    Me.Rótulo26.SetFocus
    SID = Me.Numero.Value
    'Check StudentDetails table for duplicate StudentNumber
    If DCount("numero", "pessoas", "[Numero] = '" & SID & "'") > 0 Then
      Me.Undo
      Dim Rs As Object
      Set Rs = Me.Recordset.Clone
      'Message box warning of duplication
      MsgBox "Aviso Documento " _
              & SID & " Já foi inserido." _
              & vbCr & vbCr & "Vai ser redireccionado para o respectivo registo.", vbInformation, "Documento Duplicado"
      Rs.FindFirst "[Numero] = '" & SID & "'"
      If Not Rs.EOF Then Me.Bookmark = Rs.Bookmark
    End If
    Set Rs = Nothing
    End Sub


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    luizsd942
    luizsd942
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 25
    Registrado : 10/03/2014

    [Resolvido]Ajuda com conexão a BD Access usando VBA Empty Re: [Resolvido]Ajuda com conexão a BD Access usando VBA

    Mensagem  luizsd942 19/3/2014, 14:36

    Olá Toyebom,

    Obrigado pela sugestão, mas seguindo a mesma lógica de seu código, usei a função DLookup() que tem os mesmos parâmetros de DCount e funcionou para o campo nome.

    Resolvido.

    Conteúdo patrocinado


    [Resolvido]Ajuda com conexão a BD Access usando VBA Empty Re: [Resolvido]Ajuda com conexão a BD Access usando VBA

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 07:15