将EXCEL里的数据实时上传到SQL数据库里的VBA任何写？

wpcpa

需要实时将EXCEL里的数据上传到服务器的SQL数据库里。SQL数据库不在本机上，但在一个局域网内。EXCEL每产生一组数据便点一次上传按钮上传。
服务器名：SERVER
SQL数据库名：CW
表名：MZSF

EXCEL表：SF.SHEET１

EXCEL表字段与SQL表字段一致。

请教上传EXCEL数据的VBA代码。

Admin

   

很遗憾通知楼上朋友，您的帖子在24小时之内没有任何回复！

通常情况下，本论坛发布的主题帖会在8小时被回复或处理。您的帖子在24小时之内未被回复，其中的原因可能是：

1、问题表述不清、模棱两可，难以理解，帮助者被搞晕了，夺帖而出；
2、没有上传必要的附件，或附件被遗忘在某个角落；
3、发帖提问时，语气带棱角、带挑衅，不幸被列入不受欢迎的帖子；
4、所提问题不成立，或提不合理的要求，乐于助人者使出“走为上”之计；
5、话题较偏、较冷或者发布到了不合适的版块，暂时无人问津，顾影自怜。


为了提高您的问题解决效率，我们推荐您阅读以下文章：
* 如何发表新话题和上传附件：http://club.excelhome.net/thread-45649-1-1.html
* 发帖的技巧：http://club.excelhome.net/thread-176339-1-1.html
* EH技术论坛的最佳学习方法：http://club.excelhome.net/thread-117862-1-1.html

yapenl

支持！！！！！！！！！！1111

myx2006

参考：   
   
  Excel文件的读取   
  public   DataSet   ExcelToDS(string   Path)   
  {   
    string   strConn   =   "Provider=Microsoft.Jet.OLEDB.4.0;"   +"Data   Source="+   Path   +";"+"Extended   Properties=Excel   8.0;";   
    OleDbConnection   conn   =   new   OleDbConnection(strConn);   
    conn.Open();      
    string   strExcel   =   "";         
    OleDbDataAdapter   myCommand   =   null;   
    DataSet   ds   =   null;   
    strExcel="select   *   from   [sheet1$]";   
    myCommand   =   new   OleDbDataAdapter(strExcel,   strConn);   
    ds   =   new   DataSet();   
    myCommand.Fill(ds,"table1");         
    return   ds;   
  }   
  对于EXCEL中的表即sheet([sheet1$])如果不是固定的可以使用下面的方法得到   
    string   strConn   =   "Provider=Microsoft.Jet.OLEDB.4.0;"   +"Data   Source="+   Path   +";"+"Extended   Properties=Excel   8.0;";   
    OleDbConnection   conn   =   new   OleDbConnection(strConn);   
    DataTable   schemaTable   =   objConn.GetOleDbSchemaTable(System.Data.OleDb.OleDbSchemaGuid.Tables,null);   
    string   tableName=schemaTable.Rows[0][2].ToString().Trim();      
  Excel文件的写入   
  public   void   DSToExcel(string   Path,DataSet   oldds)   
  {   
    //先得到汇总EXCEL的DataSet   主要目的是获得EXCEL在DataSet中的结构   
    string   strCon   =   "   Provider   =   Microsoft.Jet.OLEDB.4.0   ;   Data   Source   ="+path1+";Extended   Properties=Excel   8.0"   ;   
    OleDbConnection   myConn   =   new   OleDbConnection(strCon)   ;   
    string   strCom="select   *   from   [Sheet1$]";   
    myConn.Open   (   )   ;   
    OleDbDataAdapter   myCommand   =   new   OleDbDataAdapter   (   strCom,   myConn   )   ;   
    ystem.Data.OleDb.OleDbCommandBuilder   builder=new   OleDbCommandBuilder(myCommand);   
    //QuotePrefix和QuoteSuffix主要是对builder生成InsertComment命令时使用。   
    builder.QuotePrefix="[";           //获取insert语句中保留字符（起始位置）   
    builder.QuoteSuffix="]";   //获取insert语句中保留字符（结束位置）   
    DataSet   newds=new   DataSet();   
    myCommand.Fill(newds   ,"Table1")   ;   
    for(int   i=0;i<oldds.Tables[0].Rows.Count;i++)   
    {   
      //在这里不能使用ImportRow方法将一行导入到news中，因为ImportRow将保留原来DataRow的所有设置(DataRowState状态不变)。在使用ImportRow后newds内有值，但不能更新到Excel中因为所有导入行的DataRowState!=Added   
      DataRow   nrow=aDataSet.Tables["Table1"].NewRow();   
      for(int   j=0;j<newds.Tables[0].Columns.Count;j++)   
      {   
        nrow[j]=oldds.Tables[0].Rows[j];   
      }   
      newds.Tables["Table1"].Rows.Add(nrow);   
    }   
    myCommand.Update(newds,"Table1");   
    myConn.Close();   
  }