Progr'amador

Quando você usa esse código, ele passa a data correta pro Label??? Abs. Progr'amador. ;)

Opa, Nesse caso o resultado só vai poder retornar uma linha mesmo, aí, faz assim: select sum(valor) as soma from 'contas.dbf' where dt_venc between '12/01/2006' and '12/31/2006' Abs. Progr'amador. ;)

Estranho... Posta esse parte completa do seu código e o erro exatamente da forma como aparece aí! você já tentou colocar a data direto, só pra teste, tipo: ...BETWEEN to_date('13/11/2006 00:00', ''DD/MM/YYYY hh24:mi'')' Abs. Progr'amador. ;)

Olá f3d3r4l Da forma como você fez da certo, troque o <> por = select tab1.ip from tab1 where not exists(select tab2.ip from tab2 where tab2.ip = tab1.ip) Abs. Progr'amador. ;)

Olá Ivano, Que banco você está usando??? Abs. Progr'amador. ;)

Cara, Por que você não coloca no inicializar do Windows??? Inciar --> Programas --> Inicializar Abs. Progr'amador. ;)

Olá Kalu, É porque você não tem acesso de administrador do banco, esse banco está protegido, a nivel de usuário. E se você não sabe a senha de um usuario administrador, não sei se é possível quebrar isso. Abs. Progr'amador. ;)

Opa, eu manjo um pouco, só que eu parei de praticar, tó enferrujado :) A ideia é boa! Os moderadores já tem um! rs!!! :D :P :) :lol: Abs. Progr'amador. ;)

Tenta essa: SELECT u1.nome as nome_de, u2.nome as nome_para FROM usuario u1, usuario u2, recado r WHERE u1.idusuario = r.de_idusuario AND u2.idusuario = r.para_idusuario Abs. Progr'amador. ;)

Olá tetel, Que banco de está usando?? Se o campo codigo está dando esse erro é porque ele é chave primaria (Primary Key) pra poder repetir ou você tira a chave primaria desse campo ou então defina outro campo como chave primaria, por exemplo um campo autonumero. Abs. Progr'amador. ;)

Olá frnd, É possível, mas qual é a finalidade dessa select? que resultado você espera? na SubSelect você colocou doIs compos pra retornar em um???? SELECT usuario.nome, recado.para_idusuario... retorna em nomepara, não lhe entendi bem mas acho que você vai ter que concatenar esses campos: CONCAT(usuario.nome,' ',recado.para_idusuario) ou então usar so um campo nessa select: SELECT usuario.nome from ...., que nessa casso só precisaria da tabela usuário. Vê se essa resolve o seu caso: SELECT u.nome as nomede, r.recado, u.idusuario, (SELECT concat(u2.nome,' ',r2.para_idusuario) As nomepara FROM usuario u2, recado r2 WHERE r2.para_idusuario = u2.idusuario and u2.idusuario = u.idusuario) as nomepara FROM recado r, usuario u WHERE r.de_idusuario = u.idusuario Mas ainda to achando estranho! :unsure: P.S. posta os erros que está dando ai!! Abs. Progr'amador. ;)

Realmente s3c, faz sentido o seu questionamento (caiu a ficha) :) Mas acho que nem mesmo o "dono dos porcos" consegue entender essas coisas, São tantas funçoes, procedimentes, etc, etc, ect..., que algumas acabam se atropelando (bug) se é que podemos chamar isso de bug, acho que não. né??? levando em consideração que eu comentei num post anterior, estaria executando como se fosse um IF, se True entra no loop, se False não entra. :huh: Abs. Progr'amador. ;)

Olá Aghata, No Table abre a tabela "crua" com todos os registro sem nenhuma condição e tals, mas com o Query você pode usar condições com a calsula WHERE tipo "select * from tabelaTeste Where Campo = 'qualquercoisa' ", entre outras mil utilidades, entende!? Quais dessas propriedade você vai precisar usar???? Abs. Progr'amador ;)

Olá schaukoski, Alem do ; que o Thales falou falta outro end antes do else, e tirar um end do final Deixar um código bem arrumadinho e bem organizado é sempre bom, até mesmo pra encontra erros. procedure TForm1.Button1Click(Sender: TObject); begin usuariologado := Combobox1.text; if (dmData.atlogins.Locate('Senha', maskedit1.text, [loCaseInsensitive])) then begin if (combobox1.text) = dmData.atlogins.FieldByname('Nível').asstring then begin if combobox1.text = 'ADMINISTRADOR' then begin Form1.Hide; FormADM.SHowmodal; Close; end; if combobox1.text = 'RECEPCIONISTA' then begin Form1.Hide; FormREC.SHowmodal; Close; end; if combobox1.text = 'ENTREGADOR' then begin Form1.Hide; FormENT.SHowmodal; Close; end; end else begin label3.caption := ' * Nível de acesso incompatível com usuário *'; combobox1.Text := ''; combobox1.SetFocus; end; end else begin label3.Caption := ' * SENHA INCORRETA * '; maskedit1.Text := ''; maskedit1.setfocus; end; end; Abs. Progr'amador.

Olá Valdecir, Eu nunca usei esse componente IB* Mas seria tipo assim: Usando IBQuery IBQuery1.Close; IBQuery1.SQL.Add('Select * From Tabela Where DTAVVCTO <:nData'); IBQuery1.Params[0].Value := Date; IBQuery1.Open; If not (IBQuery1.RecordCount > 0) then Application.Terminate; Abs. Progr'amador.

Olá Halfar, você dise que está dando erro, posta aí a rotina que você está usando, assim fica mais fácil de entender e ajudar. Abs. Progr'amador.

Olá Na propriedade KeyPreview do Form coloque True(no object inspector) procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char) begin if key = #13 then botaoClick(Sender); End; ou então basta colocar True na opção Default do botão (no object inspector) Abs. Progr'amador.

Da pra fazer o seguinte: Ao abrir ele verifica se tem registro, se tiver fica aberto se não tiver fecha, entendeu!? Abs. Progr'amador.

Olá Fredox, Eu já trabalhei com access em rede, eu fiz o seguinte: Criei Arquivo MDB que ficava numa máquina que servia com servidor, só com as tabelas, e criei um outro que ficava nas máquinas clientes, nesse eu criei tabelas vinculadas que funciona com um atalho pro que está no servidor. E com isso eu nunca tive problema. Abs. Progr'amador.

Olá, Que componente você está usando pra fazer a conecção com o banco? voce poderia usar um query por exemplo: Query1.Close; Query1.Sql.Clear; Query1.Sql.Add('select * from tabela where cliente = '+''''+Edit1.text+''''+''); Query1.Open; Abs. Progr'amador.

:unsure: No Object Inspector do Label tem a propriedade Transparent. Abs. Progr'amador.

Ele entra num loop infinito. Eu acho que é tipo: ele está "validando" o While, se você colocar um False ele não entra no loop. Abs. Progr'amador.

Olá s3c, Acredito que não seja isso, eu fiz aqui e deu certo, acho que o erro é no código do cara mesmo. --------- Valdecir, Posta sua unit inteira pra que possamos da uma olhada, ok? ABs. Progr'amador.

Ola Arckyz, Tente assim: procedure TForm1.txt_perguntaKeyPress(Sender: TObject; var Key: Char); begin if key = '.' then txt_resposta.text := txt_pergunta.text; end; procedure TForm1.txt_respostaKeyPress(Sender: TObject; var Key: Char); begin if key = '.' then txt_pergunta.text := txt_resposta.text; end; Abs. Progr'amador.

Não, não, não colega!!!, você é brasileiro e "brasileiro não desiste nunca" :D tente assim: Procedure TFRacesso.CriaStartup(ControleFinanceiro : String); var Reg : TRegistry; Begin Reg := TRegistry.Create; Reg.RootKey := HKEY_LOCAL_MACHINE; Reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run', True); Reg.WriteString(ControleFinanceiro, '"' + ParamStr(0) + '"'); Reg.CloseKey; Reg.Free; End; Abs. Progr'amador.