2013-01-25 27 views

回答

3

你用Google搜索一下吧 - insert update delete access vb.net,有很多關於這個參考。

Insert Update Delete Navigation & Searching In Access Database Using VB.NET

  • 創建的Visual Basic 2010項目:VB-訪問
  • 假設,我們有一個名爲data.mdb中
  • 放置data.mdb中文件到.. \ BIN \數據庫文件調試\文件夾 (如果項目可執行文件(.exe)放置)

什麼可以連接和操作更簡單的方法 D B​​?
使用的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 

請參考以下鏈接:
Insert, Update, Delete & Search Values in MS Access 2003 with VB.NET 2005
INSERT, DELETE, UPDATE AND SELECT Data in MS-Access with VB 2008
How Add new record ,Update record,Delete Records using Vb.net Forms when Access as a back

+0

感謝代碼,我會進一步研究這些代碼,以便我能夠完成我的程序,但是在這裏我看不到任何刪除查詢。 – Danjor

+0

我有一個問題,爲什麼這些代碼行總是出現? (Dim con As New OleDb.OleDbConnection) (Dim dbProvider As String =「Provider = Microsoft.ace.oledb.12.0;」) (Dim dbSource =「Data Source = d:\ DB \ Database11.accdb」) – Danjor

+0

,因爲這條線創建訪問文件和你想執行這些查詢的前端代碼之間的連接..以及關於你的問題檢查參考鏈接。但你應該對SQL查詢知之甚少。獲得關於這些基本知識的一些知識然後你可以開發應用程序 –

0

一個很好的資源開始點將當您正在查看微軟產品時,請致電MSDN

相關問題