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

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

Pochemu teriaetsia tip ftInteger? [D6]

Levan ©   (2004-03-10 13:20:00) 

Privet masteram!
vot programma:

procedure TForm1.FormCreate(Sender: TObject);
VAR
DB:TDATABASE;
TB:TTABLE;
tt:tfieldtype;
begin
DB:=TDATABASE.Create(NIL);
DB.DatabaseName:='MYWORK';
DB.Params.ADD('PATH=c:\');
DB.Params.Add('dRIVER=FoxPro');
db.DriverName:='standard';
tb:=ttable.Create(nil);
tb.TableName:='work';
tb.tabletype:=ttFoxpro;
tb.DatabaseName:=db.DatabaseName;
tb.FieldDefs.Add('cod',ftInteger);
tb.CreateTable;
tb.Open();
tt:=tb.FindField('cod').DataType;
tb.FieldDefs.Add('coc',tt);   //tochke ostanova
tb.close();
tb.Free();
db.Free();

nujni uses db,dbtables

v ukazanooi tochke ostanavlivaiu programmu, i smotriu

peremennaia tt imeet tip ftFloat  !
pochemu? ved ia zadal tio ftInteger?

kak oboiti ?

spasibo
Levan

---

Levan   (2004-03-11 08:54:00) [1]

spasibo, poprobuiu

---

Desdechado   (2004-03-10 21:32:00) [2]

имхо, такой код не прокатит
если хочешь из одного в другое залить, возьми DataPump или TBatchMove

---

Levan   (2004-03-10 16:21:00) [3]

to Desdechado:
spasibo , no kak mne peredat znachenie "integer" iz etogo polia v pole integer bazi MS SQL server (ne postrochno):

insert into ":mainbase:sqltable" (cod)
select cod from ":dbfbase:dbftable"

v oboix cod sozdaetsia tipom ftinteger,
no etot sql-zapros daet soobshenie "Type mismatch"

posovetuite, chto delat..

---

Desdechado   (2004-03-10 16:09:00) [4]

ну, в DBF integer нету, есть numeric, который может быть и целым как частный случай.
вот float и определяется в БДЕ

---

Levan   (2004-03-10 15:14:00) [5]

TO myor:
IMENNO, SMPTRIU, A TAM ftFloat
pochemu?

---

myor   (2004-03-10 14:21:00) [6]

посмотри тип tb.FindField('cod').DataType;

---

Наверх