HOWTO： 通过使用 VisualBasic.NET 将记录插入 Access 数据库时检索标识值

最新推荐文章于 2024-11-05 14:22:47 发布
最新推荐文章于 2024-11-05 14:22:47 发布
阅读量285 收藏
点赞数
分类专栏： Access 文章标签： 数据库 access microsoft command table insert

HOWTO： 通过使用 VisualBasic.NET 将记录插入 Access 数据库时检索标识值

察看本文应用于的产品
<script type="text/javascript">function loadTOCNode(){}</script>
机器翻译 查看机器翻译免责声明
文章编号:815629
最后修改:2007年5月12日
修订:3.1
<script type="text/javascript"> var sectionFilter = "type != 'notice' && type != 'securedata' && type != 'querywords'"; var tocArrow = "/library/images/support/kbgraphics/public/en-us/downarrow.gif"; var depthLimit = 10; var depth3Limit = 10; var depth4Limit = 5; var depth5Limit = 3; var tocEntryMinimum = 1; </script> <script src="/common/script/gsfx/kbtoc.js?13" type="text/javascript"></script>

概要

<script type="text/javascript">loadTOCNode(1, 'summary');</script>
本文讨论如何从 Access 数据库检索标识列值。

从 Jet 数据库检索标识值是不同于与 SQLServer, 因为 Jet 数据库不支持多语句批处理命令。 JetOLEDB 版本 4.0 提供支持 @@Identity SELECT 查询， 可以检索您连接上生成自动递增字段的值。 以运行查询, SELECT @@Identity 建议您使用其他 OleDbCommand 对象。 本文介绍如何使用二 OleDbCommand 来检索标识列值。

注意： 此功能适用于 OLEDB Microsoft Jet 4.0 数据库只。 早期版本的 Microsoft Jet OLEDB 不支持此功能。

回到顶端

更多信息

<script type="text/javascript">loadTOCNode(1, 'moreinformation');</script>

连接到 Access 数据库

<script type="text/javascript">loadTOCNode(2, 'moreinformation');</script> 要接到 Access 数据库并创建表与标识列, 请按照下列步骤操作：
1.启动 Microsoft Visual Studio NET 2002。
2.在 文件 菜单, 指向 新建 , 然后单击 项目 。
3.项目类型 下单击 VisualBasic 项目 。 模板 部分, 下单击 控制台应用程序 。 默认情况下, 创建 Module 1。
4.命名 MyJetApplication 项目， 然后单击 确定 。
5.用以下代码替换现有代码：
Imports System
Imports System.Data
Imports System.Data.OleDb

Module Module1

   Sub Main()

      ' Open Connection 
      Dim cnJetDB As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=YourAccessDatabase")
      cnJetDB.Open()

      ' If the test table does not exist, create the Table.
      Dim strSQL As String
      strSQL = "CREATE TABLE AutoIncrementTest " & _
               "(ID int identity, Description varchar(40), " & _
               "CONSTRAINT AutoIncrementTest_PrimaryKey PRIMARY KEY (ID))"

      ' Command for creating Table.
      Dim cmdJetDB As New OleDbCommand(strSQL, cnJetDB)
      cmdJetDB.ExecuteNonQuery()

      ' Create a DataAdaptor With Insert Command For inserting records
      Dim oleDa As New OleDbDataAdapter("Select * from AutoIncrementTest", cnJetDB)


      ' Command to Insert Records.
      Dim cmdInsert As New OleDbCommand()
      cmdInsert.CommandText = "INSERT INTO AutoIncrementTest (Description) VALUES (?)"
      cmdInsert.Connection = cnJetDB
      cmdInsert.Parameters.Add(New OleDbParameter("Description", OleDbType.VarChar, 40, "Description"))
      oleDa.InsertCommand = cmdInsert

      ' Create a DataTable
      Dim dtTest As New DataTable()
      oleDa.Fill(dtTest)

      Dim drTest As DataRow

      ' Add Rows to the Table
      drTest = dtTest.NewRow
      drTest("Description") = "This is a Test Row 1"
      dtTest.Rows.Add(drTest)

      drTest = dtTest.NewRow
      drTest("Description") = "This is a Test Row 2"
      dtTest.Rows.Add(drTest)
      
   End Sub

End Module
6.修改连接字符串指向 Access 数据库中数据源名称。




回到顶端

捕获标识列值

<script type="text/javascript">loadTOCNode(2, 'moreinformation');</script> 来汇总 RowUpdated 事件的 DataAdapter, 中步骤, 您来捕获标识列值为 Access 数据库中表列生成。 RowUpdated 事件, 中通过其他 Command 对象, 将执行 SELECT @ @ IDENTITY 查询， 然后您将分配到标识列由查询返回值。 最后, 调用 AcceptChanges 方法要接受列值的 DataRow 对象。

请标识列值, 陷阱执行以下步骤：
1.添加下列代码之前 Main 方法来创建另一个 OleDbCommand 对象用于 SELECT @ @ IDENTITY 查询：
   ' Create OleDbCommand for SELECT @@IDENTITY statement
   Private cmdGetIdentity As OleDbCommand
2.以下代码附加到 Main 方法用于创建 OleDbCommand 类的新实例：
      ' Create another command to get IDENTITY value.
      cmdGetIdentity = New OleDbCommand()
      cmdGetIdentity.CommandText = "SELECT @@IDENTITY"
      cmdGetIdentity.Connection = cnJetDB
3.以下代码附加到 Main 方法用于处理 RowUpdated 事件：
      ' Delegate for handling RowUpdated event.
      AddHandler oleDa.RowUpdated, AddressOf HandleRowUpdated
4.以下代码附加到 Main 方法用于更新数据。 调用 Update 方法后引发 RowUpdated 事件。 
      ' Update the Data
      oleDa.Update(dtTest)
5.以下代码附加到 Main 方法释放资源和除去 AutoIncrementTest 表：
      ' Drop the table
      cmdJetDB.CommandText = "DROP TABLE AutoIncrementTest"
      cmdJetDB.ExecuteNonQuery()

      ' Release the resources.
      cmdGetIdentity.Dispose()
      cmdGetIdentity = Nothing
      cmdInsert.Dispose()
      cmdInsert = Nothing
      cmdJetDB.Dispose()
      cmdJetDB = Nothing
      cnJetDB.Close()
      cnJetDB.Dispose()
      cnJetDB = Nothing
6.以下 RowUpdated 事件处理代码添加到 Module 1： 
   ' Event handler for RowUpdated event.
   Private Sub HandleRowUpdated(ByVal sender As Object, ByVal e As OleDbRowUpdatedEventArgs)
      If e.Status = UpdateStatus.Continue AndAlso e.StatementType = StatementType.Insert Then
         ' Get the Identity column value
         e.Row("ID") = Int32.Parse(cmdGetIdentity.ExecuteScalar().ToString())
         Debug.WriteLine(e.Row("ID"))
         e.Row.AcceptChanges()
      End If
   End Sub
7.在 调试 菜单, 单击 开始 以运行该应用程序。 标识列值输出窗口中显示。


回到顶端

完成代码列表

<script type="text/javascript">loadTOCNode(2, 'moreinformation');</script> 
Imports System
Imports System.Data
Imports System.Data.OleDb

Module Module1

   ' Create OleDbCommand for SELECT @@IDENTITY statement
   Private cmdGetIdentity As OleDbCommand

   Sub Main()

      ' Open Connection 
      Dim cnJetDB As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=YourAccessDatabase")
      cnJetDB.Open()

      ' If the test table does not exist then create the Table
      Dim strSQL As String
      strSQL = "CREATE TABLE AutoIncrementTest " & _
               "(ID int identity, Description varchar(40), " & _
               "CONSTRAINT AutoIncrementTest_PrimaryKey PRIMARY KEY (ID))"

      ' Command for Creating Table
      Dim cmdJetDB As New OleDbCommand(strSQL, cnJetDB)
      cmdJetDB.ExecuteNonQuery()

      ' Create a DataAdaptor With Insert Command For inserting records
      Dim oleDa As New OleDbDataAdapter("Select * from AutoIncrementTest", cnJetDB)


      ' Command to Insert Records
      Dim cmdInsert As New OleDbCommand()
      cmdInsert.CommandText = "INSERT INTO AutoIncrementTest (Description) VALUES (?)"
      cmdInsert.Connection = cnJetDB
      cmdInsert.Parameters.Add(New OleDbParameter("Description", OleDbType.VarChar, 40, "Description"))
      oleDa.InsertCommand = cmdInsert

      ' Create a DataTable
      Dim dtTest As New DataTable()
      oleDa.Fill(dtTest)

      Dim drTest As DataRow

      ' Add Rows to the Table
      drTest = dtTest.NewRow
      drTest("Description") = "This is a Test Row 1"
      dtTest.Rows.Add(drTest)

      drTest = dtTest.NewRow
      drTest("Description") = "This is a Test Row 2"
      dtTest.Rows.Add(drTest)

      ' Create another Command to get IDENTITY Value
      cmdGetIdentity = New OleDbCommand()
      cmdGetIdentity.CommandText = "SELECT @@IDENTITY"
      cmdGetIdentity.Connection = cnJetDB

      ' Delegate for Handling RowUpdated event
      AddHandler oleDa.RowUpdated, AddressOf HandleRowUpdated

      ' Update the Data
      oleDa.Update(dtTest)

      ' Drop the table
      cmdJetDB.CommandText = "DROP TABLE AutoIncrementTest"
      cmdJetDB.ExecuteNonQuery()

      ' Release the Resources
      cmdGetIdentity.Dispose()
      cmdGetIdentity = Nothing
      cmdInsert.Dispose()
      cmdInsert = Nothing
      cmdJetDB.Dispose()
      cmdJetDB = Nothing
      cnJetDB.Close()
      cnJetDB.Dispose()
      cnJetDB = Nothing
   End Sub

   ' Event Handler for RowUpdated Event
   Private Sub HandleRowUpdated(ByVal sender As Object, ByVal e As OleDbRowUpdatedEventArgs)
      If e.Status = UpdateStatus.Continue AndAlso e.StatementType = StatementType.Insert Then
         ' Get the Identity column value
         e.Row("ID") = Int32.Parse(cmdGetIdentity.ExecuteScalar().ToString())
         Debug.WriteLine(e.Row("ID"))
         e.Row.AcceptChanges()
      End If
   End Sub
End Module

回到顶端

参考

<script type="text/javascript">loadTOCNode(1, 'references');</script>
请单击下列文章编号以查看 Microsoft 知识库中相应有关 Visual Basic 6.0, 中相关主题：
232144 (http://support.microsoft.com/kb/232144/EN-US/) Jet 4.0 OLE DB Provider 支持 SELECT @@identity INFO:
有关详细信息, 请访问以下 MSDN 网站：
OleDbDataAdapter.RowUpdated 事件
http://msdn2.microsoft.com/en-us/library/system.data.oledb.oledbdataadapter.rowupdated(vs.71).aspx (http://msdn2.microsoft.com/en-us/library/system.data.oledb.oledbdataadapter.rowupdated(vs.71).aspx)
maicar1235
关注
专栏目录
【日常小结】VB.NET下操作Access数据库
TimTiny的博客
11-05 6018
VB.NET下操作Access数据库 啥也不说，直接上代码 第一步：建立数据库以及数据表 '创建新的空access数据库表 Dim cat As Catalog = New Catalog() Dim s As String = "ProductData.mdb" If Not (My.Computer.FileSystem.Fi...
VB.net数据库编程（01）：简单的入门实例--连接到Access文件
热门推荐
白话魔法师
01-31 5万+
先来一个简单的实例。 VB.net 2012 SQl server 2012 Access文件：http://download.csdn.net/detail/dzweather/5042992                        （两个版本，2003,2012,任选一个） 根据前面ADO.net入门的介绍，我们知道了连接的过程。 AccessFile文件，针对的是O
314145 HOW TO：使用 Visual C# .NET 从数据库填充 DataSet 对象 (From MKBA)
10-09 787
本文的发布号曾为 CHS314145 有关本文的 Microsoft Visual Basic .NET 版本，请参见 301216。本文引用下面的 Microsoft .NET 框架类库名称空间： System.Data.SqlClient本任务的内容概要 要求 填充 DataSet 完整代码列表参考概要DataSet 对象是 Micros
HOW TO：在 Visual C# .NET 中将数据链接文件用于 OleDbConnection 对象
10-09 989
本文的发布号曾为 CHS308426 有关本文的 Microsoft Visual Basic .NET 版本，请参见 308075。有关本文的 Microsoft Visual C++ .NET 版本，请参见 308428。本文引用下面的 Microsoft .NET 框架类库名称空间： System.Data.OleDb本任务的内容概要 生成示例的步骤参
HOW TO：使用 Visual C# .NET 获取 Office 自动化服务器的窗口句柄 (From MSDN)
10-09 1172
概要本文阐述如何从 Microsoft Visual C# .NET 获取 Microsoft Office 应用程序的窗口句柄并同时使该应用程序自动运行。 更多信息大多数 Microsoft Office 应用程序的对象模型不公开用于检索应用程序窗口句柄的属性。要确定您想使其自动运行的 Office 应用程序的窗口句柄，可以使用 FindWindow 函数并将该应用程序的最顶层窗口的
(257819) HOWTO：在 Visual Basic 或 VBA 中使用 ADO 来处理 Excel 数据
10-18 2186
概要本文介绍如何使用 ActiveX Data Objects (ADO) 来处理数据源为 Microsoft Excel 电子表格的数据。本文还着重讨论特定于 Excel 的语法问题和限制。本文不讨论 OLAP 或 PivotTable 技术，或 Excel 数据的其他特殊用法。有关其他信息，请单击下面的文章编号，查看 Microsoft 知识库中相应的文章： 303814 HOWT
INFO：使用 Visual Studio .NET 开发 Microsoft Office 解决方案 (From MSDN)
10-09 1316
概要开发人员在使用 Microsoft Visual Studio .NET 来生成使用 Microsoft Office 系列产品的解决方案时，可参考本文。本文是 Microsoft Developer Network (MSDN) 中有关使用 Visual Studio 6.0 进行 Office 开发的内容的补充材料，而 MSDN 中有关使用 Visual Studio 6.0 进行 O
309045 HOW TO：在 Visual C# .NET 中创建自定义 ASP.NET 配置节处理程序 (From MKBA)
10-09 826
本文的发布号曾为 CHS309045 有关本文的 Microsoft Visual Basic .NET 版本，请参见 318457。本文引用下面的 Microsoft .NET 框架类库名称空间： System.Configuration System.Xml本任务的内容概要 创建配置节处理程序及其组件 完整代码列表 测试配置节处理程序 疑难解
INFO：使用 Visual Studio .NET 开发 Microsoft Office 解决方案
weixin_30621919的博客
03-13 309
使用 Visual Studio .NET 进行 Office 开发您可以通过多种方法来在您的开发解决方案中以编程方式扩展、自动化、集成或使用 Office。如果您对使用 Office 开发解决方案较陌生，请访问本文“摘要”一节提供的 MSDN Web 站点，该站点介绍了许多不同形式的 Office 开发，并针对各个主题列出了一些文章。 确定了将要进行的 Office 开发的类型之后，下一步...
graph_database.zip_MSChart Visual Basic_ms chart_visual basic_提取
09-19
在Visual Basic中，我们可以使用ADO (ActiveX Data Objects) 或 OLEDB 连接技术来连接到数据库，执行SQL查询以检索所需的数据。例如，使用`ADODB.Connection`对象打开数据库连接，`ADODB.Recordset`对象来执行查询并...
317701 HOW TO：在 Visual C# 中直接将一个图片从数据库复制到 PictureBox 控件 (From MSDN)
10-09 1199
有关本文的 Microsoft Visual Basic .NET 版本，请参阅 317670。 本任务的内容摘要 要求 示例 缺陷参考概要本分步指南介绍如何将存储在数据库中的图像直接复制到 Windows 窗体上的 PictureBox 控件，而无须将此图像保存到文件。在 Microsoft Visual Basic 6.0 中，如想直接在 Pictu
ocelot网关 jwt_使用ASP.NET Core，Ocelot，MongoDB和JWT的微服务
cunhan4654的博客
08-25 752
ocelot网关 jwt 目录 (Table of Contents) Introduction 介绍 Development Environment 开发环境 Technologies 技术领域 Architecture 建筑 Microservices 微服务 API Gateways API网关 Client Apps 客户端应用 Source Code 源代码 Unit Tests ...
vb.net面试_VB.Net面试问答
culing2941的博客
09-14 2157
vb.net面试Here are 45+ frequently asked VB.Net interview questions and answers which will definitely help you out to crack one of the toughest interviews. 这里有45多个VB.Net面试常见问题和答案，这些绝对可以帮助您破解最艰难的面试之一。 1...
oceanbase V4.2.2社区版集群离线部署
king_harry的专栏
11-01 863
版本，选择是上传文件，包含oceanbase-ce、oceanbase-ce-libs、oceanbase-ce-utils。关闭时展示，为 OBProxy 集群的访问地址，仅用于生成租户的连接串，不影响实际使用，需要自主配置负载均衡，如果是 VIP 地址，还需要您自主申请并绑定到 OBProxy Server。集群配置选项卡—更多配置—更改系统内存保留选项，默认是30G，如果测试机内存只有16G，则需要调小，本测试调整为2G，这样ocp-server安装不会失败。自定义待管理的集群的名称。
Redis实战-利用Lua解决批量插入防重方案
葵续浅笑的博客
11-01 1220
本文介绍了以Lua脚本为基础设计的防重和幂等方案。
Mysql数据库的UDF提权
最新发布
CoffeMilk的博客
11-05 872
渗透人员编写可调用系统命令行（CMD或shell）的文件生成动态链接库（Windows系统是.dll；Linux系统是.so），且将该动态链接库内容上传到MySql的函数插件文件夹目录下；然后在通过sql语句调用该动态链接库创建一个自定义函数，最后直接调用该自定义函数sql执行查询系统命令，实现提权（即：在数据库中的查询就等价于直接在系统调用cmd或者shell中执行命令）
数据库 二
wjj20040809的博客
11-02 745
表与表的关系：核心表mysql/oracle、SQLServer(微软)SQL。
SpringSession源码分析
lkr_lkr的博客
11-01 417
默认对常规Session的理解和使用，如何使用Set-Cookie。
情怀系列国际版棋牌完整源码具备强大的多语言扩展功能，涵盖了900多款子游戏，专为全球市场的游戏开发和运营设计。
z926098的博客
11-05 221
客户端使用Cocos Creator进行跨平台开发，可以发布为App、H5网页和PC网页。这种跨平台的能力使运营商只需维护一套代码，就能同时管理多个终端。除此之外，系统还支持产品的热更新功能，大幅提升运营效率并降低成本，实现了产品层面的“降维打击”。情怀棋牌源代码的服务器端使用JAVA和Node.js开发，采用RocketMQ作为消息队列中间件，有效防止服务器堵塞、消峰。该源码包涵盖了完整的服务器端代码、服务端900款子游戏源码、客户端代码、客户端700款子游戏、管理后台代码、数据库以及热更新生成脚本等。
Visual Basic .NET编程指南：英文原版第二版概览
“Visual Basic .NET How to Program 2nd Ed.pdf 是一本英文原版的编程教程，专注于Visual Basic .NET的编程教学。” 本书是Visual Basic .NET编程的入门指南，适用于初学者和有一定经验的开发者。它从计算机基础、...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值