vb.net OleDbCommand更新access數(shù)據(jù)庫(kù)的奇怪問(wèn)題！

以下是模塊模塊1

成都創(chuàng)新互聯(lián)公司成都網(wǎng)站建設(shè)定制開(kāi)發(fā)，是成都網(wǎng)站營(yíng)銷(xiāo)推廣公司,為水電改造提供網(wǎng)站建設(shè)服務(wù),有成熟的網(wǎng)站定制合作流程，提供網(wǎng)站定制設(shè)計(jì)服務(wù)：原型圖制作、網(wǎng)站創(chuàng)意設(shè)計(jì)、前端HTML5制作、后臺(tái)程序開(kāi)發(fā)等。成都網(wǎng)站設(shè)計(jì)熱線：18982081108

完整的模塊

進(jìn)口System.Data

進(jìn)口System.IO

進(jìn)口System.Data.OleDb

CN作為新OleDb.OleDbConnection （供應(yīng)商= Microsoft.Jet.OLEDB.4.0;數(shù)據(jù)源= C：\ ACCESS數(shù)據(jù)庫(kù)的。mdb“）'定義連接---改變到實(shí)際的數(shù)據(jù)庫(kù)路徑和名稱(chēng)

DataBaseRST上的作為整數(shù)使用返回?cái)?shù)據(jù)庫(kù)執(zhí)行的結(jié)果

的公共功能DataModify（BYVAL str作為字符串）作為布爾數(shù)據(jù)庫(kù)的操作功能

昏暗的cmdinsert作為新的OleDbCommand

嘗試

cmdinsert.CommandText = STR

是用來(lái)返回cmdinsert.Connection的= CN

如果cn.State = ConnectionState.Closed cn.Open（）

DataBaseRST cmdinsert.ExecuteNonQuery（）的執(zhí)行結(jié)果 BR / cn.Close（）

，則返回true

趕上前為異常

MessageBox.Show（Err.Description，“錯(cuò)誤”，MessageBoxButtons.OK，MessageBoxIcon.Error）

返回False

嘗試

端的功能

功能搜索（BYVAL作為字符串，BYVAL的DGV作為DataGridView的）作為布爾查詢(xún)STR ---查詢(xún)命令，DGV ---海峽和DataGridView控件來(lái)顯示數(shù)據(jù)

昏暗的結(jié)核病新的DataTable

昏暗的AP嘗試作為的新OleDb.OleDbDataAdapter（STR，CN）

ap.Fill（TB）

DGV作為數(shù)據(jù)源= TB

返回TRUE，“

抓住前異常

MessageBox.Show（Err.Description，”錯(cuò)誤“，MessageBoxButtons.OK，MessageBoxIcon.Error）

則返回false /末嘗試

功能

前端模塊

以下是通話

DataModify（“插入AA值嗎？（'1 '，'2'）“）-------這里是數(shù)據(jù)庫(kù)更新操作。

搜索（”選擇BB AA“DataGridView1的）-----------數(shù)據(jù)表的查詢(xún)操作。

VB.NET，將數(shù)據(jù)從dataset中刪除了，如何更新到數(shù)據(jù)庫(kù)？

需要聲明使用CommandBuilder對(duì)象，你是 SQL 數(shù)據(jù)庫(kù)還是 ACCESS 數(shù)據(jù)庫(kù)，這兩者的對(duì)象不一樣的。

對(duì)于：SQL server

Dim Mybuilder As SqlCommandBuilder = New SqlCommandBuilder(da)

da.Update(dt) '使用Update方法實(shí)現(xiàn)更新到數(shù)據(jù)庫(kù)

對(duì)于：ACCESS

Dim Mybuilder As OleDbCommandBuilder = New OleDbCommandBuilder(da)

da.Update(dt) '使用Update方法實(shí)現(xiàn)更新到數(shù)據(jù)庫(kù)

vb.net 更新access數(shù)據(jù)

以下是完整模塊

Imports?System.Data

Imports?System.IO

Imports?System.Data.OleDb

Module?Module1

Public?cn?As?New?OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data?Source=C:\ACCESS數(shù)據(jù)庫(kù).mdb")?'定義連接---這里請(qǐng)更改為實(shí)際數(shù)據(jù)庫(kù)路徑及名稱(chēng)

Public?DataBaseRST?As?Integer?'用來(lái)返回?cái)?shù)據(jù)庫(kù)執(zhí)行結(jié)果

Public?Function?DataModify(ByVal?str?As?String)?As?Boolean?'進(jìn)行數(shù)據(jù)庫(kù)修改操作函數(shù)

Dim?cmdinsert?As?New?OleDbCommand

Try

cmdinsert.CommandText?=?str

cmdinsert.Connection?=?cn

If?cn.State?=?ConnectionState.Closed?Then?cn.Open()

DataBaseRST?=?cmdinsert.ExecuteNonQuery()?'用來(lái)返回執(zhí)行的結(jié)果

cn.Close()

Return?True

Catch?ex?As?Exception

MessageBox.Show(Err.Description,?"Error",?MessageBoxButtons.OK,?MessageBoxIcon.Error)

Return?False

End?Try

End?Function

Public?Function?Search(ByVal?str?As?String,?ByVal?DGV?As?DataGridView)?As?Boolean?'查詢(xún)?str---查詢(xún)命令，DGV---DataGridView，用來(lái)顯示數(shù)據(jù)的控件

Dim?tb?As?New?DataTable

Try

Dim?ap?As?New?OleDb.OleDbDataAdapter(str,?cn)

ap.Fill(tb)

DGV.DataSource?=?tb

Return?True

Catch?ex?As?Exception

MessageBox.Show(Err.Description,?"Error",?MessageBoxButtons.OK,?MessageBoxIcon.Error)

Return?False

End?Try

End?Function

End?Module

'以下是調(diào)用方法

DataModify("?insert?into?aa?values?('1','2')")'-------這里是數(shù)據(jù)庫(kù)更新操作

Search("select?bb?from?aa",DataGridView1)'-----------這里是數(shù)據(jù)表查詢(xún)操作

VB.NET用UpdateCommand更新數(shù)據(jù)庫(kù)

Try

objconn.Open()

Dim dt As New DataTable

Dim strsql = "select * from Info"

objadap.SelectCommand = New OleDb.OleDbCommand(strsql, objconn)

objadap.Fill(objDSet, "Info")

objDSet.Clear()

Dim cmdbuilder As New OleDb.OleDbCommandBuilder(objadap)

objadap.UpdateCommand = cmdbuilder.GetUpdateCommand()

‘此處修改數(shù)據(jù)

objadap.Update(objDSet.Tables("Info"))

objconn.Close()

MsgBox("保存成功", , "提示") '******

Catch ex As Exception

MsgBox(Err.Description, MsgBoxStyle.Critical, Err.Number)

End Try