ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

Gravar caminho da foto no banco de dados Delphi (RESOLVIDO)

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
omor
Membro Junior
Membro Junior


Registrado: Segunda-Feira, 12 de Novembro de 2012
Mensagens: 383

MensagemEnviada: Sex Nov 30, 2012 11:20 am    Assunto: Gravar caminho da foto no banco de dados Delphi (RESOLVIDO) Responder com Citação

Olá estou tentando gravar o caminho da foto no banco de dados com o seguinte código só que está retornando erro

begin
if AbreFoto.Execute then
begin
Image1.Picture.LoadFromFile(AbreFoto.FileName);
DataModule1.TabelaProdutosFoto.value:= AbreFoto.FileName;(erro nesta linha)
end;
end;

Resolvido

uso o banco de dados access

criei um campo "Caminho" ao invés de "Foto"
e coloquei tipo "text" ao invés de "blob"

meu código no delphi ficou assim no botão procurar foto

begin
if AbreFoto.Execute then
begin
DataModule1.TabelaProdutos.Open;
DataModule1.TabelaProdutos.Edit;
Image1.Picture.LoadFromFile(AbreFoto.FileName);
DataModule1.TabelaProdutosCaminho.AsString:= AbreFoto.FileName;

end;
end;


onde "AbreFoto" é o componente TOpenDialog


Editado pela última vez por omor em Sex Nov 30, 2012 5:05 pm, num total de 1 vez
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
GustavoAlmeidaFerreira
Novato
Novato


Registrado: Quinta-Feira, 25 de Outubro de 2012
Mensagens: 53

MensagemEnviada: Sex Nov 30, 2012 11:46 am    Assunto: Re: Gravar caminho da foto no banco de dados Delphi XE3 Responder com Citação

omor escreveu:
Olá estou tentando gravar o caminho da foto no banco de dados com o seguinte código só que está retornando erro

begin
if AbreFoto.Execute then
begin
Image1.Picture.LoadFromFile(AbreFoto.FileName);
DataModule1.TabelaProdutosFoto.value:= AbreFoto.FileName;(erro nesta linha)
end;
end;


Cara, tenta assim:
DataModule1.TabelaProdutos.insert;
DataModule1.TabelaProdutosFoto.asString:= AbreFoto.FileName;
DataModule1.TabelaProdutos.post;
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB