求教datagrid显示记录的问题

okcat 2004-08-11 10:05:06
用ADO连接数据库,用datagrid显示数据库记录,查询记录集中满足某一条件的记录,能否在datagrid中只显示出满足这一条件的记录,不显示其他记录,可以实现吗,如果可以方法是什么
能不能写成:
dim sql as string
sql="select * from 学生表 where xh=text1.text
datagrid1.datasource=sql
...全文
109 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
lihonggen0 2004-08-12
  • 打赏
  • 举报
回复
你跟踪一下你的sql

mjun007 2004-08-12
  • 打赏
  • 举报
回复
当然ADODC1已经在设计阶段设好连接属性,即已连上数据库了。
mjun007 2004-08-12
  • 打赏
  • 举报
回复
两个控件ADODC1,DATAGRID1,DATAGRID的datasource对应ADODC,然后

Adodc1.RecordSource="select * from 学生表 where xh='" & text1.text & "'"
adodc1.refresh
datagrid1就会出现相应条件的记录了

cqm2099 2004-08-12
  • 打赏
  • 举报
回复
上面的正确答案好多,UP一下吧!
Andy__Huang 2004-08-11
  • 打赏
  • 举报
回复
dim sql as string
dim rs as new adodb.recordset
sql="select * from 学生表 where xh='" & text1.text & "'"
rs.cursorlocation=aduseclient
rs.open sql,conn,1,3

set datagrid1.datasource=rs

有記錄就顯示出來,沒有就不顯示
lihonggen0 2004-08-11
  • 打赏
  • 举报
回复
工程--->引用--->Microsoft ActiveX Data Object 2.x(版本号)

Dim CN As New ADODB.Connection '定义数据库的连接
Dim Rs As New ADODB.Recordset
CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=northwind;User Id=sa;Password=xxx;"
CN.Open
dim sql as string
sql="select * from 学生表 where xh='"& trim(text1.text) &"'"

Rs.CursorLocation = adUseClient
Rs.Open sql, CN, adOpenDynamic, adLockOptimistic


Set DataGrid1.DataSource = Rs

1,216

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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