动态建表

[风子啊啊]

各位，在BCB中，如何能动态建表呀
可以是sql2000的表或是dbf表

[ysdxjl]

非常简单，首先拖一个TTable控件到Form上，默认的名字应该是Table1，举例如下：
//初始化
Table1->Active = False;
Table1->TableType= ttFoxPro;//定义表的类型
Table1->TableName="MyData";//定义表的名称
//定义字段
Table1->FieldDefs->Clear();
Table1->FieldDefs->Add("SNO", ftInteger, 0, True);//True表示该字段不能为空
Table1->FieldDefs->Add("Name", ftString, 30, False);
Table1->FieldDefs->Add("Add", ftString, 50, False);
//创建表
try
{
Table1->CreateTable();
}
catch(...)
{
ShowMessage("没有成功产生数据表");
}

[flowercity]

用sql语句就能实现

[flowercity]

AnsiString tmpSQL ;
tmpSQL = " drop table if exists mn_stock" ;
Query1->Close();
Query1->SQL->Clear();
Query1->SQL->Add(tmpSQL) ;
Query1->ExecSQL() ;
Query1->Close();
tmpSQL = " CREATE TABLE mn_stock (id int auto_increment not null primary key, " ;
tmpSQL+= " name_id int NOT NULL, mn_per float(10,3) NOT NULL, " ;
tmpSQL+= " fe_per float(10,3) NOT NULL, p_per float(10,3) NOT NULL, " ;
tmpSQL+= " si_per float(10,3) NOT NULL, ca_per float(10,3) NOT NULL, " ;
tmpSQL+= " mg_per float(10,3) NOT NULL, al_per float(10,3) NOT NULL, index(name_id) )" ;
Query1->Close();
Query1->SQL->Clear();
Query1->SQL->Add(tmpSQL) ;
Query1->ExecSQL() ;
Query1->Close();