菜鸟求段简单代码,我不是搞VB的,但急用代码,请大家务必帮忙,很急的.........

一个窗口输入一个数字到编辑框,点确定,打开另一个窗口,显示DataGrid控件,数据源为select   *   from   mytest   where   id=text1.text这样,我不是搞VB的,但急用代码,请大家帮忙,分数管够. 问题点数：20、回复次数：2Top

1 楼talent303（风筝）回复于 2004-08-03 20:37:43 得分 10

在FROM1中,,,,在确定中写这样的程序  
  private   sub   cmd_ok()  
  from2.show  
  end   sub  
   
  在FROM2中有一个datagrid控件,,,,,  
   
  在from2_load中连接数据库  
  并让datagrid   中的数据源等于数据记录集中的数据即可,,,  
   
  findstr   =   "select   *   from   mytest   where   id='"&   text1.text   &"'"  
  Set   adorst   =   New   Recordset  
  adorst.Open   findstr,   db,   adOpenStatic,   adLockOptimistic  
  Set   DataGrid1.DataSource   =   adorst  
  DataGrid1.RefreshTop

2 楼artoksxb（进取人生）回复于 2004-08-04 09:15:51 得分 10

在FORM1中,text1为编辑框  
  private   sub   cmd_ok()  
  from2.show  
  end   sub  
   
  在FORM2中有一个datagrid控件,,,,,  
   
  在form_load中连接数据库  
  并让datagrid   中的数据源等于数据记录集中的数据即可,,,  
   
  findstr   =   "select   *   from   mytest   where   id='"&   trim(form1.text1)   &"'"  
  Set   adorst   =   New   Recordset  
  adorst.Open   findstr,   db,   adOpenStatic,   adLockOptimistic  
  Set   DataGrid1.DataSource   =   adorst  
   
  Top

相关问题

• 代码
• 数据
• 控件
• datagrid
• adorst
• findstr
• sub
• mytestwhere id
• form
• text

• 帖主：bonoji
• talent303
• artoksxb

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