отображение в 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() ;
тож ведет к последующему искажению...любой запрос получается...

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

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

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

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