Fórum SALVA VÁRIOS REGISTROS #585466
30/08/2017
0
Olá galera, estou com dificuldade no seguinte caso estou desenvolvendo um sistema de distribuição de itens por escola
o que eu quero fazer é salva o nome da escola e vários itens
ex
escola antoniano Andrade fosceca
régua
livro
boracha
no banco de dados está ok as foreng key
no delphi está assim
with DataModule1.tbl_distribuicao do // preenche as combobox, endereço, cidade, bairro
begin
Close;
SQL.Clear;
sql.Add('SELECT * FROM DISTRIBUICAO_KITS WHERE ID_ESCOLA ='+cbb_distribuidos.Text) ;
Open;
while Not DataModule1.tbl_distribuicao.Eof do
begin
if (cbb_kits_distribuidos.Items.IndexOf(DataModule1.tbl_distribuicaoid_kits.AsString) = -1) then
cbb_kits_distribuidos.Items.Add(DataModule1.tbl_distribuicaoid_kits.AsString);
Next;
end;
end;
só que aparece números
o que eu quero fazer é salva o nome da escola e vários itens
ex
escola antoniano Andrade fosceca
régua
livro
boracha
no banco de dados está ok as foreng key
no delphi está assim
with DataModule1.tbl_distribuicao do // preenche as combobox, endereço, cidade, bairro
begin
Close;
SQL.Clear;
sql.Add('SELECT * FROM DISTRIBUICAO_KITS WHERE ID_ESCOLA ='+cbb_distribuidos.Text) ;
Open;
while Not DataModule1.tbl_distribuicao.Eof do
begin
if (cbb_kits_distribuidos.Items.IndexOf(DataModule1.tbl_distribuicaoid_kits.AsString) = -1) then
cbb_kits_distribuidos.Items.Add(DataModule1.tbl_distribuicaoid_kits.AsString);
Next;
end;
end;
só que aparece números
Jose Silva
Curtir tópico
+ 0
Responder
Post mais votado
04/09/2017
Substitua o ' * ' do select pelos campos que deseja exibir. Ex.
Quando inserir o comando, coloque os campos que deseja na descrição
Faça o teste e reporte. Mais uma coisa, na próxima postagem lembre-se de colocar o destaque o
Abraços e sucesso!
select id, distribuidor, detalhes from tbl_distribuicao
Quando inserir o comando, coloque os campos que deseja na descrição
cbb_kits_distribuidos.Items.Add(DataModule1.tbl_distribuicaoid_kits("id").AsString ; DataModule1.tbl_distribuicaoid_kits("distribuidor").AsString);
Faça o teste e reporte. Mais uma coisa, na próxima postagem lembre-se de colocar o destaque o
Insira o código </>
Abraços e sucesso!
Luiz Vichiatto
Responder
Gostei + 1
Mais Posts
31/08/2017
Jose Silva
Olá galera, estou com dificuldade no seguinte caso estou desenvolvendo um sistema de distribuição de itens por escola
o que eu quero fazer é salva o nome da escola e vários itens
ex
escola antoniano Andrade fosceca
régua
livro
boracha
no banco de dados está ok as foreng key
no delphi está assim
with DataModule1.tbl_distribuicao do // preenche as combobox, endereço, cidade, bairro
begin
Close;
SQL.Clear;
sql.Add('SELECT * FROM DISTRIBUICAO_KITS WHERE ID_ESCOLA ='+cbb_distribuidos.Text) ;
Open;
while Not DataModule1.tbl_distribuicao.Eof do
begin
if (cbb_kits_distribuidos.Items.IndexOf(DataModule1.tbl_distribuicaoid_kits.AsString) = -1) then
cbb_kits_distribuidos.Items.Add(DataModule1.tbl_distribuicaoid_kits.AsString);
Next;
end;
end;
só que aparece números
galera eu refiz o codigo no heidsql mostra tudo ok seleciona a escola e todos itens que ele cadastrou mas no dellphi não mostra da erro o que eu quero fazer é salva o nome da escola e vários itens
ex
escola antoniano Andrade fosceca
régua
livro
boracha
no banco de dados está ok as foreng key
no delphi está assim
with DataModule1.tbl_distribuicao do // preenche as combobox, endereço, cidade, bairro
begin
Close;
SQL.Clear;
sql.Add('SELECT * FROM DISTRIBUICAO_KITS WHERE ID_ESCOLA ='+cbb_distribuidos.Text) ;
Open;
while Not DataModule1.tbl_distribuicao.Eof do
begin
if (cbb_kits_distribuidos.Items.IndexOf(DataModule1.tbl_distribuicaoid_kits.AsString) = -1) then
cbb_kits_distribuidos.Items.Add(DataModule1.tbl_distribuicaoid_kits.AsString);
Next;
end;
end;
só que aparece números
begin
with DataModule1.tbl_distribuicao do // preenche as combobox, endereço, cidade, bairro
begin
Close;
SQL.Clear;
sql.Add(''''select distribuicao_kits.id_escola, escolas.escola, kits.kits from distribuicao_kits join kits on kits.id = distribuicao_kits.id_kits join escolas on escolas.id = distribuicao_kits.id_escola where id_escola =''''+cbb_distribuidos.Text) ;
Open;
while Not DataModule1.tbl_distribuicao.Eof do
begin
if (cbb_kits_distribuidos.Items.IndexOf(DataModule1.tbl_distribuicaoid_kits.AsString) = -1) then
cbb_kits_distribuidos.Items.Add(DataModule1.tbl_distribuicaoid_kits.AsString);
Next;
end;
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)