Ir ao conteúdo
  • Cadastre-se
MJKowalski

Verificação e análise de banco de dados

Recommended Posts

Bom dia pessoal,

Sou extremamente novato em termos de programação e estou precisando de ajuda em um código VBA para poder mapear dados retirados de um códigos SQL, que recebo através de planilha Excel.

 

Exmplo de código SQL:

SELECT * from SolicitacaoMatriculaProtocolo where CodAluno ='00123' and Periodo ='2010' selecT * from Curriculo where CodCurso='32100' and Periodo ='2010' order by serie

Tenho em mãos uma macro que separa apenas os números encontrados no código SQL, cofnorme segue:

'<alteracao>'Esta função tem por objetivo retirar números de células que contenham conteúdos mistos de números e texto'sem a possibilidade de serem colunadosPublic Function lfRetiraNumeros(ByVal vValor As String) As String'Atualiza o cálculo automaticamente'Application.Volatile'Conta a quantidade de caracteresDim vQtdeCaract As LongDim vControle As BooleanvQtdeCaract = Len(vValor)vControle = False'Para cada caractere identifica se é número ou textoFor i = 1 To vQtdeCaract'Se for número adiciona no retorno da funçãoIf IsNumeric(Mid(vValor, i, 1)) ThenIf vControle = True And lfRetiraNumeros <> vbNullString ThenlfRetiraNumeros = lfRetiraNumeros + " "End IfvControle = FalselfRetiraNumeros = lfRetiraNumeros & Mid(vValor, i, 1)ElsevControle = TrueEnd IfNext'Substitui espaços em branco por / e tira espaços em branco no final do retorno da funçãolfRetiraNumeros = Replace(Trim(lfRetiraNumeros), " ", "/")End Function'</alteracao>

........FIM........

 

E obtenho o seguinte resultado: 00123/2010/32100/2010

 

Preciso concatenar no resultado do macro o que significa o código retirado, por exemplo:

CodAluno=00123

Agradeço desde já a atenção!

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×