|
Adodc1.ConnectionString = Conn
Adodc1.RecordSource = "SELECT o.LayerId As 编号, o.Roomnum As 房间数," _
+ "o.BuildingNo AS 建筑物名称,o.LayerNo As 具体楼层," _
+ "o.Memos As 备注信息" _
+ " FROM Layer o , Building s " _
+ " WHERE o.BuildingNo=s.BuildingNo" + strSch _
+ " ORDER BY o.BuildingNo,o.LayerNo"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1 |
|