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]Consulta SQL com String

    avatar
    ramonthepunisher
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 23/12/2011

    [Resolvido]Consulta SQL com String Empty [Resolvido]Consulta SQL com String

    Mensagem  ramonthepunisher 25/3/2013, 18:04

    Olá boa tarde,

    Estou com um pequeno problema e gostaria que alguém me ajuda-se. Observem o código abaixo:

    For i = 1 To QuantiUnidade

    strSQL = "SELECT Count(tab_aluno.alun_contra) AS Contagem " & _
    "FROM tab_unidade INNER JOIN tab_aluno ON tab_unidade.cod = tab_aluno.cod_unidade " & _
    "GROUP BY tab_aluno.alun_contra, tab_unidade.nom_unidade " & _
    "HAVING tab_aluno.alun_contra=True AND tab_unidade.nom_unidade='" & nomunidade(i) & "';"

    Set rs = db.OpenRecordset(strSQL)
    MsgBox rs("Contagem")
    'valorunidade(i) = rs("Contagem")
    'MsgBox valorunidade(i)
    Next i

    O grande problema é quando vou utilizar uma string nomunidade(i) no final da consulta, esse vetor tem os nomes de todas as unidades que irei utilizar como critério para a consulta. Então gostaria que a cada loop do For ele pega-se o valor máximo de alunos contratados por unidade e a seguir coloca-se dentro de outro vetor chamado valorunidade(i). Já utilizei apenas o nome da unidade entre parenteses e deu certo. Então o problema está quando se coloca o "nomunidade(i) na consulta. A variável foi criada logo acima da seguinte forma:

    ReDim nomunidade(1 To QuantiUnidade) As String
    Dim valorunidade() As Integer

    Obrigado desde já! Espero que tenha sido claro. Smile
    Marco Messa
    Marco Messa
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 291
    Registrado : 28/06/2010

    [Resolvido]Consulta SQL com String Empty Re: [Resolvido]Consulta SQL com String

    Mensagem  Marco Messa 4/4/2013, 21:22

    Cara, não consegui entender muito bem o seu problema não. E que problema exatamente ocorre? Um erro?



    .................................................................................
    Tea with me that I book your face Cool

      Data/hora atual: 22/11/2024, 16:38