| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1037 人关注过本帖
标题:如何实现MSFlexGrid根据TEXTBOX输入自动搜索数据库
只看楼主 加入收藏
qq30254352
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2007-4-17
收藏
 问题点数:0 回复次数:1 
如何实现MSFlexGrid根据TEXTBOX输入自动搜索数据库
如何实现在TextBox里面输入字符,MSFlexGrid根据输入字符自动搜索数据库并显示在表格中
请教高人指点,谢谢!!
Dim str As String
str = " select * from 会员表 where 会员卡号 like '% " + Text1.text + "%'"
MSFlexGrid1.Cols = 6
MSFlexGrid1.ColWidth(0) = 1500
MSFlexGrid1.ColWidth(1) = 2000
MSFlexGrid1.ColWidth(2) = 2000
MSFlexGrid1.ColWidth(3) = 1500
MSFlexGrid1.ColWidth(4) = 1500
MSFlexGrid1.ColWidth(5) = 1500

Dim temp As Integer
Dim i, j As Integer
Dim re As New ADODB.Recordset

re.Open str, conn, 1, 3
MSFlexGrid1.Rows = re.RecordCount + 1

For i = 1 To re.RecordCount
  Me.MSFlexGrid1.Row = i
  For j = 0 To 5
    MSFlexGrid1.Col = j
    MSFlexGrid1.Text = re(j)
  Next j
  re.MoveNext
Next

re.Close

End Sub
搜索更多相关主题的帖子: TEXTBOX 数据库 MSFlexGrid 搜索 自动 
2010-09-24 12:36
coody
Rank: 2
等 级:论坛游民
帖 子:9
专家分:15
注 册:2006-8-5
收藏
得分:0 
还是新帖子啊!  帮你顶顶看!!!!!!
2010-09-24 13:02
快速回复:如何实现MSFlexGrid根据TEXTBOX输入自动搜索数据库
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.018964 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved