VB6链接Oracle常用数据库操作类模块（原创、源码、说明）(2)

1、类模块源码

类模块名称：RStoGrid

Public Sub addToGrid(ByVal tableName As String, ByVal FieldName As

String, ByVal toGrid As DataGrid)

Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset Dim sqlStr As String

sqlStr = \ rs.Open sqlStr, Cnn, adOpenKeyset, adLockOptimistic Set toGrid.DataSource = rs ' rs.Close End Sub

2、操作代码

Private Sub Command5_Click() Dim myGrid As New RStoGrid

Call myGrid.addToGrid(\End Sub

（七）设置起止日期

查询时经常默认的起始日期是当年1月1日，截止日期是当天，该类模块每次使用节省两行代码。使用该类模块时注意哪个是起始哪个是截止日期。

1、类模块源码

类模块名称：SetDTPicker

Public Sub dateSet(ByVal StartDate As DTPicker, ByVal EndDate As

DTPicker)

EndDate.Value = Date

StartDate.Year = EndDate.Year StartDate.Month = 1 StartDate.Day = 1 End Sub

2、操作代码

Private Sub Command4_Click()

Dim myDate As New SetDTPicker

Call myDate.dateSet(DTPicker1, DTPicker2) End Sub

三、经验总结

其实，在数据库操作中使用“*”进行操作均较为业余，同时也增加数据库负担，建议用指定的若干个Field名取代之，减少数据库压力。但如果是几万条以内的数据，你想用就用吧。本文只是为大家提供了简化数据库操作的方法，大家可以根据自己的数据库实际情况进

行修改，本文囊括了大多数数据库操作，笔者个人感觉使用起来很方便。大家有问题可以Email联系我。

百度文库首发，版权所有，翻版必究。