ADO对象.控件

请教：  
        1.用ADO对象时，怎样把数据库中的一个表显示在MSFLEXGRID中？  
        2.用ADO控件时，怎样在运行时改变RECORDSOURCE的属性？  
                  致礼！  
                                                  JSHKW3  
  问题点数：10、回复次数：13Top

1 楼songyangk（小草）回复于 2001-07-31 19:42:16 得分 0

有两种方法，1-绑定，已过时，且只能显示2048行；2-手动向网格里填。我就是填的。  
  第二个问题不知道你要改什么属性。Top

2 楼mmzxg（超级笨蛋）回复于 2001-07-31 19:57:28 得分 0

1.用添加很快就可以了  
  2。什么意思，情说明白，那个的属性  
  Top

3 楼zhongguocsdn（csdn）回复于 2001-07-31 23:16:13 得分 0

对不起，是我没说清楚！  
  1.用ADO对象时，怎样把数据库中的一个表显示在MSFLEXGRID中？即我用ADO对象调出数据库中的一个表，可只能显示在LIST里任意一个字段，却不能显示所有字段！所以只好考虑用MSFLEXGRID  
    2.用ADO控件时，我已设定好RECORDSOURCE（数据库中的某个表），我希望运行时能够改变RECORDSOURCE的属性，即是使这个ADO控件在运行时能够改变为另外一个表？  
          希望高手留下E—MAIL，以便在下请教！多谢了！！！  
                    Top

4 楼hychy（hzhz）回复于 2001-07-31 23:21:52 得分 0

请把问题E_mail给我，我给你原代码  
  E_mail:hychy@sina.comTop

5 楼ExitWindows（void）回复于 2001-07-31 23:32:53 得分 0

upTop

6 楼sssoft（恒谦）回复于 2001-07-31 23:38:44 得分 10

先创建一个结果集  
  public   Sub   InsertGrid(fg   as   MSHFlesGrid,recc   as   adodb.Recordset)  
          With   fg  
                  .Clear  
                  .Redraw   =   False  
                  .Visible   =   False  
                  .SelectionMode   =   flexSelectionFree  
                  .AllowBigSelection   =   True  
                  .FillStyle   =   flexFillRepeat  
                  Set   .DataSource   =   recc  
                  .Row   =   1  
                  .Col   =   1  
                  .RowSel   =   .FixedRows   -   1  
                  .ColSel   =   .Cols   -   1  
                  .CellFontBold   =   True  
                  .ColSel   =   .FixedCols   -   1  
                  .RowSel   =   .Rows   -   1  
                  .CellBackColor   =   &HFF9E57  
                  .CellFontBold   =   True  
                  .FillStyle   =   flexFillSingle  
                  .AllowBigSelection   =   False  
                  .Redraw   =   True  
                  .Visible   =   True  
                  Set   .DataSource   =   Nothing  
          End   With  
  end   sub  
  注意最后一定要设置.DataSource=nothing,否则行数有限制，而且滚动很慢。  
  需要改变的时候，在调用一下这个过程就行了。  
  Top

7 楼sssoft（恒谦）回复于 2001-07-31 23:39:54 得分 0

上面的代码是专业级的，1万行数据2-3秒钟。我最多添加过5万行，好像没什么限制。Top

8 楼ExitWindows（void）回复于 2001-08-01 02:30:15 得分 0

upTop

9 楼outer2000（天外流星）回复于 2001-08-01 07:57:45 得分 0

upTop

10 楼zhongguocsdn（csdn）回复于 2001-08-02 19:39:37 得分 0

感谢各位帮忙！  
  尤其谢谢sssoft(恒谦)　！Top

11 楼crazyasp（疯子）回复于 2001-08-03 16:31:30 得分 0

UP是什么意思??Top

12 楼siyuan79（荔枝（广州新塘））回复于 2001-08-08 14:11:39 得分 0

1.用ADO对象时，怎样把数据库中的一个表显示在MSFLEXGRID中？  
      2.用ADO控件时，怎样在运行时改变RECORDSOURCE的属性？  
                  致礼！  
                                                  JSHKW3  
  Top

13 楼yuanxy（梦想鸭）回复于 2001-08-09 07:50:32 得分 0

好贴子，T一下。Top

相关问题

• 控件
• ado
• 属性
• 数据库
• recordsource
• 对象
• msflexgrid
• 用ado
• 运行
• 显示

• 帖主：zhongguocsdn
• sssoft

• Visual Basic类图书
• Visual Basic类源码下载