请各位高手帮忙讲解一下

Question

本帖最后由 muziguowu315 于 2011-03-08 15:33:07 编辑

Answer 1

将excel文件中的数据逐条导入到数据库的客户表中。

Answer 2

那么j=2是什么意思呢？
还有为什么我调试到 rs1.Fields("名称") = xlSheet.Range("A" & j).Value   就停止了呢
并没有显示数据到msflexgrid中

Answer 3

并没有显示数据到msflexgrid中和没有关系

Answer 4

还有为什么我调试到 rs1.Fields("名称") = xlSheet.Range("A" & j).Value 就停止了呢
并且还没有报错，我就是多加了些rs1.fields()在数据库中也没见导入的数据啊

Answer 5

vFlag = True
   
  tsql = "select * from 客户表 where 1=2"
  Set rs1 = OpenDatabase(conn, tsql)
   
  Do While vFlag

Answer 6

在rs1.AddNew下面加一行代码：msgboxxlSheet.Range("A" & j).Value，看看显示的是什么值。
在那行设置断点，F8单步验证各个变量的值是否正常。 

Answer 7

msgbox xlSheet.Range("A" & j).Value
显示  个日期
按确定
什么都没了

Answer 8

rs1.Fields("名称") 怎么会存储一个日期呢？你的程序肯定有点问题，按F8单步执行看看，和excel的数据一行行比较，代码很简单，你应该看的懂，就是看处理流程是否和预定的一致。

Answer 9

 首先声明“到款金额月1”和“到款金额日1”都是“数字”类型
 
语句顺序是
rs1.Fields("到款金额月1") = xlSheet.Range("H" & j).Value
rs1.Fields("到款金额日1") = xlSheet.Range("I" & j).Value那么我运行时显示  rs1.Fields("到款金额日1") = xlSheet.Range("I" & j).Value的类型不匹配，调试显示 0="        " ，怎么样改后者和前者能匹配呢。  而rs1.Fields("到款金额月1") = xlSheet.Range("H" & j).Value就可以