DUVIDA EM INSTRUCAO SQL

DAYANEBERATO 25/07/2010 17:43:01
#348404
Ola galera sou novata na área!!! Estou tentando criar um padrão em um soft na empresa que entrei, para isso estou dividindo em partes os selects, como mostro abaixo;

[ô]Set tb_acesso = b_sistema.OpenRecordset([Ô]select * from acesso where modulo=[ô][Ô] + hagora_ultimo_modulo + [Ô][ô] and codigo_nivel=[ô][Ô] + hagora_nivel_usuario + [Ô][ô][Ô])
[ô]---- cadastro
XSQL = [Ô]select * from acesso [Ô]
XSQL = XSQL & [Ô]where modulo=[ô][Ô] + hagora_ultimo_modulo + [Ô][ô] [Ô]
XSQL = XSQL & [Ô]and codigo_nivel=[ô][Ô] + hagora_nivel_usuario + [Ô][ô][Ô]
Set tb_acesso = b_sistema.OpenRecordset(XSQL)


[ô]Set tb_empresa = b_sistema.OpenRecordset([Ô]select * from empresas where codigo_empresa=[ô][Ô] + Format(cs_empresa, [Ô]00[Ô]) + [Ô][ô][Ô])
XSQL = [Ô]select * from empresas [Ô]
XSQL = XSQL & [Ô]where codigo_empresa=[ô][Ô] + Format(cs_empresa, [Ô]00[Ô]) + [Ô][ô] [Ô]
Set tb_empresa = b_sistema.OpenRecordset(XSQL)

Mas não sei como separar estes???? pelo fato de não ter where\and....Por favor me ajudem?????

Data1.RecordSource = [Ô]select codigo_familia, descricao_familia,status_familia,usuario_gravacao,horario_gravacao,usuario_alteracao,horario_alteracao from familiap[Ô]

Data1.RecordSource = [Ô]select [Ô] + campo_apresentacao + [Ô] from familiap order by [Ô] + Trim(campo_ordem) + IIf(bbb_ordem.Value = False, [Ô] desc[Ô], [Ô][Ô])
ROBIU 25/07/2010 22:33:25
#348422 Resposta escolhida
Não há segredo para partir a instrução sql em várias linhas. Você pode colocar em quantas linhas quiser, podendo até ser uma linha por campo da tabela, isto é, não há delimitador.
Ex.:
XSQL = [Ô]select codigo_familia, descricao_familia,status_familia,[Ô]
XSQL = XSQL & [Ô]usuario_gravacao,horario_gravacao,usuario_alteracao,[Ô]
XSQL = XSQL & [Ô]horario_alteracao from familiap[Ô]
Data1.RecordSource = XSQL

e
XSQL = [Ô]select [Ô] + campo_apresentacao + [Ô] from familiap order by [Ô]
XSQL = XSQ + Trim(campo_ordem) + IIf(bbb_ordem.Value = False, [Ô] desc[Ô], [Ô][Ô])
Data1.RecordSource = XSQL
DAYANEBERATO 27/07/2010 11:48:01
#348583
Help!!!!
QUANDO EXECUTO O PROGRAMA ESSA LINHA FUNCIONA NORMALMENTE!!!!!!!
[ô]Data1.RecordSource = [Ô]select codigo_familia, descricao_familia,status_familia,usuario_gravacao,horario_gravacao,usuario_alteracao,horario_alteracao from familiap order by [Ô] + Trim(bbm_ordem) + IIf(bbb_ordem.Value = False, [Ô] desc[Ô], [Ô][Ô])

JÁ ESSA LINHA QUE ACREDITO ESTAR CORRETA!!! APARECE SEGUINTE MENSAGE; [Ô]OCORREU O ERRO 3061-TOO FIEW PARAMETERS. EXPECTED 1[Ô]
XSQL = [Ô]select codigo_familia, decricao_familia, status_familia, [Ô]
XSQL = XSQL & [Ô]usuario_gravacao,horario_gravacao,usuario_alteracao, [Ô]
XSQL = XSQL & [Ô]horario_alteracao from familiap order by [Ô]
XSQL = XSQL + Trim(bbm_ordem) + IIf(bbb_ordem.Value = False, [Ô] desc[Ô], [Ô][Ô])
Data1.RecordSource = XSQL
MICROSCHEME 27/07/2010 17:59:10
#348632
Tenta assim pra ver:

XSQL = [Ô]select codigo_familia, descricao_familia, status_familia, [Ô] & _
[Ô]usuario_gravacao, horario_gravacao, usuario_alteracao, [Ô] & _
[Ô]horario_alteracao from familiap order by [Ô] & _
[Ô]+ Trim(bbm_ordem) + IIf(bbb_ordem.Value = False, [Ô] desc[Ô], [Ô][Ô])[Ô]
Data1.RecordSource = XSQL

. . .
DAYANEBERATO 30/07/2010 17:02:29
#348972

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