Скачать: CL | DM;

отображение в TDBgrid   Найти похожие ветки 

← →
-=snoop=- ©   (2005-07-29 11:15) [0]

здрасти всем, сть вот какая странная проблема
имеется в наличии база DBF, перед началом работы выполняется код

///
       lADO1 := TADOQuery.Create(form1) ;
       lADO1.ConnectionString :=
       "Provider=VFPOLEDB.1;Data Source="+gPthVl+"\PRO;Password="";Collating Sequence=MACHINE";
       //
       try
        lADO1.SQL.Clear ;
        lADO1.SQL.Add("ALTER TABLE user.pro ADD COLUMN grupp c(20)") ;
        lADO1.ExecSQL();
       except
       end ;
       lADO1.free() ;
       ///

который добавляет поле в таб.
странность в том, что когда я в дальнейшем отображаю эту таб.в TDBGride кодировка портиться напрочь, пробовал установить ее

 gGrupGRD := TDBGrid.Create(Form1) ;
 gGrupGRD.Parent := Form1 ;
 gGrupGRD.Name := "GruppGrid" ;
 gGrupGRD.DataSource := gDTSource2;
gGrupGRD.font.charset := 204 ;

ничего не помогает, подскажите что можно посмотреть и исправить

---

← →
Виталий Панасенко   (2005-07-29 11:29) [1]

> gGrupGRD.font.charset := 204 ;

gGrupGRD.font.charset := OEM_CHARSET ?

---

← →
-=snoop=- ©   (2005-07-29 11:37) [2]

хе))) там вообще не читабильная фигня становится)))
прикол в том, что если убрать

      try
       lADO1.SQL.Clear ;
       lADO1.SQL.Add("ALTER TABLE user.pro ADD COLUMN grupp c(20)") ;
       lADO1.ExecSQL();


из общего кода, то и кодировка приходит в норму, но вот убрать ни как)))

---

← →
Виталий Панасенко   (2005-07-29 11:57) [3]

А нафига таблицу каждый раз менять ?

---

← →
-=snoop=- ©   (2005-07-29 12:04) [4]

можно зделать проверку на наличие/отсутствие поля и после добавления "вываливаться" из проги после предупреждения=пробую такой вариант, но как обнаружилось((

lADO1 := TADOQuery.Create(nil) ;
       lADO1.ConnectionString :=
       "Provider=VFPOLEDB.1;Data Source="+gPthVl+"\PRO;Password="";Collating Sequence=MACHINE";
       //
        lADO1.SQL.Clear ;
        lADO1.SQL.Add("select * from user.pro") ;
        lADO1.Open();
        ...
        lADO1.free() ;

тож ведет к последующему искажению...любой запрос получается...

---

← →
-=snoop=- ©   (2005-07-29 13:42) [5]

фсе уже на пятнице...

---

← →
evvcom ©   (2005-07-29 19:13) [6]

> можно зделать проверку на наличие/отсутствие поля

А почему поле то есть, то нет? Нафига этот геморрой?

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.026 c