| 发表于:2007-03-09 11:23:34 楼主 |
private sub ado_openrecordsets() '++ open the two recordsets on error goto errorhandler dim tmp_rs as adodb.recordset set tmp_rs = new adodb.recordset tmp_rs.open "select * from " & text2.text, padocon, adopenforwardonly, adlockreadonly attsqlstr = getattrflds(tmp_rs) tmp_rs.close set tmp_rs = nothing set padors_att = new adodb.recordset set padors_geom = new adodb.recordset '++ open a new geometry-only recordset padors_geom.open "select " & sspatialgeomcolnameparam & " from " & text2.text, padocon, adopenforwardonly, adlockreadonly '++ open a new attribute-only recordset padors_att.open "select " & attsqlstr & " from " & text2.text, padocon, adopenforwardonly, adlockoptimistic exit sub |
|
|
|
|