немогу создать нормальные dbf файлы
пробовал пример и bildera с TTable вроде создает таблицу но файла нет
| Код |
NewTable->Active = false;
NewTable->DatabaseName = BDType->Text ;
NewTable->TableName = TBname->Text;
NewTable->TableType = TBType->ItemIndex ;
NewTable->FieldDefs->Clear();
TFieldDef *NewField;
for(int i=0;i<fieldCount;i++)
{
NewField=NewTable->FieldDefs->AddFieldDef(); // define field
NewField->Name = df[i]->field->Text;
NewField->DataType = df[i]->type->ItemIndex;
NewField->Size = StrToInt(df[i]->size->Text);
}
bool CreateIt = (!NewTable->Exists); //если TBname->Text один и тотже 2 раза CreateIt==1
if (!CreateIt)
if(MessageBox(0,"Overwrite table ?","Table Exists", MB_YESNO) == IDYES)
CreateIt = true;
if(CreateIt)
NewTable->CreateTable(); // create the table
|
код работает но файла нет! (никогда неповторяюсь неповторяюсь)
пробовал с помощью ADO
| Код |
ADOq->ConnectionString="Provider=MSDASQL.3;"
"Persist Security Info=False;"
"Data Source=Файлы dBASE;"
"Mode=ReadWrite";
ADOq->SQL->Add(
"CREATE TABLE "
"TBname_0"
" ( " //дальше идут типы полей которые я подобрал
"field_0 byte, "
"field_1 numeric, "
"field_2 integer, "
"field_3 long, "
"field_4 float, "
"field_5 double, " //с 0 по 5 - все одинаковые numeric размером 20,5
"field_6 string(10), " //character(10)
"field_7 char, " //character(254)
"field_8 varchar(21), " //character(21)
"field_9 date" //date(8)
" );"
|
таблица создается нормально но проблема в числовых полях numeric размером 20,5
необходимо задать размер ЧИСЛОВОГО ПОЛЯ
я пробовал :
numeric(n,m)
numeric(n)
- ошибка в запросе !
может изначально ошибка в ConnectionString или опять вернуться к TTable? |
