Merhaba öncelikle sizden ricam şu aşağıdaki siteden verileri veritabanına (siz hangi veritabanını tavsiyede ederseniz) almak ve dikkat edilirse orada at kodu var mesela ben 1den 25000 e kadar al diyip veritabanına kaydetmek istiyorum yapılırmı acaba yardımlarınızı bekliyorum saygılar. Böylelikle veritabanı oluşturmuş olurum.
http://www.tjk.org/S/S/KosuTarihi.aspx? ... opUp=1&l=1
netten veri almak
Re: netten veri almak
kimse cevap vermeyecek sanırım
Re: netten veri almak
yapılabilir, sorun yok. excelde bile tutulur. aradığınız cevap buysa.
Re: netten veri almak
acces te yapmak istiyorum nasıl yapıldığı ile ilgili kodları verirmisiniz visual basicte yeni öğrenmeye çalışıyorum veritabanı olarak access daha uygun sanırım görsel program olarak visual basic olarak seçtim sizcede uygunmu. Öğrenmek için en iyisi örnek program yazarak öğrenilir herhalde. Hem yukarıdaki nasıl yapılır acaba .
Re: netten veri almak
bu forum genelde delphi ağırlıklı. bu nedenle vb üzerine konuşulan sitelere başvurursanız daha hızlı cevap alırsınız. zaten sitede arama yaparsanız döviz kur bilgilerinin internetten nasıl alındığını görebilirsiniz. ondan yararlanabilirsiniz.
Re: netten veri almak
Form üzerine Indy bileşenlerinden TidHTTP bileşeni koyun ve adını KUROKU olarak değiştirin. Sonra forma 1 buton ve 4 tanede label ekleyin butona çifttıklayarak aşaığdaki kodu buton altına yazın.
procedure TForm1.Button1Click(Sender: TObject);
var
DolarAlis,DolarSatis,EuroAlis,EuroSatis,merkezbankasisite:String;
begin
try
Merkezbankasisite:=kuroku.Get('http://www.tcmb.gov.tr/kurlar/today.html');
except
ShowMessage('Merkez Bankasina baglanilamiyor!!!');
exit;
end;
Dolaralis:=Trim( copy( Merkezbankasisite,810,6) );
DolarSatis:=Trim( copy( Merkezbankasisite,823,6) );
EuroAlis:=Trim( copy( Merkezbankasisite,1083,6) );
EuroSatis:=Trim( copy( Merkezbankasisite,1096,6) );
Label1.Caption:='Dolar Alış : '+DolarAlis;
Label2.Caption:='Dolar Satış : '+DolarSatis;
Label3.Caption:='Euro Alış : '+EuroAlis;
Label4.Caption:='Euro Satış : '+euroSatis;
end;
Örneği incelerseniz değişik türevlerini yazabilirsiniz. Eğer veritabanına yazmak istiyorsanız labele aldıgınız bir veriyi DBEdit componentlerine alıp program kapanırken yada tek tuş ile veri tabanına post edilebilir.
procedure TForm1.Button1Click(Sender: TObject);
var
DolarAlis,DolarSatis,EuroAlis,EuroSatis,merkezbankasisite:String;
begin
try
Merkezbankasisite:=kuroku.Get('http://www.tcmb.gov.tr/kurlar/today.html');
except
ShowMessage('Merkez Bankasina baglanilamiyor!!!');
exit;
end;
Dolaralis:=Trim( copy( Merkezbankasisite,810,6) );
DolarSatis:=Trim( copy( Merkezbankasisite,823,6) );
EuroAlis:=Trim( copy( Merkezbankasisite,1083,6) );
EuroSatis:=Trim( copy( Merkezbankasisite,1096,6) );
Label1.Caption:='Dolar Alış : '+DolarAlis;
Label2.Caption:='Dolar Satış : '+DolarSatis;
Label3.Caption:='Euro Alış : '+EuroAlis;
Label4.Caption:='Euro Satış : '+euroSatis;
end;
Örneği incelerseniz değişik türevlerini yazabilirsiniz. Eğer veritabanına yazmak istiyorsanız labele aldıgınız bir veriyi DBEdit componentlerine alıp program kapanırken yada tek tuş ile veri tabanına post edilebilir.