Progr'amador

xiii!!! na verdade eu to usando Oracle que usa PL/SQL , postei aki porque é tudo SQL mesmo, e esta seção é bem visitada. Valeu!!! Abs. Progr'amador.

Olá, pelo que eu entendi, faça isso: no componente Query ou Table do DBGrid, no evento AfterScroll coloque o mesmo código que você esta usando no onClick do DBGrid ou coloque só assim: procedure TForm1.Query1AfterScroll(DataSet: TDataSet); begin DBGrid1Click(Sender); end; Abs. Progr'amador.

Olá fabio, você ta usando o comando insert? Posta ae o código que você ta usando, completo. Tem outra forma de fazer isso. Abs. Progr'amador.

Olá alessandro, tenta isso: Dê dois cliques na query do dbgrid, ira abrir uma janeja com os campos da tabela se aparecer em branco clique com o direito e escolha a opção Add fields..., no campo de data abra o object inspector do campo, nas opções DisplayFormat e EditMask coloque !99:99:99;1;_, não tenho certeza se funciona pra esse caso. Abs. Progr'amador

Valeu fabyo, deu certo, minha select ficou tipo: SELECT FLOOR(VALOR1 / VALOR2) RESULTADO, MOD(VALOR1, VALOR2) RESTO a função DIV não funcionou tipo: SELECT VALOR1 DIV VALOR2 (Deu erro) mas resolveu com o FLOOR. mas porque será que o DIV não funcionou? Abs. Progr'amador.

Olá taira, perguntar dinovo: que componente você ta usando pra abrir sua tabela? tipo: Query? Table?, okê??? Bom, primeiro verifique se ta dando Open nesse componente, tipo: Query1.Open ou Query1.Active := True ou Table1.Active := True, etc... algo desse tipo Abs. Progr'amador.

Olá nightmare, não havia necessidade de abrir um outro tópico com a mesmo pergunta , mas ai vai a dica: Coloque no form o componente ADOConnection da paleta ADO, de dois cliques nesse componente, irá abrir uma janela, na opção Use Connection Strin clique em Build..., abrirá outra janela, na aba Conexão na opção 1-Insira o nome de um banco de dados: clique em [...] e escolha o MDB desejado. Só isso! Abs. Progr'amador.

Olá, faz assim: dtamodule.Query1.Close; dtamodule.query1.SQL.clear; dtamodule.query1.sql.Text:='select count(*)count from disciplina'; dtamodule.Query1.Prepare; dtamodule.query1.open; Label1.caption := dtamodule.query1.FieldByName('count').AsString; Abs. Progr'amador.

Olá Giorgis, vai em Ferramentas -> Inicializar... na opção Exibir formulário/Página: e Escolha o formulário com que deseja inicializar seu aplicativo access Abs. Progr'amador.

Eu só num entendi como usar a tabela, como seria essa tabela? Abs. Progr'amador.

ok Arlon, to mandando... Ok! Fechando o tópico... Abs. Progr'amador.

Olá taira, você ta usando que componente pra abrir a tabela? query, table, okê...? Abs. Progr'amador.

Olá eldrey, adicione no form um TButtom, um TListbox e um TSession (encontra-se na paleta Data Access ou BDE dependendo da versão do seu delphi). Na propriedade (Object Inspector) SessionName do TSession coloque: Session, e o evento onclick do button coloque: Session1.GetAliasNames(ComboBox1.Items); Só isso!!! Abs. Progr'amador.

Tenta isso: TrayIcon1.ShowMainForm; Abs. Progr'amador.

O caso é o seguinte: Como eu faço pra obter o resultado de uma divisão e o resultado do resto numa select, tipo assim: 10 / 3 = 3 e resta 1; 10 / 4 = 2 e resta 2. Pensei em fazer assim: SELECT ROUND(VALOR1 / VALOR2,0) VL_DIVISAO, VALOR1 - (ROUND(VALOR1 / VALOR2,0) * VALOR2) VL_RESTO FROM TABELA seguindo a logica usando VALOR1 = 10, VALOR2 = 3 VL_DIVISAO: 10 / 3 = 3 (Arredondado) VL_RESTO: 10 - (VL_DIVISAO * 3) = 1 (Arred.) ou seja: VL_DIVIÃO = 3 e VL_RESTO = 1 (ESTARIA CORRETO) Só que não funciona em todos os casos, funcionou nesse caso porque o resultado sem o ROUND daria 3,333333333 com isso o ROUND Arrendou pra 3(Arred. pra baixo), e usando o valor 4 em ves do 3, iria ficar 2,5 com isso iria arredondar pra 3(Arred. pra cima) ao inveis de 2. Existe alguma comando em SQL, pra arredondar pra baixo? (igual no excel - =ARREDONDAR.PARA.BAIXO(2,5;0) : resultado seria 2 )? Como poderia fazer isso? Teria uma forma mais simples de fazer esses cálculos de divisão no Sql, pra encontrar o resultado e o resto? Uffa!!! é so isso. Abs. Progr'amador.

Olá, qual a versão do seu delphi? verifica se tem a peleta ADO, se tiver posso lhe da uma ajuda como conectar um BD access. Abs. Progr'amador.

Ola Alex, eu uso o TrayIcon, na verdade tenho um pacote que vem com esse componente (os componentes desse pacote são muito bons), no Object inspector do componente tem a opção PopupMenu, onde você adiciona um Componente PopupMenu (paleta Standard). Qual a versão do seu delphi? posso te passar o componente, nesse pacote vem inclusive uns demos (exemplos) de como usar esse componente. Abs. Progr'amador.

Olá Mauro, no link abaixo vai um tutorial sobre Quick Report, quem sabe pode aproveitar alguma coisa dele. http://www.nosachamos.com/n_a/apostilas/qreport.zip Abs. Progr'amador.

Olá, nesse componente não tem a opção PoupMenu? Tenho um componente desse que tem essa opção. Abs. Progr'amador.

Olá você pode usar o componente query pra execultar a função Insert ou Update na tabela. se você postar como você ta querendo isso, os criterios, inserir, alterar, okê? Acho que ainda ta muito vaga a explicação do que querendo, e tambem eu sou meio ruim pra entender as coisas mesmo!!! um Update seria tipo assim: Query.Close; Query.Sql.Clear; Query.Sql.Add('Update tabela set campo = '+#39+Edit1.text+#39); Query.Sql.Add('Where etc, etc, etc...'); Query.ExecSql; Abs. Progr'amador.

Pra campo de data, eu uso variavel do tipo varchar2 (string), e faço a conversão dessa variavel dentro da procedure, tipo assim: Na Procedure CREATE PROCEDURE PEDIDO (data_ped in varchar2) AS BEGIN SELECT * FROM T_PEDIDO WHERE DATA_PEDIDO = to_date(data_ped,'dd/mm/yyyy'); etc, etc; etc... E no Delphi StProc1.Prepare; StProc1.ParamByName('data_ped').AsString := EditData.text; StProc1... (ect, etc...) StProc1.ExecProc; Espero que tenho entendido. Qualquer dúvida posta ae, falou!!! Abs. Progr'amador.

Olá ricardo, eu nunca usei o Firebird, mas já vi sua estrutura, e é quase igual ao oracle (a estrutura!!!!). O oracle tem opção de rodar procedures dentro do proprio banco, o que facilita pra encontrar erros, e já me deparei com situações de que quando rodava no delphi dava o erro, mas no banco não dava. No firebird, não teria uma opção dessa??? rodar a procedure detro do banco (testar). Abs. Progr'amador.

Olá arlon! é o código ASCII para aspas. Abs Progr'amador.

Olá Alex, poderia ser mais claro! você gostaria de salvar dados de um Edit na tabela? salvar onde??? eu num entendi!!!! Ate+

Olá Arlon, seria +ou- assim: -------------- var NovoNome, NomeAtual : string; begin NovoNome := Edit1.text; NomeAtual := DM.QrCliente.FieldByName('Nome_Cliente').AsString; DM.QrAlterarNome.Close; DM.QrAlterarNome.Sql.Clear; DM.QrAlterarNome.Sql.Add('Update Pecas Set Nome = '+#39+NovoNome+#39); DM.QrAlterarNome.Sql.Add(Where Nome = '+#39+NomeAtual+#39); DM.QrAlterarNome.ExecSql; end; -------------- Qualquer dúvida posta ae falow!!! Abs. Progr'amador.