DAO与ADO格式

时　间:2013-05-24 17:02:19
作　者:小赵   ID：30394  城市：兰州
摘　要:www.accessoft.com
正　文:

这是本人在做ADO与DAO代码示例时总结的，相同之处与特别之处已作标注。 

新增事件

Dim rst As ADODB.Recordset  定义ADO记录集

Dim strSQL As String     定义strsql,在下面要用到，具体用时，具体定义。

……….

Set rst = New ADODB.Recordset 

    rst.CursorLocation = adUseClient

    rst.Open strSQL, CurrentProject.Connection, 2, 3

rst.AddNew                            注：新增，修改为edit,删除为delete

……..

rst.Update        注：新增与修改都需要更新记录集，删除与加载则不需要这句。

rst.Close

Set rst = Nothing

新增事件

Dim rst As DAO.Recordset    定义DAO记录集

Dim strSQL As String

……

Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)

  rst.AddNew

……..

rst.Update

rst.Close

  Set rst = Nothing

加载事件

Dim rst As ADODB.Recordset         定义ADO记录集

…….

 Set rst = New ADODB.Recordset

    rst.CursorLocation = adUseClient

    rst.Open strSQL, CurrentProject.Connection, 2, 3

rst.MoveFirst    移动到第一条

…..

rst.Close

 Set rst = Nothing

加载事件

Dim rst As DAO.Recordset      定义DAO记录集

……..

Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)

rst.MoveFirst

…….

rst.Close

Set rst = Nothing

修改事件

Dim rst As ADODB.Recordset    定义ADO记录集

……

Set rst = New ADODB.Recordset

    rst.CursorLocation = adUseClient

    rst.Open strSQL, CurrentProject.Connection, 2, 3

rst.MoveFirst

 rst.EditMode

…….

rst.Update

    rst.Close

    Set rst = Nothing

修改事件

Dim rst As DAO.Recordset        定义DAO记录集

Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)

    rst.MoveFirst

rst.Edit

……

rst.Update

    rst.Close

    Set rst = Nothing

删除事件

Dim rst As ADODB.Recordset    定义ADO记录集

……..

Set rst = New ADODB.Recordset

        rst.CursorLocation = adUseClient

        rst.Open strSQL, CurrentProject.Connection, 2, 3

        rst.MoveFirst

        rst.Delete    '删除

        rst.Close

        Set rst = Nothing

删除事件

Dim rst As DAO.Recordset        定义DAO记录集

……..

Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)

        rst.MoveFirst

        rst.Delete '删除

        rst.Close

        Set rst = Nothing

 如有错误之处，欢迎指点修改。谢谢。

不论ADO还是DAO，只要达到效果目的就行。只会一种也就够了。

若以后打算后台升迁到SQL，那保存数据最好用ADO,速度更快

新增保存
    Dim rst As ADODB.Recordset
    Dim strSQL As String
    Set rst = New ADODB.Recordset
    strSQL = "select * from tblcode_lj"
    rst.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    rst.AddNew

修改加载
    Dim rst As New ADODB.Recordset
    Dim strSQL As String
    strSQL = "select * from tblcode_lj where ljid = '" & selectstr & "'"
    rst.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockReadOnly

修改保存
    Dim rst As ADODB.Recordset
    Dim strSQL As String
    Set rst = New ADODB.Recordset
    strSQL = "select * from tblcode_lj where ljid = '" & Me.ljid & "'"
    rst.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic 

 

Access软件网QQ交流群 (群号:54525238) 　　　　　　Access源码网店