[Resolvido]Isolando dados de um caminho em tabela usando SQL

Bem amigos...

tenho varios caminhos em um campo em tabela, ex:

c:\Syspen\Relatórios\Quantitativo_Albergue_05-2011.pdf
c:\Syspen\Relatórios\Inspecao_05-2011.pdf

O que pretendo é isolar apenas o Mês e o ano em campos não acoplados em uma SQL, semelhante se faz com o Format
Format([dataCriacao],'yyyy') AS Ano

So que no caso não usarei uma data... preciso sim isolar a data contida no nome do arquivo quando a crio

Espero ter sido claro..

se puderem me ajudar fico grato

Este é a SQL que uso...

StrlstPDF = "SELECT PDF_Final.id, PDF_Final.idPDF, Format([dataCriacao],'yyyy') AS Ano, Format([dataCriacao],'mmmm') AS Mês, PDF_Final.selecionado " _
& " From PDF_Final IN '" & strPathLocal & "'" _
& " WHERE (((Format([dataCriacao ],'yyyy'))=[Formulários]![VerPDF]![cboAno]) AND ((Format([dataCriacao ],'mmmm'))=[Formulários]![VerPDF]![cboMes]));"


porem ao invés da data de criação preciso isolar a data contina no caminho na tabela..


**** A data de criação é inserida na tabela com o seguinte comando

Rst!DataCriacao = Format(Ficheiro.DateCreated, "dd-mm-yyyy")

Porque isso?

porque se caso eu copiar o arquivo para outro PC... a data de criação do mesmo muda...

ai eu fico com um arquivo que foi gerado em uma data (Data no nome do arquivo)
mas a data de criação fica com a data que copiei o arquivo!

Assim as datas ficam diferentes e a data de criação não fica real, conforme a data que efetivamente o arquivo foi gerado

** Vamos supor que eu precise formatar o PC... copio meius arquivos em CD mas ao levá-los novamente ao PC...
A data de criação mudará.. assim minha consulta por mês não dará certo.

.
E esse SQl no VBA funciona desse jeito ?

& " WHERE (((Format([dataCriacao ],'yyyy'))=]Formulários]![VerPDF]![cboAno]) AND ((Format([dataCriacao ],'mmmm'))=]Formulários]![VerPDF]![cboMes]));"

Penso ter visto em algum lugar, o JPaulo chamar à atenção sobre a escrita em Português no VBA.

Funciona perfeitamente...

Acredito que a função Mid consiga retirar a data aí.

Me.DataRetirada = Mid(Me.CampoInicial, Len(Me.CampoInicial) - 11, 7)

Naquele bom e velho português rasgado.. poderia traduzir a expressão?

So para conhecer mesmo...

Saudações

Me.DataRetirada = Mid(Me.CampoInicial, Len(Me.CampoInicial) - 11, 7)

Texto que eu quero é o texto que começa na décima primeira posição à contar da direita para esquerda e termina na sétima posição a contar na mesma direção.

É mais ou menos isso, considerando que o Len captura o tamanho total do campo para poder encontrar o meio dele. Assim sendo, Len(Campo) - 11 encontra a décima primeira posição à contar da direita para a esquerda.

Entendi... mas no meu caso amigão serão nomes de arquivos com diferentes tamanhos..

eutão eu precisaria começar da Direita para Esquerda...

Como fazer?

rsrs não li direito.. a função ja esta assim..

Vou testar

Agora como aplicar isso na SQL que esta no segundo post??

Lendo o segundo post, não consegui perceber a parte "A data de criação mudará.. assim minha consulta por mês não dará certo."
Não entendi o que mudaria. Você copia o arquivo para um cd e depois copia ele de volta para a pasta do aplicativo, no pc. Se entendi bem, não muda o nome do arquivo.

é assim amigào..

O meu form ao abrir carrega os arquivos contidos em um diretório em um campo caminho...
e usa a data de criação do arquivo (data de criação do arquivo no sistema) para preencher o campo DataCriação..


Então supondo que eu tenha que formatar o PC.. ao fazer um Backup desse arquivo e depois restaurar..
A data da criação muda... ela é a dsta de gravacao do arquivo...

Portanto se o meu PDF foi criado em uma data 05-11 (mes e ano)... quando copiar ele hoje.. a data de criacao mudará.. e a consulta que tenho usa o campo data da criação para fazer o filtro...

portanto em caso de Backp e restauração.. a consulta procurara o arquivo que foi criado no mes 5 e não o encontrara, pois toda vez que abre o form.. ele le o dir e preenche os caminhos.. assim
eu ficaria com uma tabela onde
No campo Caminho o arquivo do mes 5 e no campo dadaCriacao mes 7....


espero que tenha entendido

A solução deste tópico esta relacionado com outro que o alexandre esta a resolver para mim...

Veja bem onde carrego o campo dataCriação (modifiquei para uma instrução do alexandre que é semelhante a sua)
porem essa ja carrega o campo Dasta criação com a dasta do nome do arquivo..


rst!DataCriacao = Mid(Ficheiro, InStr(Ficheiro, "-") - 2, 7)
'rst!DataCriacao = Format(Ficheiro.DateCreated, "dd-mm-yyyy")[color=red] Instrução antiga que usava a data de criação[/color]

Entendi, mas não seria mais fácil usar o nome do arquivo? Ele já não foi criado contendo o mês e ano de criação?

Amigo Criquio.. como disse são dois tópicos relacionados...

1 - do Alexandre (coloca na tabela a data extraida do nome do arquivo)
2 - este topico (para usar na SQL que filtra o campo DstaCriação)

Aplicando a solução do alexandre..testei a SQL tal como esta la acima... e funcionou...

Pensei que não iria funcionar, pois a data contida no arquivo fica com mes e ano apenas e pensei que o format da DQL não entenderia... porém o Format contido na SQL conseguiu entender o campo mesmo estando 05-2011

e agora deu certo..

Então estou encerando o tópico

Obrigado pela Ajuda..

Saudações