问一个关于查找记录的菜问题

guom33

偶要查找一个记录,代码如下:

Dim string1 As String
Dim dbs As Database
Dim rst1, rst2, rst3 As dao.Recordset

Set dbs = OpenDatabase("D:\work\数据处理.mdb")

Set rst1 = dbs.OpenRecordset('oldfile', dbOpenDynaset)

string1 = "0001"

rst1.MoveFirst
rst1.FindFirst "客户号 like " & string1   '在oldfile表中查找一条记录,客户号=变量string1对应的字符,这句语句该怎么写??
If not rst1.nomatch Then
      
      MsgBox (rst1.Fields(6))  '显示客户号对应的合同号

endif

问题是记录指针一直停留在表ｏｌｄｆｉｌｅ　的第一条记录,无法实现查找定位记录的目的.请各位DX指教! BTW, 有什么比较好的入门书籍推荐吗? 谢谢!

[此贴子已经被作者于2006-3-10 10:35:01编辑过]

sgrshh29

把这句

rst1.findnext

改为

rst1.findnext "客户号 like " & string2

试试看

guom33

在findfirst后的第一句 msgbox 指针就没有正确定位了(在表的第一条记录而不是符合条件的第一条记录),所以应该不关findnext的事...

sgrshh29

不是很清楚您的目的，如有可能，能不能描述的详细一些？您是不是想找出该客户的所有合同号？

这里  strings = "0001" ，会不会是string2  ?



rst1.MoveFirst
rst1.FindFirst "客户号 like " & string2(或者这里是不是strings  ?)

[此贴子已经被作者于2006-3-9 16:42:12编辑过]

guom33

不好意思,改过来了,都是string1,刚才写错了

确实是想找出该客户的所有合同号.

tcrct

rst1.findnext ??

改为rst1.movenext

试试

guom33

在findfirst后的第一句 msgbox 指针就没有正确定位了(它定位在表的第一条记录而不是符合条件的第一条记录)

skylark

Using the Find Method


The following examples listings demonstrate how to locate a record using fFind and seek.


DAO


Sub DAOFindRecord()





        Dim db            As DAO.Database


        Dim rst          As DAO.Recordset


                        


        ' Open the database


        Set db = DBEngine.OpenDatabase("C:\nwind.mdb")


        


        ' Open the Recordset


        Set rst = db.OpenRecordset("Customers", dbOpenDynaset)


        


        ' Find the first customer who's country is USA


        rst.FindFirst "Country = 'USA'"


        


        ' Print the customer id's of all customers in the USA


        While Not rst.NoMatch


                Debug.Print rst.Fields("CustomerId").Value


                rst.FindNext "Country = 'USA'"


        Wend


        


        ' Close the recordset


        rst.Close


        End Su

guom33

当偶写:rst1.FindFirst "客户号 like " & string1 时,rst1.nomatch 是true,也就是说找不到对应记录(其实此记录是存在的)

当偶写:rst1.FindFirst "客户号 like " string1

rst1.FindFirst "客户号 = string1"

时都是报错,偶到底应该怎么写呢?

skylark

你的Do .....Loop语句没有,FindNext是不动的,最好上传你的示例文件,这样可能大家都方便.