创建ACCESS数据库和数据表

创建ACCESS数据库

    String ProviderStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=data.mdb;"
	              "Jet OLEDB:Database Password=123" ;
    try{
        Variant Adoobj = Variant::CreateObject("ADOX.Catalog") ;
        Adoobj.OleProcedure("Create",WideString(ProviderStr));
        Adoobj.Clear();
        Application->MessageBox(L"数据库创建成功",L"提示信息") ;
    }
    catch(Exception &exception)
    {
        Application->MessageBox(("数据库创建失败,"+exception.Message).c_str(),L"提示信息") ;
    }  

创建ACCESS数据表

			qry->Close();
			qry->SQL->Clear();
			sql = "create table 用户类别表"
				    " (序号 counter(1,1) primary key not null,"
					  "用户类别 varchar(20),"
					  "类别编号 short,"
					  "类别权限 varchar(8),"
					  "类别说明 varchar)"
			qry->SQL->Add(sql);
			qry->ExecSQL() ;