vb中如何把查询到的数据显示在msflexgrid上呢 请高手来围观解答啊

vb中如何把查询到的数据显示在msflexgrid上呢 请高手来围观解答啊~

你怎么是一条呢，只要Excel中有数据记录就能显示完好的哦！

连接Excel 文件:
With Data1
.Connect = "Excel 5.0;"
.DatabaseName = "D:\vbTemp\excel.xls"
.RecordSource = "Sheet1$"

End With

先得到记录集rst
Set MSFlexGrid1.DataSource = rst

是否又是你在问这个问题了？

你连接的是否为Access 数据库？下面以Access 数据库为例子：

 

先看一下结果。

窗体中放置好各控件，Form_Load()增加如下的程序：

Private Sub Form_Load()
   With Data1
         .Connect = "Access"
         .DatabaseName = "D:\vbTemp\myDB.mdb"                         ‘数据库所在的全路径及名称
         .RecordSource = "SELECT  * FROM T101 ORDER BY F1"  '这里的T101是我用的表名称
         .Refresh                                                                                ’F1 是我用的字段名称
    End With
End Sub
“查询”按扭增加如下的程序：

 

Private Sub cmdFind_Click()    
    With Data1
      .RecordSource = "SELECT * FROM T101 WHERE F1 Like '" + Trim(txtCode) + "*'"
      .Refresh
    End With    
End Sub

1、添加 MSFlexGrid 控件：

     “工程”->"部件"->"选择 Microsoft FlexGrid Control 6.0"->"确定"

2、Data 控件应该会设置吧

3、窗体上放置该控件，设置其 DataSource 属性=Data1

3、添加需要的程序

4、程序中的 "F1" 是我用字段名称，代表的是“错误编号”

5、查询中用 Like 语句可以获得相关的结果，也可以用 "=" 但后面不需要*“符号

     "SELECT * FROM T101 WHERE F1 ='" + Trim(txtCode) + "'"

你用msHflexgrid吧，msflexgrid不支持，需要单个写，带H 的是6.0的，可以直接绑定

---

隆阳区18260435425： 在VB中怎么样使用MSFlexGrid控件将查询结果显示出来 - ？
秘菡胆维： 楼上的回答有误,这个问题根本用不到for循环,应该如下解决:在模组里定义如下变量:Public cn As New ADODB.Connection '通用连接资料库字串 Public rs As New ADODB.Recordset '通用获取记录集字串 Public Const str_Ado = ＂Provider=...

隆阳区18260435425： VB调用SQL中的存储过程,并将结果显示在MSFlexGrid控件中.急等!!! - ？
秘菡胆维： 这个简单,先把数据读出来 然后再显示就行了,帖一段自己的程序你看看Private Sub Command2_Click()link With adoRes i = 1 While Not .EOF...

隆阳区18260435425： vb6中如何设置能够只查询指点的字段并在MSFLEXGRID中显示出来? - ？
秘菡胆维： 新建一个工程,放个 MSHFlexGrid1 和一个按钮 Command1 在代码窗放入下面代码 Option Explicit Public con As New ADODB.Connection Public Rs As New ADODB.Recordset'连接数据库语句 Public Function conData() con.ConnectionString ...

隆阳区18260435425： 在VB中想实现用select语句查询筛选之后的数据在MSChart上用图表显示出来,请问如何实现? - ？
秘菡胆维： 直接用添加数据点的方法和数组都可以,举个例,用添加数据点的方法画一个有10个随机数据点的曲线图:Dim random As New Random() Dim pointIndex As Integer For pointIndex = 0 To 9 chart1.Series[0].Points.AddY(random.Next(1,100)) Next pointIndex chart1.Series[0].ChartType=SeriesChartType.Line; 希望对你有帮助

隆阳区18260435425： 大神求救;vb 中我怎么把根据条件查询的结果显示在MSHFlexGrid里;不是所有; - ？
秘菡胆维： 将执行的结果赋值给RecordSet,再将RecordSet绑到MSHFlexGrid,你可以把RecordSet保存成XML,XML数据Excel可以直接读取

隆阳区18260435425： vb将sql server的数据查询到msflexgrid控件显示时,要加一个“序号”列,显示1,2,3,4这样的顺序号.？
秘菡胆维： 用RecordSet把数据读出来,一条一条的填进msflexgrid里,顺便就可以在前面加序号了 例如 Set myDb = Workspaces(0).OpenDatabase(＂d:\data.mdb＂, False, False, ＂;pwd=＂ & strPassword & ＂＂) Set myRs = myDb....

隆阳区18260435425： vb6中如何在TEXT1中输入数据,在MSHFlexGrid控件中实时显示根据TEXT1中的条件查询到的数据并写入TEXT1中 - ？
秘菡胆维： 思路:你的要求全部是键盘按下事件.所以应该用控件的KeyDown事件来写代码. 而KeyDown事件中包含参数KeyCode ,即:每个键按下后返回的值, 所以,可以用 MsgBox KeyCode 语句来得到按下某个键时返回的值, 比如:按下回车踺时...

隆阳区18260435425： VB中怎么通过查询ACCESS数据库把筛选的具有相同条件的多条数据同时显示在MSHFlexGird控件中? - ？
秘菡胆维： 假设你是用Adodb控件连接数据库的. Adodc1.RecordSource=＂Select * form 你的数据库名 where 筛选数据列名=筛选条件＂ Adodc1.Refresh Set MSHFlexGrid1.DataSource = adodb1 MSHFlexGrid1.Refresh可以试一下以上方法.

隆阳区18260435425： 请教高手:delphi7中怎么把数据库中符合条件的多行数据显示到MSFlexGrid1中 - ？
秘菡胆维： 没用过你说的MSFlexGrid1控件,这个控件应该是微软的吧.delphi本身有支持数据库的grid控件,也有很多第三方的grid控件的表现和delphi的grid控件基本一致.通过查询query控件将满足你条件的记录筛选出来,在关联的dbgrid控件中全部显示出来----这种操作在delphi中是极其平常的操作了.不要把VB的操作模式带到delphi中!!!

隆阳区18260435425： VB中如何绑定数据到MSChart 控件? - ？
秘菡胆维： Microsoft Chart 控件是一个数据绑定控件,允许您以图形方式表示数值数据.不像其他数据绑定控件,Chart 控件不能同 Remote Data 控件一起使用,也不能同 Data 控件一起使用.它可以同 ADO Data Control、ADO Recordset 以及 Data ...