VERİTABANINA RESİM EKLEME

[kohlil]

VERİTABANINA RESİM EKLEMEK İSTİYORUM.. MESELA RESİM DİYE BİR FIELDIM VAR... RESMİ ORAYA EKLEMEK İSİTİYORUM. DAHA SONRA BEN BU RESMİ BAŞKA BİR FORMDA KAYITI BULDUĞUMDA GÖSTERMEK İSTİYORUM. BANA KÜÇÜK BİR ÖRNEKLE YARDIMCI OLABİLİRMİSİNİZ..

ŞİMDİDEN TEŞEKKÜRLER...

[fduman]

Merhaba kohlil,

Internette büyük harflerle yazmak bağırmak anlamına gelir. Hem de okunması daha zordur. Buna dikkat lütfen.

Sorduğun sorularda, olabildiğince fazla detayı vermeye çalışmalısın. Bu sorunda hangi veritabanını kullandığını yazmadığın için net bir cevap gelmeyebilir.

Sorun daha önce forumda defalarca yanıtlandı. Hızlı yanıt için Arama bağlantısından aramanı tavsiye ederim.

Ben senin yerine aradım!

viewtopic.php?t=8887

Bu başlık altında işine yarayabilecek şeyler mevcut.

Kolay gelsin.

[kohlil]

çok teşekkür ederim aradığım buydu... kolay gelsinnn

[kohlil]

resim ekleme olayını dediğiniz gibi yaptım. fakat benim bir kayıt arama formum var. orda kayıtı bulduğum zaman image nesnesinde resmi göremiyorum.

yardımcı olabilirmisiniz..

[fduman]

Olabiliriz. Ancak hala hangi veritabanını kullandığını söylemedin. Ayrıca bu soruyu farklı bir başlık altında sorman daha doğru. Lütfen aklına gelen bütün detayları sorunda yaz. Yapabiliyorsan ilgili yerin kaynak kodunu da gönder veya hangi bileşenleri kullandığını belirt.

[kohlil]

access veritabanı kullanıyorum.

bir image, bir popupmenu ve aradığım kayıdı bulduğum zaman listeyen bi dbgridim var aramayı yapıyorum kayıtı buluyo bütün bilgiler geliyo fakat sadece resim gelmiyo. resmin bulunduğu yol veritabanında kayıtlı.


kaynak kodlarım yanımda olmadığı için yollayamıyorum

[fduman]

Resmin yolunu kaydettiysen, bu yolu kullanarak Image içine resmi yükleyen kodu yazmalısın. Eğer yazdıysan buraya gönder bir bakalım.

[kohlil]

kayıt formuma şu kodları yazdım;
procedure Tfrmkayit.Resimekle1Click(Sender: TObject);
begin
if opendialog1.Execute then
begin
image1.Picture.LoadFromFile(opendialog1.FileName);
end;
end;

resim ekle butanuna ;
adoquery1.Edit;
adoquery1.fieldbyname('resim')AsString:= opendialog1.FileName
adoquery1.Post;

şimdi buraya kadar tamam çalışıyor..
fakat arama formuna geliyorum. kaydı buluyorum ama resimi göremiyorum.. arama formunada şu kodları yazdım;


arama.close;
arama.sql.clear;
arama.sql.add('select * from genel');
arama.sql.add('where type=1');
open;
image1.picture.loadfromfile(arama.fieldbyname('resim').asstring);


şeklinde kod yazdım.

lütfen yardım edin...

[kohlil]

resmin yolunu veritabanına kaydediyorum... arama yaptığımda gelen ilk kayda ait resmi gösteriyor. diğer kayıtlarda dolaşıyorum ama resim sabit kalıyor... kodlarım böle ;

procedure Tfrm_arama.LMDButton1Click(Sender: TObject);
begin
with arama do begin
close;
sql.clear;
sql.Add('select * from genel');
SQL.ADD('WHERE genel.TURU=1');
if CheckBox23.Checked = TRUE Then Begin
Sql.Add('and genel.TYPE="SATILIK"');
End;
if CheckBox24.Checked = TRUE Then Begin
Sql.Add('and genel.TYPE="KİRALIK"');
End;
OPEN;
Image1.Picture.LoadFromFile(arama.fieldbyname('resim').AsString);

if arama.RecordCount=0 then begin
showmessage('ARADIĞINIZ KRİTERLERE UYGUN KAYIT BULUNAMADI!!!') ;
END;
end;
END;

[undefined]

sql 'in AfterScroll eventine

Kod: Tümünü seç

Image1.Picture.LoadFromFile(arama.fieldbyname('resim').AsString); 

yaz. Böylelikle kayıtta dolaşıldığı zaman image1 e resim tekrar yüklenecek

[aslangeri]

s.a.
arkadaşlar sadece benim mi dikkatimi çekiyor.

* Lütfen Mesajın ve başlığın tümünü büyük harflerle yazmayın. Büyük harflerle yazmanın net kullanıcıları arasında bağırmak anlamına geldiğini unutmayın.

@kohlil lütfen mesajın başlığını düzeltirmisin.
kolay gelsin.