ZueRa

Não sei se posso até saber qual o erro rs como o amigo Jhonas disse, poste ele para vermos.

Olá amigo, boa tarde. Dê uma olhada neste post: http://forum.imasters.uol.com.br/index.php?showtopic=197435 e neste artigo: http://www.activedelphi.com.br/print.php?sid=274 provavelmente irão ajudar. Abraço.

Olá Pablo. Analizando o seu código eu não percebi o uso de algum método para ativar a tabela. É como o amigo acima disse: Table.Edit (para edição dos dados) Table.Open (para inserção dos dados) na verdade José o Append só vai direcionar o ponteiro no último registro da tabela. Só que, para tabelas indexadas isto não faz muita diferença. Tente assim caso use o Append: Table1.Open; Table1.Append; Abraço.

Qual parte não entendeu? Sobre seu programa: me parece um kl ou algo parecido. Rs, não esta me cheirando boa coisa.

Bom, sobre o primeiro método qual é o nome da tabela? Observe: dm.pontuacao.post; não seria: dm.tbpontuacao.post; Não seria assim? Outra coisa por talvez ele não estar salvando nada no primeiro source: você está inicializando este método (dbedit1.text:=label1.caption;) em algum lugar? Por exemplo: onKeyPress, PressButton algo assim. Sobre o erro: DataSet not in edit or insert mode. Ele está informando que seu DataSet não está em modo de inserção ou edição. Coloque o código completo da sua Unit amigo. Abraço.

Olá Micheus, Eder Moraes. Bom, primeiramente obrigado por ajudar. Testei aqui de todas as formas possíveis, mas continua dando "type mismatch in expression '.'". Só que, não acho onde isto possa estar acontecendo. Eder sobre o erro eu sei que é em algum lugar na instrução SQL, porém, ela é gerada automaticamente pelo UpdateSQL. Então ele as gerou erroneamente? Abraço.

Já resolveu? :blink:

Olá amigo, bom dia. Poste o código que está usando para salvar os dados? E qual o erro lhe é apresentado? P.S: sobre ao clicar no DBEdit e a informação é apagada, se não me engano isto é comum, pelo menos no PARADOX.

Só adicionando: acho que aparecia este erro (cannot modify...) por ser executado este código: Dmdados.Qaddobs.SQL.Text := 'select * from cfg as c, cfgc as f where f.Codigo ='+ QuotedStr(Edconsobs.Text) +' and c.Nfunc ='+ QuotedStr(Fprogram.DBEdit2.Text); ou seja, estou fazendo referência a duas tabelas. Se não me engano este tipo de consulta deixa o DataSet em ReadOnlye = ture. Porém, mesmo após a consulta colocando o RequestLive = true entre outros, dá na mesma. Talvez na hora de editar há como resolver isto sem a ajuda do SQL Update e, sem aparecer este erro, claro.

Olá Micheus. Veja bem, só estou usando o UpdateSQL pelo fato de que quanto eu ia colocar a tabela no modo de Edição aparecia aquele errinho típico: "Cannot modify a read-only TDataSet" (algo assim). Mesmo que o RequestLive da Query estivesse como true, mostrava isto. Não achei outra solução e o código estava certinho (imagino eu). Se você achar que tem outra solução além do UpdateSQL, ou para parar de mostrar esta mensagem, seria de grande ajuda. Abraço.

Olá amigo, boa noite. Olha não entendi bem o que você disse. Sobre o processo de selecionar no DBGrid e mostrar a linha resultante no DBLookUpComboBox há como sim, basta ligar este DBLookUpComboBox ao mesmo DataSource que se encontra ligado o DBGrid. Abraço.

Tentei inicializar os valores, porém, não consegui. Quem puder ajudar, agradeço.

Não entendi Micheus. Mas, acho que os campos/parâmetros não estão sendo inicializados.

Olá Micheus, bom dia. O código para o UpdateSQL2 está assim: Modify update cfgc set Codigo = :Codigo, Dtregistro = :Dtregistro, Obsregistro = :Obsregistro, Obsstatus = :Obsstatus where Codigo = :OLD_Codigo and Dtregistro = :OLD_Dtregistro and Obsregistro = :OLD_Obsregistro and Obsstatus = :OLD_Obsstatus Insert insert into cfgc (Codigo, Dtregistro, Obsregistro, Obsstatus) values (:Codigo, :Dtregistro, :Obsregistro, :Obsstatus) Delete delete from cfgc where Codigo = :OLD_Codigo and Dtregistro = :OLD_Dtregistro and Obsregistro = :OLD_Obsregistro and Obsstatus = :OLD_Obsstatus Só uma observação: deixei de gerar o código SQL para os campos com (*) na tabela. Grande abraço.

Boa noite! Estou tendo um problema ao salvar um registro em meu bd. Estou usando Query + UpdateSQL. O erro é o seguinte: abro um registro, seleciono o que quero modificar, modifico e, ao clicar em salvar aparece a mensagem (Type mismatch in expression .'.). Porém não consigo achar onde possa estar errado, alguém poderia me ajudar? Seção do código para salvar procedure TFaddobs.SpeedButton2Click(Sender: TObject); var pw_ansichar_add : PAnsiChar; l_receive : string; begin if (Dmdados.Qaddobs.State in [dsInactive]) then begin Application.MessageBox('Primeiro adicione um novo registro para ser salvo.','Goldner',MB_ok + MB_defbutton1 + MB_iconexclamation); Abort; end; Dmdados.Qaddobs.Active := true; Dmdados.Qaddobs.ApplyUpdates; //também já tentei o ApplyUpdates em baixo do Post Dmdados.Qaddobs.Post; //Dmdados.UpdateSQL2.DataSet.Post; //Dmdados.Qaddobs.ApplyUpdates; DBEdit1.Text := Fprogram.DBEdit1.Text; l_receive := DBEdit1.Text; pw_ansichar_add := PAnsiChar('Registro salvo com sucesso! Código: ('+ l_receive +')'); Application.MessageBox(pw_ansichar_add,'Goldner',MB_ok + MB_defbutton1 + MB_iconexclamation); //Dmdados.Qaddobs.Close; //Dmdados.UpdateSQL1.DataSet.Post; BlockButtons; Desde já agradeço, Thiago.

Olá amigo boa noite. Acho que possa fazer assim: procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if (Length(Edit1.Text) > 11) then begin //abre o form ShowMessage('Você digitou 13 números!'); end; end; Vide que este procedimento foi testado no evento onKeyPress do Edit. Só adaptar ao seu uso. Só para ficar um pouco melhor, faça uma condição para se certificar que o usuário irá digitar apenas números. Dessa forma: procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not (key in ['0'..'9', #8]) then begin Application.MessageBox('Por favor digite apenas números!','titulo',MB_ok + MB_defbutton1 + MB_iconerror); Abort; end else begin if (Length(Edit1.Text) > 11) then begin //abre o form ShowMessage('Você digitou 13 números!'); end; end; end; Recomendo mais assim do que na forma anterior que lhe apresentei. Qualquer coisa posta aí. Grande abraço.

Olá Jhonas, boa noite. Obrigado pelo código e explicação. Serviu direitinho, valeu mesmo! Vou analisar ele e tirar minhas conclusões de como foi feito isto, devo uma! Grande abraço.

Boa tarde! Como poderei fazer um procedimento que conte quantos números há em um arquivo de texto? Exemplo tenho num arquivo X: 2 4 2 2 2 sendo assim, ao clicar num botão ele contasse quantos números há nele. No caso: (4) - números 2 (1) - número 4 Agradeço desde já, Thiago.

Olá amigo, bom dia. Acredito que para abrir um programa você possa fazer assim: procedure TForm1.Button1Click(Sender: TObject); begin ShellExecute(Handle, 'open', 'caminho do prog.',nil,nil,SW_NORMAL); end; Basta modificar ao seu uso. Caso queira saber mais sobre o ShellExecute e seus parâmetros, vide ShellExecute (no Help [Delphi] - Windows SDK). Grande abraço!

Olá amigo, boa noite. Veja se isto lhe ajuda: http://www.devmedia.com.br/articles/viewcomp.asp?comp=453 http://www.delphi.eti.br/ver_dica.php?id=3922 Grande abraço.

Olá Jhonas. Resolvi aqui, a minha instrução SQL estava correta. De qualquer forma obrigado pela ajuda ;) Thiago.

Seria exatamente isto. Só para esclarecer mais um pouco: o programa que estou fazendo tem um form para cadastro/pesquisa de funcionários e outro para cadastro/pesquisa de observações. Vamos supor que eu abra o programa, seleciono o funcionário Thiago. Vou para a parte de observações e cadastro uma observação, esta vai ser registrada no código 35. Agora eu vou para a parte de cadastro/pesquisa de funcionários, seleciono outro, o funcionário Flávio. Vou para o form de cadastro/pesquisa de observações, e coloco o código 35. (era para se eu pesquisar qualquer código que não seja o do funcionário Flávio desse erro, porém, ele retorna dados de outros funcionários). Entende? Grande abraço e obrigado por enquanto. P.S: o SQL que postei está errado?

Olá Jhonas. Mas, veja bem, eu quero que se eu colocasse o código de outro cliente que não seja o que esteja selecionado no momento, não retornasse nada. Exemplo: cliente x selecionado - digitei o código 20 (que é o código da observação do cliente Y) : não retornasse nada. Porém, ele retorna. É isto que estou tentando explicar, se puder ajudar, agradeço. Thiago.

Boa noite pessoal. Bom, estou tendo um probleminha em minha consulta SQL. O programa em que ela está inserida se baseia no seguinte: o usuário seleciona o cliente X, clica em adicionar observações, depois escreve uma observação qualquer e salva. (vamos supor que este registro fique salvo com o código 10). Após isto ele seleciona outro cliente, o cliente Y e pesquisa alguma observação dele, porém, ao colocar o código 10 ele retorna as observações do Cliente X. Este é o porém: eu quero que ele me mostre apenas os resultados provenientes do cliente Y (ou qualquer um que o usuário selecionar). Só que, ele me mostra os registros de qualquer um. Se eu estiver com o cliente N selecionado e procurar informações do cliente X ele vai me mostrar. Como posso resolver isto? Estou fazendo assim: begin Dmdados.Qaddobs.Close; Dmdados.Qaddobs.SQL.Clear; Dmdados.Qaddobs.SQL.Text := 'select Codigo, Nfunc, Obsregistro from cfg as c, cfgc as f where f.Codigo ='+ QuotedStr(Edconsobs.Text) +' and c.Nfunc ='+ QuotedStr(Fprogram.DBEdit2.Text); end; Obrigado por hora, Thiago.

Poste o código do procedimento feito para salvar. Abraço.