José Rodrigo

OLá, estou desenvolvendo um projeto para fazer agendamento de exames, podem ser marcados varios exames da mesma pessoa, estou usando um CheckListBox só q na de salvar no banco de dados, salva no campo exame da tabela mais vai salvando um embaixo do outro dai os campos nome da tabela ficam em branco, queria dividir o campo exames da tabela e salvar todos de um certo paciente ou criar novos campos na tabela com os nomes dos exames e eles serem salvos nesses campos a partir de uma Checklistbox !! alguém pode me ajudar? OBRIGADO!

OBrigado deu certinho Resolvido OBrigado!!!

Tudo q foi levado em consideração na resposta acima esta correto... var i : integer; begin for i := 0 to CheckListBox1.Items.Count-1 do begin if CheckListBox1.Checked = true then begin dm.tb_agendamento.Last; dm.tb_agendamento.Append; dm.tb_agendamento.Edit; dm.tb_agendamentoExames.Value := CheckListBox1.Items.Names; dm.tb_agendamento.post; dm.tb_agendamento.ApplyUpdates(-1); dm.tb_agendamento.Next; end; end; TENTEI DA MANEIRA COLOCADA ACIMA E CONTINUA DANDO ERRO!! too many actual parameters

procedure TForm1.Button1Click(Sender: TObject); var i : integer; begin for i := 0 to CheckListBox1.Items.Count-1 do begin if CheckListBox1.Checked[i] = true then begin dm.tb_agendamento.Last; dm.tb_agendamento.Append; dm.tb_agendamento.Edit; dm.tb_agendamento.Value := CheckListBox1.Items.Names[i]; dm.tb_agendamento.post; dm.tb_agendamento.ApplyUpdates(-1); dm.tb_agendamento.Next; end; end; Coloquei da maneira citada acima e apareceu o seguite erro: Undeclared idenyifier 'Value' Se poder me ajudar.... obrigado!!

Olá, gostaria de saber se alguém pode me ajudar a salvar o conteudo de uma CheckListBox no Banco de dados.

Olá. Gostaria de saber como iniciar o Dbgrid 100 nada escrito!!! Obrigado!!

Jhonas Muito obrigado!!! Deu certinho Valeu mesmo...!!! RESOLVIDO!! OBRIGADO !!!! :D

Ainda Não achei solução para o problema!!! só quero pesquisar por nome e achar o maior codigo desse nome exemplo: NOMES CADASTRADOS: NOME COD JOSE 01 JOSE 03 JOSE 04 JOAO 02 NOME PESQUISADO: JOSE RESULTADO DA PESQUISA: NOME COD JOSE 04 Se alguém puder me ajudar obrigado!!!!

qr_pesquisa.Close; qr_pesquisa.SQL.Clear; dbgrid1.DataSource := ds_pesquisa; qr_pesquisa.SQL.Add('select MAX(Cod) MAXCod, Nome'); qr_pesquisa.SQL.Add('FROM tb_teste GROUP BY nome'); qr_pesquisa.SQL.Add('where nome = '''+edit1.text+''''); qr_pesquisa.Open; ShowMessage('Código do Cliente: ' + qr_pesquisa.FieldByName('MAXCod').AsString + ' / Nome do Cliente: ' + qr_pesquisa.FieldByName('Nome').AsString); Tentei desta forma coloquei o GROUP BY porque DEU UM ERRO E COLOQUEI PRA VER SE DAVA CERTO!!! DEU O SEGUINTE ERRO: "INVALID USE OF KEYWORD" oBRIGADO!!

Tentei o codigo citado acima e não deu certo..!!!

OLá, Gostaria de fazer uma pesquisa no banco de dados e trazer o maior Codigo de um nome q será digitado em um EDIT !! qr_pesquisa.Active := false; qr_pesquisa.SQL.Clear; dbgrid1.DataSource := ds_pesquisa; qr_pesquisa.SQL.Add ('select MAX(Cod) MAXCod,Nome FROM tb_teste group by nome'); qr_pesquisa.Active := true; ShowMessage('Código do Cliente: ' + qr_pesquisa.FieldByName('MAXCod').AsString + ' / Nome do Cliente: ' + qr_pesquisa.FieldByName('Nome').AsString); // mensagem com maior codigo e nome !!! edit3.text:=qr_pesquisa.FieldByName('MAXCod').AsString; // joga o maior codigo para o edit!! Tentei desse jeito mais nem deu certo!!! qr_pesquisa.Active := false; qr_pesquisa.SQL.Clear; dbgrid1.DataSource := ds_pesquisa; qr_pesquisa.SQL.Add ('select MAX(Cod) MAXCod, Nome("'+edit1.text+'%")FROM tb_teste GROUP BY nome'); qr_pesquisa.Active := true; ShowMessage('Código do Cliente: ' + qr_pesquisa.FieldByName('MAXCod').AsString + ' / Nome do Cliente: ' + qr_pesquisa.FieldByName('Nome').AsString); Esse jeito q eu fiz traz o maior codigo e o nome da pessoa com maior codigo, queria Pesquisar por nome.... e q aparecesse o maior codigo desse nome pesquisado no EDIT!!! Se alguém puder me ajudar Obrigado!!!