0

私は現在、学校で論文に取り組んでおり、VB2010 と MS ACCESS 2010 を使用するよう求められました。

DB に接続して操作するためのより簡単な方法は何でしょうか? MS ACCESS 2003 を使用していますか? またはMS ACCESS 2007？

Visual Basic 2010 を初めて使用するので、助けが必要です

4

2 に答える 2

3

あなたはそれについてググったことがありますか - insert update delete access vb.net、これについてはたくさんの参照があります。

挿入 更新 ナビゲーションの削除 VB.NET を使用した Access データベースでの検索

  • Visual Basic 2010 プロジェクトの作成: VB-Access
  • data.mdb という名前のデータベース ファイルがあるとします。
  • data.mdb ファイルを ..\bin\Debug\ フォルダー (プロジェクトの実行可能ファイル (.exe) が配置されている場所) に配置します。

DB に接続して操作するためのより簡単な方法は何でしょうか?
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:\DB\Database11.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:\DB\Database11.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

これらのリンクを参照してください:
VB.NET 2005 を使用した MS Access 2003 の値の挿入、更新、削除、および検索
VB 2008 を使用した MS-Access のデータの挿入、削除、更新、および選択
新しいレコードの追加、レコードの更新、Vb.net を使用したレコードの削除バックとしてアクセスするときのフォーム

于 2013-01-25T06:42:28.083 に答える
0

マイクロソフト製品を検討している場合、リソースの出発点として適しているのはMSDNです。

于 2013-01-25T06:44:39.460 に答える