подскажить пожалуйста , я переношу базу с MS sql server в Access,база вроде переноситься , а вот первичные ключи в новой базе не ставяться,подскажите что надо здесь дописать
код:
код:
Код:
for(int j=0;j< ADOTable1->FieldCount;j++) // список полей таблицы i
{
fn= ADOTable1->Fields->Fields[j]->FieldName;
// AnsiString s1=ADOTable1->MasterFields;
ft= ADOTable1->Fields->Fields[j];
AnsiString s1=ft->KeyFields;
if(j== ADOTable1->FieldCount-1) s=s+fn+" "+FieldTypeToString(ft); else
s=s+fn+" "+FieldTypeToString(ft)+",";
if(str1.Length()>0){str1+=",";str2+=",";}
str1+=fn;
str2=str2+":"+fn;
}
AnsiString kfld= ADOTable1->Fields->Fields[0]->KeyFields;
if(kfld.Length()>0)
s+=", primary key("+kfld+")";
else s+=")";
ADOQuery2->SQL->Text=s;
ADOQuery2->ExecSQL(); // создание таблиц полей в новой базе
ADOTable1->First();