Adodc1.Recordset.Find "学号='" & xh & "' and 课程='" & Combo1.Text & "'"错在哪？正确的应如何写？

jshyjyw 2001-12-31 01:03:24

Adodc1.Recordset.Find "学号='" & xh & "'"
单个学号查找，执行是对的，但我需要“学号” and “课程”查找。

我知道错在哪了，and 以后类型是布耳值！但正确的应该如何写呢？

在线等候！

...全文

556 9 打赏收藏转发到动态举报

写回复

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

itshere 2002-01-03

打赏
举报

回复

adodc2.recordset=adodc1.recordset.clone
adodc2.recordset.filter="学号='" & xh & "' and 课程='" & Combo1.Text & "'"
if Adodc2.Recordset.eof then
未找到
else
adodc1.recordset.bookmark=adodc2.recordset.bookmark
endif

jshyjyw 2002-01-03

打赏
举报

回复

顶呀顶呀顶！

jshyjyw 2001-12-31

打赏
举报

回复

我想移动指针到符合条件的记录上，而非筛选出符合条件的记录！

luocc 2001-12-31

打赏
举报

回复

adodc2.recordset open "select 学号='" & xh & "' and 课程='" & Combo1.Text & "'"

blp 2001-12-31

打赏
举报

回复

那没有办法了，只能自己从头找到尾了。
或者你用DAO或RDO访问数据库好了，他们是支持的。

jshyjyw 2001-12-31

打赏
举报

回复

推！！！！！！！！！

jshyjyw 2001-12-31

打赏
举报

回复

to blp(★★★)　:这样不行呀，只显示找到的那条记录了，而我想的是指针移动到找到的那条记录。

yanghly 2001-12-31

打赏
举报

回复

Adodc1.Recordset.Find "学号='" & xh & "'"
And
Adodc2.Recordset.Find "课程='" & Combo1.Text & "'"

你试试吧！

blp 2001-12-31

打赏
举报

回复

ADO只支持单个字段的find，所以不能AND了。
可以这样使用
Adodc1.Recordset.filter="学号='" & xh & "' and 课程='" & Combo1.Text & "'"
if Adodc1.Recordset.eof then
未找到
else
未找到
endif

保存到Access数据库,Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\汽车信息.mdb;Persist Security Info=False" Adodc1.RecordSource = "select * from 汽车信息表" Adodc1.Refresh(VB6.0源代码编写)

帐目查询(VB6.0源代码编写)'按日期查询并汇总商品销售信息 Adodc1.RecordSource = "select * from xsd where 日期 between " + Chr(35) + Str(DTPicker1.Value) + Chr(35) + "and " + Chr(35) + Str(DTPicker2.Value) + Chr(35) + "order by 日期" Adodc1.Refresh lblCount = Sum(Adodc1.Recordset, Adodc1.Recordset.Fields("数量")) lblS1 = Sum(Adodc1.Recordset, Adodc1.Recordset.Fields("金额")) lblS2 = Sum(Adodc1.Recordset, Adodc1.Recordset.Fields("利润"))

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then If Not IsNumeric(Text1.Text) Then MsgBox "输入不符合条件，采购员编号必须为数字" Else Adodc1.RecordSource = "select * from T_cgyzl where 采购员编号='" + Text1.Text + "'" Adodc1.Refresh If Adodc1.Recordset.RecordCount > 0 Then XPButton2.Enabled = True XPButton3.Enabled = True XPButton4.Enabled = True Text1.Locked = True Text1.Text = Adodc1.Recordset.Fields("采购员编号") Text2.Text = Adodc1.Recordset.Fields("姓名") Text3.Text = Adodc1.Recordset.Fields("年龄") Text4.Text = Adodc1.Recordset.Fields("籍贯") Text5.Text = Adodc1.Recordset.Fields("电话") Text6.Text = Adodc1.Recordset.Fields("现住址") Text7.Text = Adodc1.Recordset.Fields("工龄") Text8.Text = Adodc1.Recordset.Fields("底薪") Text9.Text = Adodc1.Recordset.Fields("业绩") xcombox1.Text = Adodc1.Recordset.Fields("学历") xcombox2.Text = Adodc1.Recordset.Fields("民族") xcombox3.Text = Adodc1.Recordset.Fields("性别") Else MsgBox "没有该采购员的信息!!", 64, "采购管理系统" End If End If Else

很强大的 Private Sub TreeView3_NodeClick(ByVal Node As MSComctlLib.Node) provider = "provider=Microsoft.jet.oledb.4.0" datasource = "data source=" & App.Path & "\DB.mdb" With Adodc3 .Mode = adModeReadWrite .ConnectionString = provider & ";" & datasource .CommandType = adCmdTable .RecordSource = "class" .Refresh End With Dim a As String s = TreeView3.SelectedItem.Text e = TreeView3.SelectedItem.Parent If e = "公寓管理系统" Then a = "select * from users where 公寓='" & Trim(s) & "'" Else a = "select * from users where 公寓='" & Trim(e) & "' and 寝室='" & Trim(s) & "'" End If With Adodc1 .Mode = adModeReadWrite .ConnectionString = provider & ";" & datasource .CommandType = adCmdText .RecordSource = a .Refresh End With Set DataGrid1.datasource = Adodc1 DataGrid1.Refresh End Sub

查询记录功能,从access数据库中读取,Adodc1.RecordSource = "select * from 订单表 where 订单号='" + Text1(0).Text + "'" Adodc1.Refresh(VB6.0源代码编写)

7,763

社区成员

197,609

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章