读取最后记录问题

Question

ACCESS数据库中的原有数据是每个字段的记录条数相互不一致，   所以，记录条数短的字段中最后记录存在Null值，所以，怎样读取每个字段中的最后记录中的数字部分呢 
如 
ABC 
000 
111 
222 
333 
44空 
5空空 
6空空 
  这是原始数据，空的部分是Null值。怎样读取最后一条的Null值外的有数字部分呢 
 
就是要读取6 4 3

Answer 1

Private Sub Command1_Click()
    Dim con As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim i As Integer
    Dim blnJ(3) As Boolean
    Dim strA(3) As String
    
    con.CursorLocation = adUseClient
    con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\My Documents\test\db\mydb.mdb;Persist Security Info=False"    rs.Open "select * from mytable order by id", con, adOpenStatic, adLockOptimistic
    
    rs.MoveLast
    
    While Not rs.BOF
        For i = 1 To 3
            If Not IsNull(rs.Fields(i)) And Not blnJ(i - 1) Then
                strA(i - 1) = rs.Fields(i)
                blnJ(i - 1) = True
            End If
        Next i
        rs.MovePrevious
    Wend
    
    Print strA(0) & "," & strA(1) & "," & strA(2)
End Sub