VB2010中的添加，编辑，删除，搜索代码

Question

我目前正在学校写论文，他们要求我使用VB2010和MS ACCESS 2010。

连接和操作数据库的更简单方法是什么？是否通过使用 MS ACCESS 2003？还是 MS ACCESS 2007？

我需要一些帮助，因为我是 Visual Basic 2010 的新手

Answer 1

你有没有用谷歌搜索过它 - 插入更新删除访问 vb.net，有很多关于这个的参考。

使用 VB.NET 在 Access 数据库中插入更新删除导航和搜索

• 创建 Visual Basic 2010 项目：VB-Access
• 假设我们有一个名为 data 的数据库文件.mdb
• 将数据.mdb文件放入 ..\bin\调试\ 文件夹（放置项目可执行文件 （.exe） 的位置）

连接和操作数据库的更简单方法是什么？
使用 OleDBConnection 类与 DB 建立连接

是使用 MS ACCESS 2003 还是 MS ACCESS 2007？
您可以使用任何您想使用的内容，或者您的客户将在他们的计算机上使用的任何内容。

似乎您想找到一些数据库操作的示例。下面是一个 Access 2010 示例供您参考：

示例代码片段：

Imports System
Imports System.Data
Imports System.Data.OleDb
Public Class DBUtil
 Private connectionString As String
 Public Sub New()
  Dim con As New OleDb.OleDbConnection
  Dim dbProvider As String = "Provider=Microsoft.ace.oledb.12.0;"
  Dim dbSource = "Data Source=d:DBDatabase11.accdb"
  connectionString = dbProvider & dbSource
 End Sub
 Public Function GetCategories() As DataSet
  Dim query As String = "SELECT * FROM Categories"
  Dim cmd As New OleDbCommand(query)
  Return FillDataSet(cmd, "Categories")
 End Function
 Public SubUpdateCategories(ByVal name As String)
  Dim query As String = "update Categories set name = 'new2' where name = ?"
  Dim cmd As New OleDbCommand(query)
cmd.Parameters.AddWithValue("Name", name)
  Return FillDataSet(cmd, "Categories")
 End Sub
 Public Function GetItems() As DataSet
  Dim query As String = "SELECT * FROM Items"
  Dim cmd As New OleDbCommand(query)
  Return FillDataSet(cmd, "Items")
 End Function
 Public Function GetItems(ByVal categoryID As Integer) As DataSet
  'Create the command.
  Dim query As String = "SELECT * FROM Items WHERE Category_ID=?"
  Dim cmd As New OleDbCommand(query)
  cmd.Parameters.AddWithValue("category_ID", categoryID)
  'Fill the dataset.
  Return FillDataSet(cmd, "Items")
 End Function
 Public Sub AddCategory(ByVal name As String)
  Dim con As New OleDbConnection(connectionString)
  'Create the command.
  Dim insertSQL As String = "INSERT INTO Categories "
  insertSQL &= "VALUES(?)"
  Dim cmd As New OleDbCommand(insertSQL, con)
  cmd.Parameters.AddWithValue("Name", name)
  Try
   con.Open()
   cmd.ExecuteNonQuery()
  Finally
   con.Close()
  End Try
 End Sub
 Public Sub AddItem(ByVal title As String, ByVal description As String, _
    ByVal price As Decimal, ByVal categoryID As Integer)
  Dim con As New OleDbConnection(connectionString)
  'Create the command.
  Dim insertSQL As String = "INSERT INTO Items "
  insertSQL &= "(Title, Description, Price, Category_ID)"
  insertSQL &= "VALUES (?, ?, ?, ?)"
  Dim cmd As New OleDb.OleDbCommand(insertSQL, con)
  cmd.Parameters.AddWithValue("Title", title)
  cmd.Parameters.AddWithValue("Description", description)
  cmd.Parameters.AddWithValue("Price", price)
  cmd.Parameters.AddWithValue("CategoryID", categoryID)
  Try
   con.Open()
   cmd.ExecuteNonQuery()
  Finally
   con.Close()
  End Try
 End Sub
 Private Function FillDataSet(ByVal cmd As OleDbCommand, ByVal tableName As String) As DataSet
  Dim con As New OleDb.OleDbConnection
  Dim dbProvider As String = "Provider=Microsoft.ace.oledb.12.0;"
  Dim dbSource = "Data Source=D:DBDatabase11.accdb"
  connectionString = dbProvider & dbSource
  con.ConnectionString = connectionString
  cmd.Connection = con
  Dim adapter As New OleDbDataAdapter(cmd)
  Dim ds As New DataSet()
  Try
   con.Open()
   adapter.Fill(ds, tableName)
  Finally
   con.Close()
  End Try
  Return ds
 End Function
End Class

请参阅以下链接：
在 MS Access 2003 和 VB.NET 2005
中插入、更新、删除和搜索值使用VB 2008
在MS-ACCESS中插入，删除，更新和选择数据作为后台访问时如何使用 Vb.net 表单添加新记录，更新记录，删除记录

Answer 2

一个好的资源起点是MSDN，因为你正在研究微软产品