搜索,他們要求我用VB2010和MS Access 2010中代碼,編輯,刪除,我目前正在對我的論文在學校vb2010
什麼可以連接和操作更簡單的方法數據庫? 是通過使用MS ACCESS 2003嗎?或MS ACCESS 2007?
我需要一些幫助,因爲我是新來的Visual Basic 2010
搜索,他們要求我用VB2010和MS Access 2010中代碼,編輯,刪除,我目前正在對我的論文在學校vb2010
什麼可以連接和操作更簡單的方法數據庫? 是通過使用MS ACCESS 2003嗎?或MS ACCESS 2007?
我需要一些幫助,因爲我是新來的Visual Basic 2010
你用Google搜索一下吧 - insert update delete access vb.net,有很多關於這個參考。
Insert Update Delete Navigation & Searching In Access Database Using VB.NET
什麼可以連接和操作更簡單的方法 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
一個很好的資源開始點將當您正在查看微軟產品時,請致電MSDN
感謝代碼,我會進一步研究這些代碼,以便我能夠完成我的程序,但是在這裏我看不到任何刪除查詢。 – Danjor
我有一個問題,爲什麼這些代碼行總是出現? (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
,因爲這條線創建訪問文件和你想執行這些查詢的前端代碼之間的連接..以及關於你的問題檢查參考鏈接。但你應該對SQL查詢知之甚少。獲得關於這些基本知識的一些知識然後你可以開發應用程序 –