用ADO导入记录的问题？

yanlj518

因为有特殊用途，用ADO代码将表2的记录中学号不在表1的记录导入表1，然后在表2与表1相同学号记录中的备注写入“重复”，我的代码不能运行，请大家帮忙看一下。谢谢！

wfxinyu

学习下啊

andymark

第一个问题直接用追加查询
INSERT INTO b1 ( ID, 学号, 姓名 )
SELECT b2.ID, b2.学号, b2.姓名
FROM b2
WHERE (((b2.学号) Not In (select 学号 from b1)));

yanlj518

因为有其它作途，要用ADO，能赐教吗？

yanlj518

郁闷，近来问题一个也没解决！

yanlj518

自己顶一下吧！

andymark

原帖由 yanlj518 于 2008-5-20 11:16 发表
因为有其它作途，要用ADO，能赐教吗？

SELECT b2.ID, b2.学号, b2.姓名
FROM b2
WHERE (((b2.学号) Not In (select 学号 from b1)));

上面的语句为: B2有记录,而B1没记录, 如果一定要用ADO把上面的语句写到B1就行了

Dim Sql As String
Dim Rs As New ADODB.Recordset
Dim Rsc As New ADODB.Recordset
Dim Conn As New ADODB.Connection
Set Conn = CurrentProject.Connection
Sql = "SELECT b2.ID, b2.学号, b2.姓名 FROM b2 WHERE b2.学号 Not In (select 学号 from b1)"
Rs.Open Sql, Conn, adOpenKeyset, adLockOptimistic
Rsc.Open "select * from b1", Conn, adOpenDynamic, adLockOptimistic
Do While Not Rs.EOF
   Rsc.AddNew
   Rsc.Fields("学号") = Rs.Fields("学号")
   Rsc.Fields("姓名") = Rs.Fields("姓名")
   Rsc.Update
   Rs.MoveNext
Loop
Rs.Close
Rsc.Close
Set Rs = Nothing
Set Rsc = Nothing

yanlj518

之所以绕了这么一个大圈子，目的就是要在子窗体上实时反映出哪些记录没有导入（将导入的去掉更好），这样一目了然。如果不在窗体上反映的话，当然就很简单了，难就难在这里！我将代码改了一下，可以运行，但不能得到完全正确的结果，还要请大家指点！
Private Sub ado导入_Click()
Dim i As Integer
Dim j As Integer
Dim Rsdljl As ADODB.Recordset
Dim Rsjfmd As ADODB.Recordset
Set Rsdljl = New ADODB.Recordset
Set Rsjfmd = New ADODB.Recordset
Rsdljl.Open "b2", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

Rsjfmd.Open "b1", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Rsdljl.MoveFirst
Rsjfmd.MoveFirst
For i = 1 To Rsdljl.RecordCount
    'Rsjfmd.MoveFirst
    For j = 1 To Rsjfmd.RecordCount

       If Rsdljl(1).Value <> Rsjfmd(1).Value Then
       Rsjfmd.AddNew
       Rsjfmd("学号") = Rsdljl("学号")
       Rsjfmd("姓名") = Rsdljl("姓名")
       Rsjfmd.Update
       'Exit For
       ElseIf Rsdljl(1).Value = Rsjfmd(1).Value Then
       Rsdljl(3).Value = "重复"
       Rsdljl.Update
       End If
       'Rsjfmd.MoveNext
    Next j
    Rsdljl.MoveNext
    Next i
    Rsdljl.Close
    Rsjfmd.Close
    Set Rsdljl = Nothing
    Set Rsjfmd = Nothing
    MsgBox "导入完毕"

End Sub