1,178
社区成员
发帖
与我相关
我的任务
分享
CreateAccessDB(fileName) ;
TStringList*slt = GetModelStringList();
AnsiString creatStr = "(";
for(int i=0;i<slt->Count;i++)
{
if(i != slt->Count-1)
{
creatStr += slt->Strings[i] + " Varchar(100)," ;
}
else
{
creatStr += slt->Strings[i] + " Varchar(100))" ;
}
} ADOQuery3->Close();
ADOQuery3->SQL->Text = "create table " + modelName +creatStr ;
try{ADOQuery3->ExecSQL();}
catch(...){Application->MessageBoxA("创建模板失败","提示");return;}
CREATE TABLE 图书(title Varchar(100),creator Varchar(100),subject Varchar(100),description Varchar(100),publisher Varchar(100),contributor Varchar(100),pubdate Varchar(100),format Varchar(100),identifier Varchar(100),source Varchar(100),language Varchar(100),relation Varchar(100),coverage Varchar(100),rights Varchar(100),txts Varchar(100),files Varchar(100),videos Varchar(100),pics Varchar(100))