石家庄特色酒店:编程If AdoRsExcel.RecordCount > 0 Then

来源：百度文库编辑：中科新闻网时间：2024/05/08 12:06:29

谁能告诉我，下面写的是啥？
If AdoRsExcel.RecordCount > 0 Then
AdoRsExcel.MoveFirst
AdoRsExcel.MoveNext

AdoComMain.ActiveConnection = AdoDBMain
AdoComMain.CommandType = adCmdText
For j = 1 To AdoRsExcel.RecordCount - 1

StrSql = "insert into T_InforTMP (BookID,JiLiangID,UserName,UserAddress,PaiShuiCount,WaterClass) values " & _
"('" & Trim(AdoRsExcel.Fields(0).Value) & "','" & Trim(AdoRsExcel.Fields(2).Value) & _
"','" & Trim(AdoRsExcel.Fields(3).Value) & "','" & Trim(AdoRsExcel.Fields(4).Value) & _
"'," & Trim(AdoRsExcel.Fields(5).Value) & ",'" & Trim(AdoRsExcel.Fields(7).Value) & "')"
AdoComMain.CommandText = StrSql
AdoComMain.Execute

上述代码是要将一个记录集中从第二行开始的所有记录复制到T_InforTMP 表中。复制的内容是原记录集中的第1、3、4、5、6、8字段，分别对应T_InforTMP 表中的BookID,JiLiangID,UserName,UserAddress,PaiShuiCount,WaterClass字段。

（另外，不过你的代码不完整，FOR语句少了NEXT）

编程If AdoRsExcel.RecordCount > 0 Then if 语句问题(编程) flash编程中if语句的问题 bat编程关于IF命令的问题! 很简单的编程问题．如何用WHILE实现IF ELSE 很简单的编程问题．如何用if else实现do while Win IF是什么编程语言啊？做什么用的啊？ ASP编程问题.运行后提示最后语句end if有错误，请指正，谢谢编程的语句结构if then 能实现哪些特殊的功能效果。比如a=a+1 if a>3 then 这样可以限制次数。。。。。。。。编程``