Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

将获取的RS数据集 写入 本地表!

时 间:2014-08-06 10:26:42
作 者:litao   ID:37995  城市:上海
摘 要:'RS  数据集

'TableName 需要写入 的本地表 名称

'RS 的字段名,必须全部存在于 TableName 。
正 文:

'RS  数据集

'TableName 需要写入 的本地表 名称

'RS 的字段名,必须全部存在于 TableName 。


Public Function RSinTable(RS As ADODB.Recordset, TableName As String) As Boolean  '从RS 写入到 本地表

    RSinTable = False
    On Error GoTo err
    Dim RSin As New ADODB.Recordset
    Dim SQLstr As String
    SQLstr = "Select * FROM " & TableName
    If Not RSopenW(RSin, SQLstr) Then GoTo err

    Dim 字段名 As String, i As Long
    If Not (RS.EOF And RS.BOF) Then RS.MoveFirst
    Do While Not RS.EOF
        RSin.AddNew
        For i = 0 To RS.Fields.Count - 1 '逐个字段
            字段名 = RS(i).name
            RSin(字段名) = RS(i)
        Next i
next1:  RSin.Update
        RS.MoveNext
    Loop
    RSin.Close
    RSinTable = True
    Exit Function
err:
    MsgBox " RSinTable 错误!err:" & err.Description

End Function



’=============================

'=============RS ADODB.Recordset========================
'打开ADODB.Recordset 只读
Public Function RSopenR(Res As ADODB.Recordset, SQLstr As String, Optional Con As ADODB.Connection = Nothing) As Boolean
    On Error GoTo err
    RSopenR = False
    If Con Is Nothing Then Set Con = CurrentProject.Connection
    DoCmd.SetWarnings False '关闭警告提示
    If Res.State Then Res.Close '确定关闭了原有 Res
    Res.Open SQLstr, Con, adOpenStatic, adLockReadOnly ', adAsyncFetchNonBlocking
    RSopenR = True
    Exit Function
err:
    MsgBox "'打开ADODB.Recordset只读 RSopenR(SQLstr=“" & SQLstr & "”) err:" & Chr(13) & err.Description
End Function

'打开ADODB.Recordset 读写
Public Function RSopenW(Res As ADODB.Recordset, SQLstr As String, Optional Con As ADODB.Connection = Nothing) As Boolean
    On Error GoTo err
    RSopenW = False
    If Con Is Nothing Then Set Con = CurrentProject.Connection
    If Res.State Then Res.Close '确定关闭了原有 Res
    Res.Open SQLstr, Con, adOpenDynamic, adLockOptimistic
    RSopenW = True
    Exit Function
err:
    MsgBox "'打开ADODB.Recordset读写 RSopenW(SQLstr=“" & SQLstr & "”) err:" & Chr(13) & err.Description
End Function

Public Function cnMe() As ADODB.Connection
    Set cnMe = CurrentProject.Connection
End Function



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

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助