| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
edsonpedro20
Novato
Registrado: Quarta-Feira, 2 de Outubro de 2013
Mensagens: 23
Localização: Maceió - AL
|
 Enviada: Ter Nov 26, 2013 10:24 am Assunto: Erro ao mover registro de uma Query para outra |
 |
|
Pessoal, estou tendo um probleminha na hora de passar um registro para outra query e vice versa. A mensagem de erro é a seguinte: Nenhum valor foi fornecido para um ou mais parâmetros necessários.
Ítens usados:
DataModule = Modulo_Dados
ADOQuery1 = Query_Membros
ADOQuery2 = Query_Ex
Código do Button para mover o registro da Query_Membros para a Query_Ex:
| Código: | procedure Tfrm_Membros_e_Ex.BitBtn2Click(Sender: TObject);
var
Num : SmallInt; //integer também funciona.
begin
if MessageDlg('Deseja remover o Membro?',mtinformation,[mbyes,mbNo],0) = mrNo then
exit;
Modulo_Dados.Query_Ex.open;
Modulo_Dados.Query_Membros.edit;
Modulo_Dados.Query_Ex.insert;
for Num := 0 to Modulo_Dados.Query_Membros.FieldCount - 1 do
Modulo_Dados.Query_Ex.Fields[Num].Assign(Modulo_Dados.Query_Membros.Fields[Num]);
Modulo_Dados.Query_Ex.post;
Modulo_Dados.Query_Membros.delete;
end; |
Código do Button para mover o registro da Query_Ex para a Query_Membros:
| Código: | procedure Tfrm_Membros_e_Ex.BitBtn3Click(Sender: TObject);
var
Num: SmallInt; //integer também funciona.
begin
if MessageDlg('Deseja tornar-lo Membro?',mtinformation,[mbyes,mbNo],0) = mrNo then
exit;
Modulo_Dados.Query_Membros.open;
Modulo_Dados.Query_Ex.edit;
Modulo_Dados.Query_Membros.insert;
for Num := 0 to Modulo_Dados.Query_Ex.FieldCount - 1 do
Modulo_Dados.Query_Membros.Fields[Num].Assign(Modulo_Dados.Query_Ex.Fields[Num]);
Modulo_Dados.Query_Membros.post;
Modulo_Dados.Query_Ex.delete;
end; |
|
|
| Voltar ao Topo |
|
 |
coiotetg
Aprendiz
Registrado: Segunda-Feira, 29 de Novembro de 2010
Mensagens: 124
|
| Enviada: Ter Nov 26, 2013 1:25 pm Assunto: |
|
|
Não sei se vai dar cero mas tenta assim:
no lugar de:
| Código: |
Modulo_Dados.Query_Ex.Fields[Num].Assign(Modulo_Dados.Query_Membros.Fields[Num]);
|
assim:
| Código: |
Modulo_Dados.Query_Ex.Fields[Num].Value := Modulo_Dados.Query_Membros.Fields[Num].Value;
|
|
|
| Voltar ao Topo |
|
|
marcos.thoma
Novato
Registrado: Quarta-Feira, 27 de Novembro de 2013
Mensagens: 5
|
| Enviada: Qua Nov 27, 2013 9:58 am Assunto: |
|
|
1 - Tente usar value, conforme dito pelo coiotetg.
2 - Não de Edit antes do Delete.
No lugar de:
| Código: | Modulo_Dados.Query_Ex.open;
Modulo_Dados.Query_Membros.edit;
Modulo_Dados.Query_Ex.insert;
for Num := 0 to Modulo_Dados.Query_Membros.FieldCount - 1 do
Modulo_Dados.Query_Ex.Fields[Num].Assign(Modulo_Dados.Query_Membros.Fields[Num]);
Modulo_Dados.Query_Ex.post;
Modulo_Dados.Query_Membros.delete; |
Tente:
| Código: | Modulo_Dados.Query_Ex.open;
Modulo_Dados.Query_Membros.Open; //Não sei se estava carregando sua query
Modulo_Dados.Query_Ex.insert;
for Num := 0 to Modulo_Dados.Query_Membros.FieldCount - 1 do
Modulo_Dados.Query_Ex.Fields[Num].Value := Modulo_Dados.Query_Membros.Fields[Num].Value;
Modulo_Dados.Query_Ex.post;
Modulo_Dados.Query_Membros.delete; |
|
|
| Voltar ao Topo |
|
|
edsonpedro20
Novato
Registrado: Quarta-Feira, 2 de Outubro de 2013
Mensagens: 23
Localização: Maceió - AL
|
| Enviada: Sáb Nov 30, 2013 2:27 am Assunto: |
|
|
| marcos.thoma e coiotetg eu testei os códigos de vcs dois, mas ainda está dando a mensagem de erro :/ |
|
| Voltar ao Topo |
|
|
edsonpedro20
Novato
Registrado: Quarta-Feira, 2 de Outubro de 2013
Mensagens: 23
Localização: Maceió - AL
|
| Enviada: Ter Dez 03, 2013 12:21 am Assunto: |
|
|
| Alguém ai sabe o porquê que isso está acontecendo? pra me ajudar a terminar o projeto, ficarei grato pela ajuda. |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
