如何用data report和data environment??

如何用这两个控件做报表啊?谁有专门讲这两个的电子教材或着其他的东西啊??我是新人不会用啊.各位大虾帮帮忙吧.  
  问题点数：50、回复次数：4Top

1 楼lsj1982（爱上你不是我的错）回复于 2004-08-01 13:17:24 得分 10

msdn中很多帮助。  
  http://www.applevb.com/Top

2 楼vbman2003（家人）回复于 2004-08-01 13:25:55 得分 30

不要用Environment，直接添加DataReport。在细节中用RptTextBox控件按自己的打印要求布局。将其DataField属性对应相应的字段，注意不要设置DataMember，双击DataReport，添加代码如下：  
  Private   Sub   DataReport_Initialize()  
          Dim   cn   As   ADODB.Connection  
          Dim   rs   As   ADODB.Recordset  
          Dim   Sql   As   String  
          '连接数据库(Access)  
          Set   cn   =   New   ADODB.Connection  
          With   cn  
                  .Provider   =   "MSDataShape.1"   '一定要加这句  
                  .Open   "Provider=Microsoft.Jet.OLEDB.4.0;"   &   _  
                  "Data   Source="   &   App.Path   &   "\db1.mdb;"   &   _  
                  "Persist   Security   Info=False"  
          End   With  
          '组合查询语句：  
          Sql   =   "SELECT   *   FROM   TableName   "   &   _  
                  "where   ID   ='"   &   Form1.Text1.text   &   "'"  
          '打开查询记录集  
  　　Set   rs   =   New   ADODB.Recordset  
          rs.Open   Sql,   cn,   adOpenStatic,   adLockReadOnly  
          Set   Me.DataSource   =   rs  
  End   Sub  
   
  Top

3 楼lonelycrab（独孤蟹）回复于 2004-08-01 14:33:01 得分 0

上面的一段代码是干吗的啊？Top

4 楼tmkwind（执著）回复于 2004-08-01 17:04:45 得分 10

Dim   cn   As   ADODB.Connection  
          Dim   rs   As   ADODB.Recordset  
          Dim   Sql   As   String  
          '连接数据库(Access)  
          Set   cn   =   New   ADODB.Connection  
          With   cn  
                  .Provider   =   "MSDataShape.1"   '一定要加这句  
                  .Open   "Provider=Microsoft.Jet.OLEDB.4.0;"   &   _  
                  "Data   Source="   &   App.Path   &   "\db1.mdb;"   &   _  
                  "Persist   Security   Info=False"  
          End   With  
          '组合查询语句：  
          Sql   =   "SELECT   *   FROM   TableName   "   &   _  
                  "where   ID   ='"   &   Form1.Text1.text   &   "'"  
  Set   rs   =   New   ADODB.Recordset  
          rs.Open   Sql,   cn,   adOpenStatic,   adLockReadOnly  
          Set   Me.DataSource   =   rs  
  这一段代码是使用ADO连接数据库，并得到将要使用的数据集  
   
   
  Top

相关问题

• sql
• adodb
• datareport
• cn
• recordset
• dim
• rs
• connection
• provider
• open

• 帖主：lonelycrab
• lsj1982
• vbman2003
• tmkwind

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