tip uyuşmaşlığı

[AliRiza]

Arkadaşlar forumda dün sorduğum sorunumu hallettim.Sorum mysql'de string olarak tipi tenımlanmış verilerin memo olarak gözükmesi idi.Bunu şu şekilde yaptım.Adotable'in fields'ine table'daki tüm fieldleri ekledim.
String olan fields'in ongettext olayında değerleri atıyorum.Bu şekilde memo alanları dbgridde görebiliyorum.

Kod: Tümünü seç

procedure TForm1.ADOTable1ntnoGetText(Sender: TField; var Text: String;
  DisplayText: Boolean);
begin
   
text:=sender.Asstring;
  end;


programın çıkışında databasedeki kayıtları silmem gerekiyor.Veya formda kullanıcı tüm kayıtı silerse  çıkışta aşağıdaki tip hatasını alıyorum.Yeniden başlatınca eğer kayıt boş veya string alanda veri yoksa aynı hatayla karşılaşıyorum..

Project mbcatalog.exe raise exception EDatabase error with message 'Adotable1 Type mismatch for field ntno expecting:string actual memo

Kod: Tümünü seç

Arkadaşlar hata tip uyşmazlığı.Memo tipine çevrim nasıl yaparım..
adotable1ntno.setfieldtype(ftmemo) diye denedim olmadı..
eğer kayıt varsa hiç bir problem yaşamıyorum.Kayıt var memo alanlar boş dediğim hata oluyor.
Acil yardımınızı bekliyorum..

[feinpus]

bende denedim şimdi AdoTable daki memo alanının BlobType bölümünü FtMemo dan farklı olursa tip uyuşmazlığı hatası veriyor. Bu alanı FtMemo olarak bırakırsan sanırım hata vermez. Eğer senin sorunun oradaysa ben bahsettiğin hatayı oradan verdirebildim.

Birde;

Kod: Tümünü seç

procedure TForm1.ADOTable1ntnoGetText(Sender: TField; var Text: String; 
  DisplayText: Boolean); 
begin 
    
text:=sender.Asstring; 
  end; 

Şeklinde memo alan görüntülenebilir ama değişiklik yapılamıyor...

[AliRiza]

feinpus kardeş yardımın için teşekkür ederim ama benim yaptımlarımı tam olarak dene.
Eğer database'de hiç kayıt yoksa ftmemo tanımlama okey...
Bu durumda hiç bir hata vermiyor.

Database'de kayıt varsa zaten fields editörde add fields dediğinde tüm alanları ekleyip tipini kendi alıyor..
Kayıt varken denedim.New fields dedim.(Kendi eklediklerini sildim)
Oradan tip olarak ftmemo yaptım..

Bu durumda da aşağıdaki hatayı alıyorum..

Kod: Tümünü seç

Project mbcatalog.exe raise exception EDatabase error with message 'Adotable1 Type mismatch for field ntno expecting:memo actual string;

Yani diğer hatanın tam tersi durum..
Benim problem kayıt olmadığında yani tabloyu tamamen boşaltınca ik birinci konuda bahsettiğim hatanın gelmesi..