ADO语句

ycxchen

我在本站下载了"通用数据导入"例子学习，其导入代码如下：
    1、Dim i As Integer
   2、 Dim j As Integer
   3、 Dim lngRecCount As Long
    4、Dim old_rs As ADODB.Recordset
    5、Dim old_sql As String
    6、Dim new_rs As New ADODB.Recordset
    7、Dim new_sql As String
    8、j = IIf(Me!chkFirstCol, 1, 0)    '第一列是否为自动编号
    9、old_sql = "Select  * From " & strCurTable 'strCurTable见fill_subForm()函数
    10、Set old_rs = CurrentProject.Connection.Execute(old_sql)
    11、new_sql = "Select  * From " & strMBTable
    12、new_rs.Open new_sql, CurrentProject.Connection, 1, 3     While Not old_rs.EOF
        13、new_rs.AddNew
      14、  For i = j To old_rs.Fields.Count - 1
        15、    new_rs.Fields(i) = old_rs.Fields(i)
       16、 Next i
       17、 old_rs.MoveNext
       18、 new_rs.Update
    19、Wend
   20、 new_rs.Close
   21、 Set new_rs = Nothing
    22、old_rs.Close
    23、Set old_rs = Nothing
    24、DoCmd.Close acForm, Me.Name
   25、 Exit Sub
其中，第15句的“Fields(i)”的用法不理解，我也查F1帮助，请问，究竟“Fields(i)”表示什么意思？

ycxchen

我想了想，不知追加数据且能自动去除重复值用19楼所说的recordset.addnew直接赋值能实现吗？如能，有例子吗？

ycxchen

谢谢楼上的朋友!

ACMAIN_CHM

用SQL做insert，生成这个SQL语句太繁琐，不如直接用recordset.addnew方便。直接赋值。不需要做特殊处理。

http://www.office-cn.net/vvb/att ... arY2lHG%2FJbcmZNhpQ ADO手册





*****************
*  一切皆有可能 *
*****************

QQ群48866293 / 12035577 / 7440532 / 13666209
http://forum.csdn.net/SList/Access .
http://www.accessbbs.cn/bbs/index.php .
http://www.accessoft.com/bbs/index.asp .
http://www.office-cn.net .

http://www.office-cn.net/home/space.php?uid=141646 .

ycxchen

看来,追加还是用SQL好

1978

学习中。

ycxchen

万分多谢6D及KOUTX的执手指教！我又增长了VBA知识，向你们这些高手学习！

Henry D. Sy

3、导入时会提示出错，在一楼的代码中是否还不完善？
表设计中，编号为自动编号，姓名有索引（无重复）
当您导入同样的编号和姓名时当然会出错。
如果，将导入方式更改为替换旧数据则不会产生此错误。

koutx

一、因为ADO的Recordset中的字段与源表一一对应，并且第一个字段的id号是0，第二个是  1，所以最后一个是.fFields.Count-1。
二、13、new_rs.AddNew     该语句在new_rs中追加了一空行
     在以下的循环体中逐字段将old_rs各字段的值赋给了new_rs对应字段
      18、 new_rs.Update     该语句将new_rs的字段值变化更新到临时表
三、导入时提示出错。因尚未用过，不敢妄评。

[ 本帖最后由 koutx 于 2009-1-27 19:49 编辑 ]

ycxchen

十二万分多谢6D的执手指教！我明白了，For i = j To old_rs.Fields.Count - 1是取得字段数，而Fields(i)就是取得记录集的字段值。重新看了一下例子，还是有三方面问题请教：
1、为什么用For i = j To old_rs.Fields.Count - 1取得字段数要减去一的？
2、在一楼的代码中，没有用于追加的SQL语句，但运行后也能将数据追加到临时表的？
3、导入时会提示出错，在一楼的代码中是否还不完善？
盼指教