accessten delphiye veri aktarımında hata.

[ayseonat]

Merhaba arkadaşlar. öncelikle hepinize ii çalışmalar dilerim.

Benim delphi ve access veritabanıyla yapmış olduğum bi projem var. access veritabanındaki alanlarım arasında P08 die bir alan var. bu alan string ve içerisinde nümerik bilgiler var. fakat bazı alanlarda ... die bilgiler var. ben bu ... bilgiye göre programımı yönlendirmek istiyorum.

Kod: Tümünü seç

var 
sayi08:string;
begin
goruntule.First; // kullandığım query
 while not goruntule.Eof do
 begin
 sayi08:=(goruntuleP08.asstring); 
  if (sayi08<>'...') then
  begin
     islemler; // yapmam gereken işlemleri yaptığım procedure
  end;
 goruntule.next;
 end;
end;

... 'ları bu şekilde yazıdğım zaman program hiç algılamıyor bunu. ve direk islemler procedure ünü çağırıyor. ...'ları chr(46)+chr(46)+chr(46) olarak yazıyorum yine anlamıyor. yani eğer karşısına ... gelirse işlem devam etmesin diyorum. ama o her seferinde veri tabanından farklı bişey okumuş gibi işlem yapıyor. yani veri tabanından ... ları alırken ... olarak alıyor. fakat işlem yapmaya gelince yapmıyor. bu sorunumu nasıl çözebilirim.

herkese ii çalışmalar.
[/code]

[sadettinpolat]

bu sorunu

Kod: Tümünü seç

if (sayi08<>'...') then 

satırına breakpoint (f5) koyarak çözebilirsiniz.

[rsimsek]

trim(..) kullanmanı tavsiye ederim. alanın boyutu daha uzun ise muhtemelen boşluklar içeriyordur.

Kod: Tümünü seç

 if (trim(sayi08) <> '...') then ... 

aslında sayi08 e atama yaparken başta trim leyebilirsiniz. Daha sonraki karşılaştırmalarda da ayrıca trim lemenize gerek kalmaz

Kod: Tümünü seç

var
  sayi08:string;
begin
  goruntule.First; // kullandığım query
  while not goruntule.Eof do
  begin
    sayi08 := trim(goruntuleP08.asstring);
    if (sayi08 <> '...') then
    begin
       islemler; // yapmam gereken işlemleri yaptığım procedure
    end;
    goruntule.next;
  end;
end;