Data1.Recordset.FindFirst "[姓名]=" + "" + Text1.Text + ""请问怎么理解?还有个.data1.recordset.movefirst是什么意思?还有个find查询里findprevious是查找符合条件的上一条记录请问,如果符合条件的共有10条,那用findprevious搜索,显示的是第几条?

Dim num As IndexData1.RefreshData1.Recordset.MoveLastnum = Data1.Recordset.RecordCountPrint num为何提示 对象变量或 with块变量未设置?

'本代码是演示搜到第一笔后开始往下搜,将搜到的添加在List1里面'Data1.Recordset.FindPrevious 是往前搜'Data1.Recordset.FindNext 是往下搜'在Text1输入要查找的公司名称,点击Command1开始搜'添加 Command1 List1 Data1 Text1'文件名与路径与字段名改为你的.Dim appdisk$, schdata$Private Sub Form_Load() appdisk = Trim(App.Path) If Right(appdisk, 1) <> "\" Then appdisk = appdisk & "\" Data1.DatabaseName = appdisk & "bwscale.mdb" Data1.RecordSource = "bwmain" Data1.Refresh Data1.ReadOnly = FalseEnd SubPrivate Sub Command1_Click() List1.Clear schdata = Trim(Text1.Text) Data1.Recordset.MoveFirst '此行一定要加 Data1.Recordset.FindFirst "company =" & Chr(39) & schdata & Chr(39) If Not Data1.Recordset.NoMatch Then List1.AddItem Data1.Recordset.Fields(0) & "," & Data1.Recordset.Fields(1) Do Data1.Recordset.FindNext "company =" & Chr(39) & schdata & Chr(39) If Data1.Recordset.NoMatch Then Exit Do List1.AddItem Data1.Recordset.Fields(0) & "," & Data1.Recordset.Fields(1) Loop Else MsgBox "公司名称不存在" End IfEnd Sub

1F：第一个问题：应该是查找姓名为文本框内容的第一条记录；第二个问题：最前面有“.”，那应该是使用了With语句；整个语句是跳到查询到的记录集中的第一条记录；第三个问题：要看你现在的位置（比如在第2条，执行后则跳到第1条）；如果当前在第1条，则执行后应该跳到记录的前面（BOF）；如果当前已经在BOF，则执行会出错。2F：你的Data1（属性：Database、RecordSource）绑定到数据库、数据表了吗？

那代码里的"[姓名]=" 有什么用?TO 4F的 最后个回答填了,我用代码写的,绑定到数据库、数据表了Data1.DatabaseName = App.Path + "\" + "txl.mdb"Data1.RecordSource = "ziliao"谢3和4楼.

[姓名] 是字段名,它用[姓名]这个字段去查找相当于我代码中的 company 我用公司去查找.

那我在数据库里是用的user那我就用"[user]=" ?还有,这样搜索出来的结果在哪显示出来?我又做了几个text绑定了数据库,能否显示出来?

还有:Data1.Recordset.FindFirst "[姓名]=" + "" + Text1.Text + "" 关于这个的"[姓名]=" + "" + Text1.Text + "" 怎么理解?2个"" 是什么意思? 还有,那个=是干么的?谢.

还有个问题data1.recordset.movenext这个是让移动到下个记录不过,如果直接是这个,就是在数据库中移动到下一个记录但,好象如果data1.recordset.movenext前有个搜索的过程的话,这个移动,就是在搜索的结果里移动到下一个符合条件的记录吗?

Data1.Recordset.FindFirst "company =" & Chr(39) & schdata & Chr(39) 你改为Data1.Recordset.FindFirst "user =" & Chr(39) & schdata & Chr(39) 最好不要用绑定的,那只会把你自己绑死.上面代码我是把找到的放在 List1 里面,你当然可以放在 Text1里面Text2.Text = Data1.Recordset.Fields("company") '公司Text3.Text = Data1.Recordset.Fields("owner") '负责人Text4.Text = Data1.Recordset.Fields("truckno") '车牌号

回9F 你要先找到第一笔,再用 Findnext 找,直到找不到为止,先了解我上面的代码吧,用这种方法肯定比 movenext一笔一笔来比当然快多了.

对于10F我用这样的.Text1.DataField = "user"Text2.DataField = "QQ"Text3.DataField = "E-mail"这2种,哪个好?

申明下,我用了2个Option来确定是按姓名搜索还是按QQ号来搜索.Private Sub Option1_Click()jianbie = FalseEnd Sub若jianbie=false则说明按姓名,反之则用QQ号来搜索.----------------------------------------------------Private Sub Command1_Click()If jianbie = False ThenData1.Recordset.FindFirst "user =" & Chr(39) & schdata & Chr(39)If Data1.Recordset.NoMatch Thenresult = MsgBox("查无此人，是否重新查找？", vbOKCancel + vbQuestion)If resrlt = 1 ThenText1 = ""Text1.SetFocusElseUnload MeEnd IfElseData1.Recordset.FindFirst "QQ =" & Chr(39) & schdata & Chr(39)If Data1.Recordset.NoMatch Thenresult = MsgBox("查无此人，是否重新查找？", vbOKCancel + vbQuestion)If resrlt = 1 ThenText1 = ""Text1.SetFocusElseUnload MeEnd IfEnd IfEnd IfEnd IfEnd Sub-----------------------------------------------上面的代码,我写的烦琐了写,现在不管查什么,都显示查不到.就算查有的数据,也是一样的.

问题:关于数据录入的Private Sub Form_Load()Data1.RefreshData1.Recordset.AddNewEnd Sub我先在程序开始时添加了个新记录,如果我不输入任何内容就关闭了 ,然后再打开程序,不就又添加了一条新记录嘛.但是,查看数据库时,没发现有许多空的记录啊.为什么?是不是数据库自动删除了空白的?

写了一通回复7F、8F、9F的，结果找不到网页，没了。现在发现又增加了这么多F，就不再写了。13F：你写的查询部分的应该是
正确的
，不过不知道你所说的查不到是弹出了对话框还是没有显示出来。但是下面这句错了：If resrlt = 1 Then 应该是：If resrlt = vbyes Then 或If resrlt = 6 Then

15F是弹出了对话框

schdata变量赋值了吗？

17F什么意思?

发现个问题,13F的result,后面2个都拼写错了。但都改对了,也还是一样啊.郁闷.

Data1.Recordset.FindFirst "user =" & Chr(39) & schdata & Chr(39) 查询条件值变量schdata在这个过程中没看到赋值