| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

отображение в TDBgrid [D7, dBase, FoxPro]

-=snoop=- ©   (2005-07-29 11:15:00) 

здрасти всем, сть вот какая странная проблема
имеется в наличии база 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 ;

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

---

evvcom   (2005-07-29 19:13:00) [1]

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

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

---

-=snoop=-   (2005-07-29 13:42:00) [2]

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

---

-=snoop=-   (2005-07-29 12:04:00) [3]

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

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() ;

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

---

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

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

---

-=snoop=-   (2005-07-29 11:37:00) [5]

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

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


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

---

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

> gGrupGRD.font.charset := 204 ;

gGrupGRD.font.charset := OEM_CHARSET ?

---

Наверх