SQL数据库项目生成时会生成dacpac文件，可从中读出所需的元数据，进行一些转换（如生成数据字典）

?

1. var model = new TSqlModel(@"D:\kljob\CardLan\CardLanDB\bin\Debug\cardlandb.dacpac");
2. ?
3. XmlWriterSettings settings = new XmlWriterSettings();
4. settings.Indent = true;
5. settings.Encoding = new UTF8Encoding(false);
6. settings.NewLineChars = Environment.NewLine;
7. MemoryStream ms = new MemoryStream();
8. XmlWriter writer=XmlWriter.Create(ms,settings);
9. ?
10. int startID=31;
11. writer.WriteStartDocument();
12. writer.WriteStartElement("root");
13. foreach (var s in new ModelTypeClass[]{ModelSchema.Procedure ,ModelSchema.View}){
14. ???var allTables = model.GetObjects(DacQueryScopes.UserDefined,s );
15. ???var tableScripts = from t in allTables
16. ???????????????select t ;
17. ??????foreach(var x in tableScripts){
18. ?????????writer.WriteStartElement("QueryObject");
19. ?????????writer.WriteElementString("ObjectID",startID++.ToString());
20. ?????????writer.WriteElementString("SourceType", x.ObjectType.Name);
21. ?????????writer.WriteElementString("ObjectName", x.Name.Parts[1]);
22. ?????????writer.WriteElementString("Remark","");
23. ?
24. ????????????int id=0;
25. ????????????foreach(var c in x.GetChildren())
26. ????????????{
27. ???????????????writer.WriteStartElement("QueryObjectCols");
28. ???????????????writer.WriteElementString("Title",c.Name.Parts[2]);
29. ???????????????writer.WriteElementString("ObjColID",id++.ToString());
30. ???????????????writer.WriteElementString("Field",c.Name.Parts[2]);
31. ???????????????writer.WriteElementString("Width","80");
32. ???????????????writer.WriteElementString("Sortable","1");
33. ???????????????if(s==ModelSchema.Procedure)
34. ??????????????????writer.WriteElementString("ValueType",c.GetReferenced(Parameter.DataType).First().Name.Parts[0]);
35. ???????????????else
36. ??????????????????writer.WriteElementString("ValueType",c.GetReferenced().First().GetReferenced(Column.DataType).First().Name.Parts[0]);
37. ???????????????writer.WriteElementString("ShowOrder","1");
38. ???????????????writer.WriteEndElement();
39. ?
40. ????????????}
41. ?????????writer.WriteEndElement();
42. ?????????break;
43. ??????}
44. ?
45. ?}
46. ?writer.WriteEndElement();
47. ?writer.WriteEndDocument();
48. writer.Close();
49. string xml = Encoding.UTF8.GetString(ms.ToArray());
50. Console.WriteLine(xml);
51. //tableScripts.Dump();

?

?

?

?

从DACPAC文件中读取元数据