[Resolvido]Atribuir string sql a uma variável

Boa tarde,

Como deve ser a sintaxe correta para na janela de código do form eu atribui uma linha de consulta sql a uma variável tipo srting sendo que numa parte da linha sql quero dar um enter para continuar na linha seguinte. Como devo fazer?

Agradeço a ajuda.

Adilson

Rapaz.. explique para que serve o enter?

São mais de uma SQL?

Ate onde sei a SQL é executada de uma só vez.. se aplicar qualquer coisa nela diferente da sintaxe correta ela não funciona..

Agora se form mais de uma SQL.. podes criar string para cada uma depois agrupá-las .. sei la...

Explique direito como será isto?

Saudações

Boa tarde

Segue o codigo:

Private Sub Form_Open(Cancel As Integer)
Me.txtConsulta.SetFocus
End Sub

Private Sub txtConsulta_AfterUpdate()
Dim strSQL As String

strSQL = "SELECT TabAluno.Nome, TabAluno.Endereço , TabAluno.Estado" & _
"TabAluno.Cidade, TabAluno.Responsável, [TabAluno].[Entrada_001]" & _
"[TabAluno].[Saída_001] FROM TabAluno WHERE TabAluno.Aluno Like " * " & frmconsultaaluno.txtConsulta.text & " * ""
Me.lstConsulta.RowSource = strSQL
Me.lstConsulta.Requery

End Sub

Aonde está o erro você pode me ajudar?

Adilson

rsrs Entendi...

strSQL = "SELECT TabAluno.Nome, TabAluno.Endereço , TabAluno.Estado, " _
& "TabAluno.Cidade, TabAluno.Responsável, [TabAluno].[Entrada_001]," _
& "[TabAluno].[Saída_001] FROM TabAluno WHERE TabAluno.Aluno Like " * " & frmconsultaaluno.txtConsulta.text & " * ";"

Lembrando que ao se efetuar a quebra em uma clausula From ou Where não vai a vírgula depois do campo..
E se a quebra for no FROM, deixe sempre um espaço a mais depois do "

Assim: &" From

Dá dando erro na seguinte linha:

& "[TabAluno].[Saída_001] FROM TabAluno WHERE TabAluno.Aluno Like " * " & txtConsulta & " * ";"

como você pode ver tirei o frmconsultalauno para ver se era isso e nada continua dando erro nesta linha, pois na janela de código essa string toda aparece em amarelo só que a seta de dedpuração está na linha acima citada. O que faço?

Adilson

Tente colocar

Me.txtConsulta

Nada está dando certo. estou pensando em fazer uma consulta e importar de lá. O que você acha?


Agradeçido



Adilson

Claro.. lembrando que tera que retirar alguns parenteses que existem na consulta access, pois SQL e SQLVBA tem diferencas...

Caso queira me envie parte do bd com esta tabela.. dou uma olhadinha... so assim na tela fica ruim para mim..

Saudacoes

Estou mandando o bd inteiro. Não sabia que havia diferença nos dialetos de SQL e SQL VBA!

olhe o link:


http://dl.dropbox.com/u/37804873/Administrativo%20DEJOSAN.rar


Agradeçido


Adilson

Assim tambem como em expressoes em consultas e em vba ha diferencas

Por exemplo o format em uma consulta

Format(SeuCampo;"dd/mm/yyyy")

Ja em VBA

Format(SeuCampo,'dd/mm/yyyy')
Se cria uma consulta no access a SQL dela sai como a primeira opcao acima.. se colar em VBA da erro, pois em VBA e como esta ai acima..

Qual o form?

frmconsultaaluno

agora criei uma consulta: qryAluno
e quando coloco esse critério na coluna nome na query não vem nada de dados

[forms]![frmConsultaAluno]![txtConsulta]


Adilson

Vamos la amigao...

1 - Apague esta lupa
2 - Crie esta funcao:

Código:


Private Sub CarregaList()
Dim strSQL

strSQL = "SELECT TabAluno.Código, TabAluno.Nome, TabAluno.Endereço, TabAluno.Cidade," _
        & "TabAluno.Estado, TabAluno.Entrada_001, TabAluno.Saída_001, TabAluno.Nome_Responsável" _
        & " FROM TabAluno"

Me.lstConsulta.RowSource = strSQL

End Sub

3 - No evento ao abrir fo form chame esta funcao para carregar a lista

Call CarregaLst

4 - Renomeie a caixa texto para txtNome..

5 - no evento al alterar dela aplique:

Código:

 Private Sub txtNome_Change()

Dim C As String, X As String
X = Me.txtNome.Text
C = " where Nome like '*" & X & "*'"

Me.lstConsulta.RowSource = "SELECT TabAluno.Código, TabAluno.Nome, TabAluno.Endereço, TabAluno.Cidade," _
        & "TabAluno.Estado, TabAluno.Entrada_001, TabAluno.Saída_001, TabAluno.Nome_Responsável" _
        & " FROM TabAluno" & C

End Sub


A medida que vai digitando.. ela altera a list conforme a digitacao

Saudacoes

http://dl.dropbox.com/u/26441349/dyl2011.Progamador_18_08_11.rar

Saudacoes

Boa Noite,

Você é um Gênio cara, Brigadão valeu por mais essa.

Esse Fórum é demais, meu bd vai ficar dez, graças a Deus em primeiro lugar e aos Grandes Mestres: Harysohn, Vieira, Criquio, Topbr, JPaulo, Agravina, Marcelo DAvid, Dilson e demais, Deus os ABençoe e muito obrigado pela força que vocês têm me dado.

Espero um dia chegar ao nível de vocês (estou me esforçando para isso), e compartilhar os conhecimentos adiquiridos neste fórum extraordinário com outros que estejam precisando

Agradeçidíssimo,

Adilson Calixto dos Santos

O Forum agradece o retorno

Bom trabalho...