VB6再回首：数据访问

　　十几年前最开始用VB时，是从数据绑定开始的，后来，自己慢慢开始“不屑”这种简单的、傻瓜化的操作，逐步向sql语句过渡：几乎所有的数据库操作都用sql完成，还颇以此自得。再后来，转向asp.net，页面中大量的数据库访问，逼迫自己慢慢形成自己的页面交换模块，来简化代码量。

　　今天刚好又写了一段数据库程序，发现，用adodc控件，可以快速的实现数据和控件之间的交互而几乎没有代码量。

　　方法很简单，加入ａｄｏｄｃ后，先简单配置连接和查询，指定关联的控件。再取消连接和查询。

加载代码：

ad.ConnectionString = oCn.ConnectionString
ad.RecordSource = "select * from mapdata where CodeNum='" & CodeNum & "'"
ad.Refresh

添加代码：

ad.ConnectionString = oCn.ConnectionString
ad.RecordSource = "select * from mapdata where 1=2"
ad.Refresh
ad.Recordset.AddNew

更新代码：

ad.Recordset.Update