创建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() ;