Como gravar Itens de CheckListBox no IBX6

Question

Pessoal, alguem sabe como fa�o para salvar os itens marcados de CheckListBox em uma tabela IBX ?

A rotina que estou usando � essa:

for i := 0 to Clb_qm.Items.Count-1 do
begin
if Clb_qm.Checked[i] = True then
BEGIN
dmbancos.IBQCad_Dst.ParamByName(�Pqm�).AsString :=
Clb_qm.Checked[i];
end

Faelcavalcanti · Answer

Cara depende do caso como voc� esteja atualizando, por exemplo imagine se existissem 800 registros no CheckListBox, a demora que seria. Mas de qualquer forma, voc� teria que utilizar outro componente ou forma que minimize este processo. Mas para resolver voc� poderia tentar algo do tipo.

var i : integer;
begin
  for i := 0 to CheckListBox.Count - 1 do begin
    // ... procedimento de pr�-condifura��o como: Limpar Buffers de Par�metros, registros, etc.
    Query.Prepared := False;
    Query.ParamByName(�CAMPO�).AsBoolean := CheckListBox.Checked; // neste caso especifiquei que o campo seria do tipo boolean
    Query.Prepared := True;
    // ... procedimentos de p�s-configura��o como ExecSQL, Master/Detail, etc.
  end;
end;

Interpretei o seu t�pico por um motivo de n�o estar atualizando os dados lan�ados dentro de um loop, caso esteja acontecendo um outro problema posterior especifique-o.

:wink:
Falow!

Edan · Answer

Rafael, estou colocando os procedimentos da query fora do loop

for i := 0 to clb_qm.Items.Count - 1 do begin
dmbancos.IBQCad_Dst.ParamByName(�pqm�).AsString :=
Clb_qm.Items[i];
end;
dmbancos.IBQCad_Dst.Prepare;
dmbancos.IBQCad_Dst.ExecSQL;
dmbancos.IBQCad_Dst.Close;
dmbancos.IBTransaction1.Commit;

, e exatamente nesta condi��o
Query.ParamByName(�CAMPO�).AsBoolean := CheckListBox.Checked;
na compila��o gera erro na express�o CheckListBox.Checked, ap�s o ponto ele n�o habilita a ap��o Checked, e estou usando char(1) na minha tabela, no meu CheckListBox eu tenho 6 op��es e estou usando o delphi 5.

Gandalf.nho · Answer

Em vez de CHAR(1), ser� que n�o funcionaria melhor com Smallint?...

Edan · Answer

Gandalf.nho, funcionou colocando como boolean, mas quando verifico no banco e no campo aparece somente -1, isso ocorre eu selecionando apenas 1 ou todos dados do meu checklistbox ?...

Faelcavalcanti · Answer

[quote:25633e1546=�edan�]Gandalf.nho, funcionou colocando como boolean, mas quando verifico no banco e no campo aparece somente -1, isso ocorre eu selecionando apenas 1 ou todos dados do meu checklistbox ?[/quote:25633e1546]Amigo quando mencionei com o CheckListBox, posi tinha interpretado os m�todos com o do CheckBox, ou seja, dentro de uma ListBox existem v�rios Checkbox, por isto naquele caso o m�todo n�o estava sendo visualizado. Mas quando ele aparece [b:25633e1546]-1[/b:25633e1546] � porque a informa��o solicitada n�o foi encontrada, ou fora do �ndice, ou n�o inicializado. No caso de utilizar Char voc� ainda poder� utiliz�-lo como um SmallInt de forma limitada como :[code:1:25633e1546]Query.ParamByName(�PQM�).AsString&#91;1&93; := CheckListBox.Items&91;i&93;.Index;[/code:1:25633e1546]N�o entendo porque utilizas como char, o que seria este campo PQM ???...

Edan · Answer

caro amigo faelcavalcanti, mudei no meu banco o campo que antes era char para smallint e dessa forma deu certo em termos, pois na leitura do meu checklistbox tanto faz se est�o marcados todos ou somente 1 item, ele grava no banco somente -1, talvez esse -1 seja porque na leitura ele come�a por 0.
E o pqm � o paramentro que estou passando na minha query.

for i := 0 to clb_qm.Items.Count-1 do begin
if clb_qm.Checked[i] then begin
// Neste ponto eu fa�o a checagem dos itens marcados
showmessage(�item checado �+inttostr(i));
// gravando a informa��o
dmbancos.IBQCad_Dst.ParamByName(�pqm�).AsBoolean :=
Clb_qm.Checked[i];
end
end;

Faelcavalcanti · Answer

Ok amigo. Fiquei repensando o porqu� de voc� estar fazendo desta forma por preocupa��o com a performace. You win! :wink: Falow!...

Edan · Answer

Voc� tem alguma sugest�o  :?: ,...

Dpinho · Answer

Neste codigo abaixo tento gravar todas as op��es do Cheklistbox, porem ele so grava o ultimo item, preciso que ele grave todos os itens.

[color=red:9f0bcfa9c6]//Gravar as permiss�es
for i := 0 to Checper.Count -1 do
Begin
DM.CDSForm.Locate(�Descricao�,Checper.Items.text ,[]);
p_Cod := DM.CDSUser.fieldByName(�Id_usuar�).ASInteger;
p_Filial := DM.CDSForm.FieldByname(�id_for�).AsInteger;
p_User := DM.CDSForm.FieldByName(�Nome�).ASString;
p_Senha := DM.CDSForm.FieldByname(�Descricao�).AsString;
if Checper.Checked[I] = True then
p_ADM := �T�;
if Checper.Checked[I] = True then
p_ADM := �F�;
with DM.SQLPermis do Begin
close;
sql.clear;
sql.Add(�Insert Into Permi_Usuarios (ID_Usuar,ID_Form, Nom_Form, Descricao,Chec) Values(:p_Cod,:p_Filial,:p_User,:p_Senha,:p_ADM)�);
Params[0].value := p_Cod;
Params[1].value := p_Filial;
Params[2].value := p_User;
Params[3].value := p_Senha;
Params[4].value := p_ADM;
ExecSQL();
end;
end;[/color:9f0bcfa9c6]

F�rum Como gravar Itens de CheckListBox no IBX6 #280684