 |
ActiveDelphi
.: O site do programador Delphi! :.
|
| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
daniel775
Profissional
Registrado: Quinta-Feira, 17 de Janeiro de 2013
Mensagens: 721
Localização: Amparo SP
|
 Enviada: Sex Mai 24, 2013 4:19 pm Assunto: [RESOLVIDO] MEMO GRAVANDO NO BANCO 2 VEZES |
 |
|
Boa tarde galera,
só pra vcs entenderem a minha rotina segue as telas abaixo
olha só o que acontece, estou apenas inserindo 1 registro, mas ele insere os outros tudo de novo
tenho certeza que há algo errado no codigo né, mas nao sei o que é :S
segue codigo:
| Código: | Var
i:integer;
begin
if Memotexto.Lines.Text = EmptyStr then
begin
ShowMessage('Não há nada para ser importado');
Abort;
end
else
for i:=0 to Memotexto.lines.count -1 do
begin
query1.Append;
query1.FieldByName('num_volume').asstring:=Memotexto.lines.strings[i];
query1.FieldByName('num_serie').asstring:=Memotexto.lines.strings[i];
query1.Post;
query3.Append;
query3.FieldByName('num_serie').asstring:=Memotexto.lines.strings[i];
query3.Post;
end;
begin
query4.SQL.Clear;
query4.SQL.Add('INSERT INTO auxiliar_inventario2');
query4.SQL.Add('( num_serie )');
query4.SQL.Add('select * from auxiliar_inventario1');
query4.ExecSQL;
end;
begin
Memotexto.Clear;
Memotexto2.Clear;
Editabrir.Clear;
Memotexto.text := '';
//Memotexto.text := \'\';
//Memotexto.Refresh;
//Application.ProcessMessages;
end;
MessageDlg('Importado com sucesso',mtInformation,[mbOk],0); |
OBRIGADO
_________________
"Água mole em pedra dura, tanto bate até q fura!", diz o filósofo...
"Essa !@#%& vai ter q funcionar", diz o programador.
Editado pela última vez por daniel775 em Seg Mai 27, 2013 9:16 am, num total de 1 vez |
|
| Voltar ao Topo |
|
 |
Batera
Colaborador
Registrado: Quarta-Feira, 23 de Julho de 2008
Mensagens: 4899
Localização: Maringá
|
| Enviada: Sex Mai 24, 2013 7:27 pm Assunto: |
|
|
| Qual é a Query que está ligada na DBGrid? |
|
| Voltar ao Topo |
|
|
daniel775
Profissional
Registrado: Quinta-Feira, 17 de Janeiro de 2013
Mensagens: 721
Localização: Amparo SP
|
| Enviada: Seg Mai 27, 2013 7:51 am Assunto: |
|
|
query1
| Código: | select * from pecas_inventario_cifa
|
query3
| Código: | select * from auxiliar_inventario1
|
query4
| Código: | | select * from auxiliar_inventario2 |
:S
Obrigado
_________________
"Água mole em pedra dura, tanto bate até q fura!", diz o filósofo...
"Essa !@#%& vai ter q funcionar", diz o programador. |
|
| Voltar ao Topo |
|
|
daniel775
Profissional
Registrado: Quinta-Feira, 17 de Janeiro de 2013
Mensagens: 721
Localização: Amparo SP
|
| Enviada: Seg Mai 27, 2013 9:15 am Assunto: |
|
|
batera, obrigado, mas ja vi o erro,
pois estava fazendo um insert na tabela toda em baixo O_O
Muito obrigado
_________________
"Água mole em pedra dura, tanto bate até q fura!", diz o filósofo...
"Essa !@#%& vai ter q funcionar", diz o programador. |
|
| Voltar ao Topo |
|
|
|
|
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
