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

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

Как определить тип столбца таблицы?

Страницы:   < 1 2 >

Layner ©   (2005-06-30 13:46:00) 

БД, Access, цикл по столбцам, если столбик Integer, то сохраняю в string переменную: IntToStr(ds1..Field[1].AsInteger), если Double, то также, только FloatToStr(..), а вот как узнать, столбик, Integer он, или Memo, или стринговое?

---

Layner   (2005-06-30 14:03:00) [21]

Блин, что то не получается
var
s: string;
i: integer;
begin
 s:='';
 q1.SQL.Clear;
 q1.SQL.Text:='SELECT * FROM table1';
 q1.Active:=True;
  if ds1.DataSet.RecordCount<>0 then
   begin
     q1.First;
      while not q1.Eof do
      begin
       for i:=0 to ds1.DataSet.FieldCount-1 do
         begin
          if ds1.DataSet.Fields[i].DataType = ftInteger then s:=s + IntToStr(ds1.DataSet.Fields[i].AsInteger);
          if ds1.DataSet.Fields[i].DataType = ftString then s:=s + ds1.DataSet.Fields[i].AsString;
         end;
         s:=s+#13#10;
       q1.Next;
      end; //while
   end;
 q1.Active:=False;
 Showmessage(s);
end;

Код ничего не возвращает, кроме перевода каретки :) В таблице 2 столбика, один - счетчик, второй текст, 255символов.

Может в сравнение не тот формат поля смотрю?

---

msguns   (2005-06-30 14:00:00) [22]

>Desdechado ©   (30.06.05 13:47) [1]
>FieldByName('x').DataType

Строго говоря, это неточная информация. Мягко выражаясь ;)

---

Плохиш   (2005-06-30 13:53:00) [23]

> Layner ©   (30.06.05 13:46)

Извращенец! .AsString

---

Layner   (2005-06-30 13:52:00) [24]

Desdechado ©   (30.06.05 13:47), спасибо! Я видел SetFieldType, думаю где же GetFieldType, по аналогии, а оно оказывается вот как называется, благодарю!

---

Desdechado   (2005-06-30 13:47:00) [25]

FieldByName('x').DataType

---

Страницы:   < 1 2 >

Наверх