VSTO入门问题集

VBA万岁

excelhomesnake 发表于 2015-12-20 16:34
"数据源/省市区.mdb"
来源是一个access数据库?
查询语句是需要在表名添加 "$"  ?

      1、是啊。我是否应该将其改为Excel文件，即“destbook.fullname”（我本要将当前活动工作表省市区数据导入新建的Access数据库的）？
      2、是的，查询语句是应该在表名添加 "$"——出错代码是参考154楼的两个链接帖写的，而它们都有在表名前加“$”。
      3、再次看了一下第一个链接帖，发现自己还有个自定义类AccessDAO没写好。

excelhomesnake

VBA万岁 发表于 2015-12-21 10:04
1、是啊。我是否应该将其改为Excel文件，即“destbook.fullname”（我本要将当前活动工作表省市 ...

access的sql中,表名应该不需要添加"$"吧.

VBA万岁

VBA万岁 发表于 2015-12-21 10:04
1、是啊。我是否应该将其改为Excel文件，即“destbook.fullname”（我本要将当前活动工作表省市 ...

      将当前活动工作表省市区数据导入新建的Access数据库之前得删除原Access数据库并新建Access数据库，故帖上以下两个相关链接：
      1、c#编写程序，实现删除指定目录下的指定文件
      2、用C＃动态创建Access数据库

excelhomesnake

VBA万岁 发表于 2015-12-21 12:01
将当前活动工作表省市区数据导入新建的Access数据库之前得删除原Access数据库并新建Access数据库， ...

应该没有这么麻烦吧?
我觉得是该数据库设置了只读权限而已吧.

VBA万岁

excelhomesnake 发表于 2015-12-21 10:36
access的sql中,表名应该不需要添加"$"吧.

是的，正如158楼的代码那样。

VBA万岁

excelhomesnake 发表于 2015-12-21 12:10
应该没有这么麻烦吧?
我觉得是该数据库设置了只读权限而已吧.

我是打算用新建的Access数据库代替原Access数据库（路径及名称均一样），然后再将当前活动工作表省市区数据导入新建的Access数据库的。

VBA万岁

excelhomesnake 发表于 2015-12-20 16:34
"数据源/省市区.mdb"
来源是一个access数据库?
查询语句是需要在表名添加 "$"  ?

以下代码运行时仍出错：

1. private void button2_Click(object sender, EventArgs e)
   
2.         {
   
3.             string accessFilePath = Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory) + @"\数据源\省市区三级联动.mdb";
   
4. 
   
5.             object o = System.Runtime.InteropServices.Marshal.GetActiveObject("Excel.Application");
   
6.             Microsoft.Office.Interop.Excel._Application app = o as Microsoft.Office.Interop.Excel._Application;
   
7.             Microsoft.Office.Interop.Excel.Workbook srcbook = app.ActiveWorkbook;//得到当前活动的excel文档
   
8.             Microsoft.Office.Interop.Excel.Worksheet sh = (Microsoft.Office.Interop.Excel.Worksheet)srcbook.ActiveSheet;//得到当前Sheet
   
9.             try
   
10.             {
    
11.                 OleDbConnectionStringBuilder connectStringBuilder = new OleDbConnectionStringBuilder();
    
12.                 connectStringBuilder.DataSource = srcbook.FullName;
    
13.                 connectStringBuilder.Provider = "Microsoft.Ace.OleDb.12.0";
    
14.                 connectStringBuilder.Add("Extended Properties", "Excel 12.0");
    
15.                 using (OleDbConnection cn = new OleDbConnection(connectStringBuilder.ConnectionString))
    
16.                 {
    
17.                     DataSet ds = new DataSet();
    
18.                     string sql = "Select * from [" +sh.Name + "$]";
    
19.                     OleDbCommand cmdLiming = new OleDbCommand(sql, cn);
    
20.                     cn.Open();
    
21.                     using (OleDbDataReader drLiming = cmdLiming.ExecuteReader())
    
22.                     {
    
23.                         ds.Load(drLiming, LoadOption.OverwriteChanges, new string[] { sh.Name });
    
24.                         DataTable dt = ds.Tables[sh.Name];
    
25.                         if (dt.Rows.Count > 0)
    
26.                         {
    
27.                             for (int i = 0; i < dt.Rows.Count; i++)
    
28.                             {
    
29.                                 //写入数据库数据
    
30.                                 string MySql = "insert into VBA实现省市区三级联动(省,市,区) values('" + dt.Rows[i]["省"].ToString() + "','" + dt.Rows[i]["市"].ToString() + "','" + dt.Rows[i]["区"].ToString() + "')";
    
31.                                 OleDbConnection connct = new OleDbConnection();
    
32.                                 string oleDB = "Provider=Microsoft.Ace.OleDb.12.0;Data Source=" + accessFilePath;
    
33.                                 connct.ConnectionString = oleDB;
    
34. 
    
35.                                 //打开数据库
    
36.                                 connct.Open();
    
37. 
    
38.                                 OleDbCommand command = new OleDbCommand(sql, cn);
    
39.                                 command.Connection = connct;
    
40. 
    
41.                                 int res = command.ExecuteNonQuery();
    
42. 
    
43.                                 // 关闭连接
    
44.                                 connct.Close();
    
45.                                 //return res;
    
46.                             }
    
47.                             MessageBox.Show("数据导入成功！");
    
48.                         }
    
49.                         else
    
50.                         {
    
51.                             MessageBox.Show("请检查你的Excel中是否存在数据");
    
52.                         }
    
53.                     }
    
54.                 }
    
55.             }
    
56.             catch (Exception ex)
    
57.             {
    
58.                 MessageBox.Show(ex.ToString());
    
59.             }
    
60.         }

复制代码

VBA万岁

VBA万岁 发表于 2015-12-22 18:43
以下代码运行时仍出错：

出错截图：

excelhomesnake

VBA万岁 发表于 2015-12-22 18:48
出错截图：

没看到你的截图.但大概看了一下代码部分.
你用pia打开excel文件,接着又用ado连接excel文件.应该会被占用.
实际上,直接使用ado可获取表名字.
大概如下

1.         /// <summary>
   
2.         /// 返回excel表的所有sheet名字
   
3.         /// </summary>
   
4.         /// <returns></returns>
   
5.         public string[] GetSheetNames ( )
   
6.         {
   
7. 
   
8.             using ( OleDbConnection con=new OleDbConnection ( this.connectionBuilder.ConnectionString ) )
   
9.             {
   
10.                 con.Open ( );
    
11. 
    
12.                 //返回Excel的架构，包括各个sheet表的名称,类型，创建时间和修改时间等  
    
13.                 DataTable dtSheetName = con.GetOleDbSchemaTable ( OleDbSchemaGuid.Tables , new object [ ] { null , null , null , "Table" } );
    
14. 
    
15.                 //包含excel中表名的字符串数组
    
16.                 List<string> namesList=new List<string> ( dtSheetName.Rows.Count );
    
17. 
    
18. 
    
19.                 for ( int i = 0 ; i < dtSheetName.Rows.Count ; i++ )
    
20.                 {
    
21.                     namesList.Add ( dtSheetName.Rows [ i ] [ "TABLE_NAME" ].ToString ( ) );
    
22.                 }
    
23. 
    
24.                 return namesList.ToArray();
    
25.             }
    
26.         }

复制代码

VBA万岁

VBA万岁 发表于 2015-12-22 18:43
以下代码运行时仍出错：

八（二）问题终于测试成功，原来只需将167楼的第38句代码改为如下即可：
OleDbCommand command = new OleDbCommand(MySql, connct);