LER CODIGO A PARTIR DE UM BLOCO DE NOTAS

NICOLLAS2 08/06/2010 16:27:47
#344281
Me tirem uma duvida,
tem como o programa executar uma consulta SQL atraves do bloco de notas?

apareceu uma situacao no meu programa que faço N tipos de consultas.
para nao ter que toda vez que tiver que criar uma consulta nova não precise gerar um novo .exe do programa.

tem como?

ex.
em vez de eu ter uma linha de codigo com : Select * from TB1 where X = 1
eu tenha isso num bloco de notas para mais tarde colocar mais itens do select.
ASHKATCHUP 08/06/2010 17:23:46
#344288
Resposta escolhida

Private Sub subSQLArquivo(sCaminho as string)
Dim sTexto As String
Dim sLinha As String
[ô]
Open sCaminho For Input Access Read As #1
[ô]
While Not EOF(1)
Line Input #1, sLinha
[ô]
If sLinha <> [Ô][Ô] Then
[ô]
[ô]Código para rodar as SQLs
[ô]
End If
[ô]
Wend
[ô]
Close #1
[ô]
End Sub
SURI 14/06/2010 07:07:38
#344726
Aproveitando o tópico.

E se eu quiser que não sejam lidas linhas comentadas, como por exemplo nos ficheiros de configuração de alguns programas no Linux ex: o samba, as linhas antecididadas por # são ignoradas. No caso, como fazer que o VB ignore a linha a ou b do bloco de notas. é que se isso for possível facilitará o nosso trabalho a medida que poderemos fazer anotações sobre cada código que é implementado.
SURI 14/06/2010 07:10:53
#344727
Aproveitando o tópico.

E se eu quiser que não sejam lidas linhas comentadas, como por exemplo nos ficheiros de configuração de alguns programas no Linux ex: o samba, as linhas antecididadas por # são ignoradas. No caso, como fazer que o VB ignore a linha a ou b do bloco de notas. é que se isso for possível facilitará o nosso trabalho a medida que poderemos fazer anotações sobre cada código que é implementado.
MARCELO.TREZE 14/06/2010 11:31:35
#344746
No código do colega ASH é só acrescentar

If sLinha <> [Ô][Ô] Then
If Trim(Mid(sLinha1,1)) <> [Ô]#[Ô] Then
[ô]
[ô]Código para rodar as SQLs
[ô]
End If
End If

Tópico encerrado , respostas não são mais permitidas