lsardinha

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

Só que preciso pegar pelo codigo....

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

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

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 ','.

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!!!

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;

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.

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!

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...

Cara ficou Show de Bola. Muito Obrigado!

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.

Cara eu sou novato na área e por isso peço que me explique como usar desse jeito.

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

Como chamo ela no program?

Estou com uma conexão com Oracle, e ao mostrar um campo data <%=rs("data")%> ele esta me trazendo dessa forma: 22/4/2004 15:00:54 só que quero que sai somente: 22/4/2004

Estou com o sistema rodando beleza, mas quero mostar a data de aniversário de um cliente em um DBGrid, mas ele me traz a data com a hora, aí fica complicado, não sei como ficar somente a data, alguém me ajude por favor.

Fiz o que você indicou, mas ele continua com a mensagem 'Não é possível criar formulário. Não há formulários MDI ativos neste momento'. Por que eu quero que apareça somente o FrmLogin, e depois de confirmado ele abra o FrmPrincipal. Se eu carregar os dois não dá o erro.

Tenho um projeto de MDIForm, só que fiz uma tela de login com um Form Normal e quero que após estar correta o usuário e senha ele chame o fsMDIForm que tem os fsMDIChild, aí que entra o problema, pois ele dá a mensagem... 'Não é possível criar formulário. Não há formulários MDI ativos neste momento'. Passo a passo: 1° Ele esta carregando o FrmLogin 2° Usuario e Senha Corretos ele carrega do FrmPrincipal 3° Quando vou abrir algum fsMDIChild ele dá o erro.

Tenho uma tabela com os atributos Matricula, Nome , Fone, Coordenador. Meu banco de dados é em Access, estou usando ADOQuery e Datasource pra acessar os dados no meu formulário, os dados são inseridos em DBEdit's. Em uma aba da minha janela quero colocar para acessar os dados em uma DBGrid somente as pessoas que tem a Matricula igual ao do Coordenador, ou seja, quais pessoas o cara coordena. o SQL eu até sei fazer... Select Matricula, Nome , Fone, Coordenador From Pessoas Where Matricula=Coordenador ...O problema é que ele alterar o sql que carrega todos os dados, e eu quero que só nesta hora ele mostre com esse sql...

Problema resolvido, peguei uma função que altera o formato da data para o padrão americado e passo esse valor para o SQL já no formato americano... Function DataIng(Data:String):String; begin Result := Copy(Data, 4, 3) + Copy(Data, 1, 3) + Copy(Data, 7, 4); end; ******* ONDE CHAMO A FUNÇÃO ******* DataInicial := DataIng (DateToStr (DataInicio.Date)); DataFim := DataIng (DateToStr (DataFinal.Date));

Estou fazendo uma pesquisa pra gerar um relatório com o sql abaixo no access: FrmDataModCadastro.QryRelControleAcesso.SQL.Add('Select A.codigo, a.Data, a.horaentrada, a.horasaida, a.codigovisitante, a.codigofuncionario, a.numcracha, b.Nome, b.Procedencia, c.Nome, c.Divisao'); FrmDataModCadastro.QryRelControleAcesso.SQL.Add('From ControleAcesso a, Visitantes b, Funcionarios c'); FrmDataModCadastro.QryRelControleAcesso.SQL.Add('Where a.CodigoVisitante=b.codigo'); FrmDataModCadastro.QryRelControleAcesso.SQL.Add('and a.CodigoFuncionario=c.codigo'); FrmDataModCadastro.QryRelControleAcesso.SQL.Add('AND a.Data Between #' + DataInicial + '#'); FrmDataModCadastro.QryRelControleAcesso.SQL.Add('AND #' + DataFim + '#'); FrmDataModCadastro.QryRelControleAcesso.SQL.Add('Order by a.Data, a.horaentrada'); ******************** O problema é que quando consulto pela data o access entende pelo padrão americado (mm/dd/aaaa), e no meu banco esta sendo guardado da forma normal (pra nós) (dd/mm/aaaa)... Só que não sei como resolver isso

porque no Access o RecordCount sempre retorna -1, e não me mostra a qtde de registros do RecordSet?

Como faço para saber quando estou no ultimo registro do meu RecorSet? porque é o seguinte, não posso mover para último registro pois preciso saber essa informação somente pra imprimir uma parte de minha tabela, mais ou menos assim:

Mudei o lugar onde ele faz a seleção para preencher a lista e funcionou, estava colocando na propriedade value, agora ficou assim: <option selected><% while Not RsDiv.EOF Response.Write("<option value="""& RsDiv("div") &""">"& RsDiv("div") &"</option>") RsDiv.MoveNext wend Response.Write("<option selected>---</option>") %></option> Valeu pela força e pela instrução que ajudou demais a pensar diferente.