SALVA VÁRIOS REGISTROS
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
Curtidas 0
Melhor post
Luiz Vichiatto
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!
GOSTEI 1
Mais Respostas
Jose Silva
30/08/2017
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;
GOSTEI 0