.net读取Lotus Domino文件数据库
时间:2021-07-01 10:21:17
帮助过:26人阅读
NotesSession ns =
new NotesSession();
2 //ns.Initialize("test1234");
3 ns.Initialize();
4 if (ns ==
null)
5 {
6 MessageBox.Show(
"未能初始化");
7 return;
8 }
9 //http://10.31.100.50
10 NotesDatabase db = ns.GetDatabase(
"",
@"names.nsf",
false);
11 if (db ==
null)
12 {
13 MessageBox.Show(
"未能初始化数据库");
14 return;
15 }
16
17 StringBuilder sb =
new StringBuilder();
18
19 NotesView view = db.GetView(
"$users");
20 object[] cols =
view.ColumnNames;
21 Dictionary<
int,
object> dic =
new Dictionary<
int,
object>
();
22 if (cols !=
null)
23 {
24 int ix =
0;
25 foreach (
object obj
in cols)
26 {
27 dic.Add(ix, obj);
28 if (obj !=
null) sb.Append(
string.Format(
"{0}\r\n", obj));
29 ix++
;
30 }
31 }
32 NotesViewEntry ve = view.GetEntryByKey(
"12345");
33 if (ve !=
null)
34 {
35 int ix =
0;
36 object[] objs =
ve.ColumnValues;
37 foreach (
object obj
in objs)
38 {
39 KeyValuePair<
int,
object> kv = dic.FirstOrDefault(m => m.Key ==
ix);
40 Type tp =
obj.GetType();
41 if (tp.Name.Contains(
"Object[]"))
42 {
43 int ik =
0;
44 object[] nobjs = (
object[])obj;
45 foreach (
object nobj
in nobjs)
46 {
47 sb.Append(
string.Format(
"{0}[{1}]值为:{2}\r\n", kv.Value, ik, nobj));
48 ik++
;
49 }
50 }
51 else
52 {
53 sb.Append(
string.Format(
"{0}值为:{1}\r\n", kv.Value, obj));
54 }
55 ix++
;
56 }
57
58 }
.net读取Lotus Domino文件数据库
标签:append svi return entry 组件 database name tab 根据