如何找到满足条件的记录.txt

以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题.对一些VB初学者很用.

假设你使用的是DAO，ADO与DAO在这个问题上类似。 
    有两个办法： 
    1、使用FindFirst方法。如： 
    Data1.Recordset.FindFirst "ID = 2" 
    你可以使用Data1.Recordset.NoMatch来判断FindFirst是否找到了满足条件的记录，如果NoMatch返回True，说明没有满足条件的记录，否则说明有。你可以使用Data1.Recordset("City")来获得对应的字段内容。 
    如果你的条件是用户输入的，可以这样 
    Data1.Recordset.FindFirst "ID = " + Text.Text ' 假设ID是数字型字段。 
    或 
    Data1.Recordset.FindFirst "ID = '" + Text.Text + "'"' 假设ID是字符型字段。 
    或 
    Data1.Recordset.FindFirst Text1.Text + " = " + Text2.Text ' 假设字段名称也是用户输入的，且是数字型字段。 
    2、使用SQL语句 
    对于简单的查询，SQL语句没有FindFirst方便，但是如果查询很复杂，那么必须借助SQL语句，一般介绍VB高级编程的书会有详细的说明。对于你的问题，可以这样做： 
    Dim rd As Recordset 
    Set rd = Data1.Database.OpenRecordset("SELECT * FROM YOURTABLE WHERE ID = 2") 
    你可以使用rd("City")来获得City字段的内容。也可以使用rd.RecordCount来判断是否有记录，如果为0说明没有满足条件的记录。 
<END>