示例:
以下为引用的内容: Sub Mwrite() On Error GoTo thiserr Dim rs As New ADODB.Recordset rs.Open "dlmd", Currentproject.Connection, adOpenDynamic, adLockOptimistic, acTable rs.Save "a:\dlmd.adtg", adPersistADTG rs.Close Set rs = Nothing thisexit: Exit Sub thiserr: MsgBox Err.Description Resume thisexit End Sub Sub Mread() On Error GoTo Merr Dim i As Integer Dim rsDe As New ADODB.Recordset Dim rsSo As New ADODB.Recordset rsSo.Open "a:\dlmd.adtg", "provider=mspersist" rsDe.Open "dlmd", CurrentProject.Connection, adOpenKeyset, adLockOptimistic, acTable Do Until rsSo.EOF rsDe.AddNew For i = 0 To rsSo.Fields.Count - 1 rsDe.Fields(i) = rsSo.Fields(rsDe.Fields(i).Name) Next i rsDe.Update rsSo.MoveNext Loop rsSo.Close rsDe.Close Set rsSo = Nothing Set rsDe = Nothing Mexit: Exit Sub Merr: MsgBox Err.Description Resume Mexit End Sub |
关键词标签:实例,方法,传递,一个,
相关阅读
热门文章 SqlServer2005对现有数据进行分区具体步骤sql server系统表损坏的解决方法MS-SQL2005服务器登录名、角色、数据库用户Access、SQL Server、Oracle常见应用的区别
人气排行 如何远程备份(还原)SQL2000数据库SQL2000数据库远程导入(导出)数据配置和注册ODBC数据源-odbc数据源配置教程SQL2000和SQL2005数据库服务端口查看或修改SQL Server 2005降级到2000的正确操作步骤修改Sql Server唯一约束教程浅谈JSP JDBC来连接SQL Server 2005的方法SQL Server创建表语句介绍
查看所有0条评论>>