Ir para conteúdo
Fórum Script Brasil

lsardinha

Membros
  • Total de itens

    88
  • Registro em

  • Última visita

Sobre lsardinha

lsardinha's Achievements

0

Reputação

  1. lsardinha

    Instrução Sql

    Dessa forma ele apenas trará os filhos, ficará faltando os demais descendentes... :unsure:
  2. lsardinha

    Instrução Sql

    Só que preciso pegar pelo codigo....
  3. lsardinha

    Instrução Sql

    Tenho uma tabela como se seque abaixo: Eu preciso montar um primeiro sql que me mostre todos os pais dessa tabela, consegui fazê-lo: O meu problema agora esta aqui, ao escolher um desses pais ele terá que me trazer todos os filhos dele, incluse ele mesmo, por exemplo: Escolho o joão e ele me retornará: - João - Pedro - Manoel - Maria - Marcia Se escolho o Pedro ele me trará: - Pedro - Maria - Marcia
  4. lsardinha

    Instrução Sql

    Tenho uma tabela como se seque abaixo: Eu preciso montar um primeiro sql que me mostre todos os pais dessa tabela, consegui fazê-lo: O meu problema agora esta aqui, ao escolher um desses pais ele terá que me trazer todos os filhos dele, incluse ele mesmo, por exemplo: Escolho o joão e ele me retornará: - João - Pedro - Manoel - Maria - Marcia Se escolho o Pedro ele me trará: - Pedro - Maria - Marcia
  5. Select Pro.Processo, Pro.Ano From Processos Pro Where 1=1 And (Pro.Codigo, Mov.NumeroMov) in Select Mov2.Pro_Codigo, Max(Mov2.NumeroMov) AS MAXIMO From Movimentos Mov2 Group By Mov2.Pro_Codigo não sei o que esta errado nessa instrucao... Msg 102, Level 15, State 1, Line 4 Incorrect syntax near ','.
  6. Tenho o seguinte SQL: Select Campos... From Tabela1, Tabela2... Where .... And... And... And (Pro.Ano, Pro.Processo), Mov(NumeroMov) in (Select Pro2.Ano, Pro2Processo, Max(Mov2.NumeroMov) as Maximo From Movimentos Mov2, Processos Pro2 Where Pro2.Codigo=Mov2.Pro_Codigo And Pro2.Ano=2005 And Pro2.Processo=1 Group by Pro2.Ano, Pro2.Processo) Ele dá erro na linha abaixo e não consegui entender o porque...alguém me socorr!!!
  7. Consegui resolver o problema, veja como tem que ficar a instrução Query.Close; Query.SQL.BeginUpdate; Query.SQL.Clear; Query.SQL.Add('Select Max(Processo) as Maximo'); Query.SQL.Add('From processo'); Query.SQL.Add('Where Ano=2005'); Query.SQL.EndUpdate; Query.Open;
  8. Quando vou rodar a rotinha Query.Close; Query.SQL.Clear; Query.SQL.Add('Select Max(Processo) as Maximo'); Query.SQL.Add('From processo'); Query.SQL.Add('Where Ano=2005'); Query.Open; Na segunda linha aparece a mensagem: não sei por que, pois no access o sql roda normalmente, na propriedade sql da Query ele aceita, só quando vou rodar ela dessa forma que dá o erro... alguém por favor me ajude!!! Obrigado.
  9. lsardinha

    Gerar Arquivo Texto

    Preciso gerar um arquivo texto a partir de minha intranet, tem uma base de dados oracle (já esta conectado), preciso saber se é possivel fazer isso, a partir dos parametros que o cliente quiser ele gerar as informações em um arquivo, se for possível queria saber como... obrigado!
  10. Como faço pra abrir várias janelas quando o cara abrir determinada páginas, o exemplo são os sites de pornografias, que quando você fecha uma página dispara e abre um turbilhão de páginas. valeu...
  11. lsardinha

    List/menu <<resolvido>>

    Cara ficou Show de Bola. Muito Obrigado!
  12. Estou carregando com da seguinte maneira...: select name="tipo" class="menuazul" style="font-family: Verdana; font-size: 8 pt; border-style: solid; border-width: 1"> <% while not RsTipo.EOF %> <option value="<%=RsTipo("Tipo")%>" selected> <% Response.Write RsTipo("Tipo") %><br> </option> <% RsTipo.Movenext wend RsTipo.close%> </select> E ele traz corretamente os dados pra mim, o problema é que ele posiciona na ultima linha e gostaria que ele me mostrasse no list o primeiro registo.
  13. Cara eu sou novato na área e por isso peço que me explique como usar desse jeito.
  14. Tabela do banco de dados access: Codigo - Numeração Automatica TipoEncontrista - Texto CodigoEncontrista - Numero CodigoEvento - Numero Tenho o seguinte código para inserir as informações no banco de dados (access): dm1.QryEncontristaEventos.Insert; dm1.QryEncontristaEventosTipoEncontrista.AsString := CboTipoEcontrista.Text; dm1.QryEncontristaEventosCodigoEncontrista.Value := DblCboParticipante.KeyValue; dm1.QryEncontristaEventosCodigoEvento.Value := dm1.QryEventosCodigo.Value; dm1.QryEncontristaEventos.Post; Ao executar o código acima aparece a mensagem abaixo e não sei o que fazer: 'Insufficient base table information for updating or refreshig' pra atualizar os dados da Query uso o seguinte sql: Select Ene.Codigo, Ene.CodigoEncontrista, Ene.CodigoEvento, Eve.Codigo, Ene.TipoEncontrista, Mem.Nome, Mem.Matricula From EncontristaEventos Ene, Eventos Eve, Membros Mem Where Ene.CodigoEvento=Eve.Codigo And Mem.Matricula=Ene.CodigoEncontrista And Ene.TipoEncontrista = 'MEMBRO' Union Select Ene.Codigo, Ene.CodigoEncontrista, Ene.CodigoEvento, Eve.Codigo, Ene.TipoEncontrista, Vis.Nome, Vis.Codigo From EncontristaEventos Ene, Eventos Eve, Visitantes Vis Where Ene.CodigoEvento=Eve.Codigo And Vis.Codigo=Ene.CodigoEncontrista And Ene.TipoEncontrista = 'VISITANTE' Order By Mem.Nome
  15. Como chamo ela no program?
×
×
  • Criar Novo...