Msflexgrid和Datagird

Question

我做了一个货物预览窗体。在点击按钮后datagrid或者msfLexgird控件显示数据库中的表 
datagrid用ADODC连接的。msflexgrid用的是data 
我只知道用datagrid msflexgrid的datasource属性直接连接数据库 
那样只能显示其中一个表的记录，我目的是点击不同的按钮让datagrid或者msflexgrid显示不同的表记录 
按钮的命令应该怎么写呀。写出其中一个就可以了呜呜！！！

Answer 1

Private Sub Command1_Click()
    Data1.RecordSource = "表2"
    Data1.Refresh    Adodc1.RecordSource = "表2"
    Adodc1.Refresh
End Sub

Answer 2

那我再描述详细点.
窗体上比如说有三个按钮,一个Msflexgird控件,一个data控件(已连接数据库)
当程序运行后,不让Msflexgird控件直接显示数据库记录.而是点击按钮后msflexgird才显示.
并且点击三个按钮时,msflexgird显示不同的数据库表.
(msflexgird,data可以替换成datagrid,adodc)

问题就是:点击三个按钮时,msflexgird显示不同的数据库表的代码怎么写

Answer 3

Private Sub Command1_Click()
    Adodc1.RecordSource = "表1"
    Adodc1.Refresh
End SubPrivate Sub Command2_Click()
    Adodc1.RecordSource = "表2"
    Adodc1.Refresh
End SubPrivate Sub Command3_Click()
    Adodc1.RecordSource = "表3"
    Adodc1.Refresh
End Sub

Answer 4

设计时 RecordSource 留空
Private Sub Command1_Click()
    Data1.RecordSource = "表1"
    Data1.Refresh
End SubPrivate Sub Command2_Click()
    Data1.RecordSource = "表2"
    Data1.Refresh
End SubPrivate Sub Command3_Click()
    Data1.RecordSource = "表3"
    Data1.Refresh
End Sub

Answer 5

如果是显示所有记录的话，楼上VB老鸟和jhone99都给写出来了配置好Adodc的ConnectionString属性，你用的Access数据库，以前写过用ADO对象创建连接这次直接选，选中Adodc1->ConnectionString属性->打开“属性页”对话框，选择“使用连接字符串”->Miscrsoft Jet 4.0……->选择数据库，“测试连接”，确定。接下来DataSource属性，记录源选择2-adCmdTable，选上此控件对应的表。把楼上两位的代码加上就OK了。如果需要显示的不是全表，只是一部分记录，或者不显示所有字段，就用SQL语句吧。Private Sub Command1_Click()
    Dim sql as string
    sql = "Select 字段1,字段2,字段3,…… from 表 where 条件 "
    Adodc1.RecordSource = sql
    Adodc1.Refresh
End Sub