Excelden veri alırken bir colonun boş gelmesi

[a_self_lion]

selam arkadaşlar bütün kodlarımı gönderiyorum,
Bir excel sayfam var adı veri içerisinde
aşağıda gördünüz colonlarda verilerim var

'GELEN' İLE 'IADE' colonum aynı tip veriler var ve ikiside excelde metin.

fakat ben bu verileri çektiğim zaman 'GELEN' kısmında bütün veriler gelirken 'IADE' kısmında gelmiyor.

Kod: Tümünü seç

DGMlzGelisGoruntu.Columns.Add;
DGMlzGelisGoruntu.Columns[8].FieldName := 'IADE';
DGMlzGelisGoruntu.Columns[8].Title.Caption:='IADE';
DGMlzGelisGoruntu.Columns[8].Width:=40;
DGMlzGelisGoruntu.Columns[8].Color:=clInfoBk;

Burda DGMlzGelisGoruntu.Columns[8].FieldName := 'IADE'; ne yapmalıyımda o verilerde gelsin boş geliyor diğerleri normal geliyor arkadaşlar anlamadım. yardımcı olabilirseniz sevinirim.

Kod: Tümünü seç

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, cxLabel, cxTextEdit, cxControls, cxContainer, cxEdit,
  cxMaskEdit, cxButtonEdit, Grids, DBGrids;

type
  TForm3 = class(TForm)
    DGMlzGelisGoruntu: TDBGrid;
    cxButtonEdit1: TcxButtonEdit;
    cxTextEdit1: TcxTextEdit;
    cxTextEdit2: TcxTextEdit;
    cxLabel1: TcxLabel;
    Button1: TButton;
    Edit1: TEdit;
    Button2: TButton;
    OpenDialog1: TOpenDialog;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure cxButtonEdit1PropertiesButtonClick(Sender: TObject;
      AButtonIndex: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

uses
unit2,unit1;


{$R *.dfm}

procedure TForm3.Button2Click(Sender: TObject);
begin
 opendialog1.InitialDir:= ExtractFilePath(application.ExeName);
  if opendialog1.Execute then
   edit1.Text:=opendialog1.FileName;

end;

procedure TForm3.Button1Click(Sender: TObject);
var
   str:string;
   Kodu:string;

begin

  kodu := cxTextEdit1.Text;


   //xls Veritabanına bağlan
   str:=Edit1.Text;
   Dm.AConMlzGelisGoruntu.Connected:=False;
   Dm.AConMlzGelisGoruntu.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;' +
                  'Data Source=' + str + ';' +
                  'Extended Properties=Excel 8.0;';
   try
      Dm.AConMlzGelisGoruntu.Open;
   except
      ShowMessage('Hata....Excele bağlanamadı...');
      raise;
   end;

   //personel tabloyu seç
   Dm.AQMlzGelisGoruntu.Close;
   Dm.AQMlzGelisGoruntu.SQL.Clear;
   Dm.AQMlzGelisGoruntu.SQL.Add('select * from [veri$] WHERE MLZ_KOD LIKE '''+ kodu +''' '); // and SAYI = '''+ cxTextEdit2.text +''' ');
   Dm.AQMlzGelisGoruntu.Open;

 DGMlzGelisGoruntu.Columns.Clear;

   DGMlzGelisGoruntu.Columns.Add;
   DGMlzGelisGoruntu.Columns[0].FieldName:='S_NO';
   DGMlzGelisGoruntu.Columns[0].Title.Caption:='S_NO';
   DGMlzGelisGoruntu.Columns[0].Width:=35;
   DGMlzGelisGoruntu.Columns[0].Title.Font.Color:=clRed;

   DGMlzGelisGoruntu.Columns.Add;
   DGMlzGelisGoruntu.Columns[1].FieldName:='TARIH';
   DGMlzGelisGoruntu.Columns[1].Title.Caption:='TARIH';
   DGMlzGelisGoruntu.Columns[1].Width:=65;
   DGMlzGelisGoruntu.Columns[1].Color:=clInfoBk;

   DGMlzGelisGoruntu.Columns.Add;
   DGMlzGelisGoruntu.Columns[2].FieldName:='FIS_NO';
   DGMlzGelisGoruntu.Columns[2].Title.Caption:='FIS_NO';
   DGMlzGelisGoruntu.Columns[2].Width:=60;
   DGMlzGelisGoruntu.Columns[2].Color:=clInfoBk;

   DGMlzGelisGoruntu.Columns.Add;
   DGMlzGelisGoruntu.Columns[3].FieldName:='FIS_TURU';
   DGMlzGelisGoruntu.Columns[3].Title.Caption:='FIS_TURU';
   DGMlzGelisGoruntu.Columns[3].Width:=60;
   DGMlzGelisGoruntu.Columns[3].Color:=clInfoBk;

   DGMlzGelisGoruntu.Columns.Add;
   DGMlzGelisGoruntu.Columns[4].FieldName:='MLZ_KOD';
   DGMlzGelisGoruntu.Columns[4].Title.Caption:='MLZ_KOD';
   DGMlzGelisGoruntu.Columns[4].Width:=65;
   DGMlzGelisGoruntu.Columns[4].Color:=clInfoBk;

   DGMlzGelisGoruntu.Columns.Add;
   DGMlzGelisGoruntu.Columns[5].FieldName:='MLZ_ADI';
   DGMlzGelisGoruntu.Columns[5].Title.Caption:='MLZ_ADI';
   DGMlzGelisGoruntu.Columns[5].Width:=125;
   DGMlzGelisGoruntu.Columns[5].Color:=clInfoBk;

   DGMlzGelisGoruntu.Columns.Add;
   DGMlzGelisGoruntu.Columns[6].FieldName:='SAYI';
   DGMlzGelisGoruntu.Columns[6].Title.Caption:='SAYI';
   DGMlzGelisGoruntu.Columns[6].Width:=65;
   DGMlzGelisGoruntu.Columns[6].Color:=clInfoBk;

   DGMlzGelisGoruntu.Columns.Add;
   DGMlzGelisGoruntu.Columns[7].FieldName:='GELEN';
   DGMlzGelisGoruntu.Columns[7].Title.Caption:='GELEN';
   DGMlzGelisGoruntu.Columns[7].Width:=40;
   DGMlzGelisGoruntu.Columns[7].Color:=clInfoBk;

   [b]DGMlzGelisGoruntu.Columns.Add;
   DGMlzGelisGoruntu.Columns[8].FieldName := 'IADE';
   DGMlzGelisGoruntu.Columns[8].Title.Caption:='IADE';
   DGMlzGelisGoruntu.Columns[8].Width:=40;
   DGMlzGelisGoruntu.Columns[8].Color:=clInfoBk;[/b]

   DGMlzGelisGoruntu.Columns.Add;
   DGMlzGelisGoruntu.Columns[9].FieldName:='AÇIKLAMA';
   DGMlzGelisGoruntu.Columns[9].Title.Caption:='AÇIKLAMA';
   DGMlzGelisGoruntu.Columns[9].Width:=150;
   DGMlzGelisGoruntu.Columns[9].Color:=clInfoBk;

end;

procedure TForm3.cxButtonEdit1PropertiesButtonClick(Sender: TObject;
  AButtonIndex: Integer);
begin
Form1.Show;

FORM1.Edit1.Text := Edit1.Text;



end;

end.

[Lord_Ares]

Excel dosyanızdaki IADE alanı , Excelin I sütününda. Bunu Farklı isimde bir sutüna taşıdığınızda sorun kalmadığını göreceksiniz. Sebebi sanırım türkçe dil desteğinle alakalı.
Kolay gelsin

[a_self_lion]

Denedim sorun yine aynı Bende çözümü o alanı stringe çeivererek buldum. Yani excelde o alanı string olarak yaptım sorun çözüldü.