fieldset{padding:10px;}
vba sql inset 出错！！代码如下：Sub按钮7_Click()DimiAsInteger,iiAsInteger,jAsInteger,shtAsWorksheet’i,j为整数变量；sht为excel工作表对象变量，指向某一工作表DimcnAsNewADODB.Connection’定义数据链接对象，保存连接数据库信息；请先添加ADO引用DimrsAsNewADODB.Recordset’定义记录集对象，保存数据表DimstrCnAsString,strSQLAsString,strSQL2AsString,strSQL3AsString’字符串变量DimObjTmpAsObjectstrCn=”Provider=sqloledb;Server=192.168.0.5;Database=sinppa;Uid=sa;Pwd=;”‘定义数据库链接字符串’下面的语句将读取数据表数据，并将它保存到excel工作表中：画两张表想像一下，工作表为一张两维表，记录集也是一张两维表strSQL=”selectMB002,MB003FROMINVMB”_&”WHEREMB001='”&Range(“B5”)&”‘”cn.OpenstrCn’与数据库建立连接，如果成功，返回连接对象cnrs.OpenstrSQL,cn’执行strSQL所含的SQL命令，结果保存在rs记录集对象中Setsht=ThisWorkbook.Worksheets(“SHEET1”)strSQL=””‘清空上面定义的变量Fori=5To20’循环开始，i从5到20Ifsht.Cells(i,11)=””Andsht.Cells(i,2)<>””ThenstrSQL=strSQL&”insertinto[INVMB]([MB001],[MB002])values(“&sht.Cells(i,2)&”,”&sht.Cells(i,3)&”);”ElseEndIfNext’至此生成一串SQL命令串，保存的内容大概为：insertinto表名(字段)values(数值1);insertinto表名(字段)values(数值2);cn.ExecutestrSQL’执行该SQL命令串，如果SQL命令没有错误，将在数据库中添加501个记录;也可以用rs.openstrSQL,cn执行cn.Close’关闭数据库链接,释放资源错误提示：——解决方案——————————————————–Fori=5To20’循环开始，i从5到20Ifsht.Cells(i,11)=””Andsht.Cells(i,2)<>””ThenstrSQL=”insertinto[INVMB]([MB001],[MB002])values(“&sht.Cells(i,2)&”,”&sht.Cells(i,3)&”)”cn.executestrSqlEndIfNexti——解决方案——————————————————–请参阅觉得自己做的到和不做的到，其实只在一念之间
