简单数据库问题请教

[ron_xin]

    '票价库
    Set DPMDBF_DataBase = OpenDatabase(SP_Path & "JC", 0, 0, "foxpro 2.5")
    Set RsDBF = DPMDBF_DataBase.OpenRecordset("select * from PJK")
    
    SelSQL = "SELECT VoyagePrices.*, Ports.PortName AS EndPortName" _
        & " FROM VoyagePrices INNER JOIN Ports ON VoyagePrices.EndPortId = Ports.PortId" _
        & " Where Year(VoyageDate)=" & Year(Now) & " And Month(VoyageDate) = " & Month(Now) & " And Day(VoyageDate) = " & Day(Now)
    Set RsC = New ADODB.Recordset
    RsC.CursorLocation = adUseClient
    RsC.Open SelSQL, CNN, adOpenDynamic, adLockReadOnly
    For i = 1 To RsC.RecordCount
        '替换港口ID（新售票系统与旧售票系统）
        PortID = RsC("EndPortID")
        RsPort_Mdb.Filter = "New_PortID='" & PortID & "'"
        If Not RsPort_Mdb.EOF Then  '这里是一个循环吗?如不是EOF就执行下面的语句,但是没有没看到他如何循环,比如movenext            If RsPort_Mdb("Old_PortID") <> "" Then
                PortID = RsPort_Mdb("Old_PortID")
            End If
        End If
        '更新船舶等级即舱位
        CBDJ = RsC("CabinID")
        RsCBDJ.Filter = "New_CabinID=" & RsC("CabinID")
        If Not RsCBDJ.EOF Then
            If RsCBDJ("Old_CabinID") <> "" Then
                CBDJ = RsCBDJ("Old_CabinID")
            End If
        End If
        
        RsDBF.AddNew
        RsDBF("CBDJ") = CBDJ
        RsDBF("ZDM") = PortID
        RsDBF("pj1") = RsC("Price")
        RsDBF.Update
        
        RsC.MoveNext
    Next

[ron_xin]

If Not RsPort_Mdb.EOF Then
'这里是一个循环吗?如不是EOF就执行下面的语句,但是没有没看到他如何循环,比如movenext
If RsPort_Mdb("Old_PortID") <> "" Then
PortID = RsPort_Mdb("Old_PortID")
End If
End If

[clear_zero]

这不是一个循环，而是看看你filer是否有结果，如果有eof=true否则就是false

[贝隆]

这只是一个判断语句

[ron_xin]

to:of123 大哥,
我通篇都没有找到有
RsC.MoveLast
RsC.MoveFirst

[jhone99]

刚打开在first位置，可以不用movefirst，但做过move操作就不可以了

[of123]

是这样的，它打开了 3 个记录集：
RsDBF ：Foxpro 库 JC 的 PJK 表
RsPort_Mdb ：没有看到代码
RsC ：VoyagePrices 和 Ports 表的联合查询，使用客户端游标，可以得到记录数


For i = 1 To RsC.RecordCount 是在 RsC 中遍历，但是，应该在此之前

RsC.MoveLast
RsC.MoveFirst

否则有可能得不到正确的记录数。

'替换港口ID（新售票系统与旧售票系统）
PortID = RsC("EndPortID")
RsPort_Mdb.Filter = "New_PortID='" & PortID & "'"
If Not RsPort_Mdb.EOF Then [color=#FF0000]
'......

上面是利用 RsC 记录中的 EndPortID 对 RsPort_Mdb 的记录进行过滤。如果有符合的记录，则其第一条记录中的 Old_PortID 值替换掉当前 PortID 变量值。

同理，它用 "New_CabinID=" & RsC("CabinID") 给 RsCBDJ 记录集设置过滤器，如果有记录，则用其为 CBDJ 变量赋值。

最后，是在 RsDBF 中添加记录：

RsDBF.AddNew
RsDBF("CBDJ") = CBDJ
RsDBF("ZDM") = PortID
RsDBF("pj1") = RsC("Price")
RsDBF.Update

然后迁移到 RsC 下一条记录。

RsC.MoveNext
Next

不过，我怀疑应该在处理下一条记录时用类似 RsCBDJ.Filter = "" 的方式清除一下过滤器。因为过滤器的条件是会累加的。