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

以下是完整模塊

10年積累的網(wǎng)站建設(shè)、成都網(wǎng)站設(shè)計經(jīng)驗，可以快速應(yīng)對客戶對網(wǎng)站的新想法和需求。提供各種問題對應(yīng)的解決方案。讓選擇我們的客戶得到更好、更有力的網(wǎng)絡(luò)服務(wù)。我雖然不認(rèn)識你，你也不認(rèn)識我。但先網(wǎng)站設(shè)計后付款的網(wǎng)站建設(shè)流程，更有河?xùn)|免費網(wǎng)站建設(shè)讓你可以放心的選擇與我們合作。

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ù)庫.mdb")?'定義連接---這里請更改為實際數(shù)據(jù)庫路徑及名稱

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

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

Dim?cmdinsert?As?New?OleDbCommand

Try

cmdinsert.CommandText?=?str

cmdinsert.Connection?=?cn

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

DataBaseRST?=?cmdinsert.ExecuteNonQuery()?'用來返回執(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?'查詢?str---查詢命令，DGV---DataGridView，用來顯示數(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ù)庫更新操作

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

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

以下是模塊模塊1

完整的模塊

進口System.Data

進口System.IO

進口System.Data.OleDb

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

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

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

昏暗的cmdinsert作為新的OleDbCommand

嘗試

cmdinsert.CommandText = STR

是用來返回cmdinsert.Connection的= CN

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

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

，則返回true

趕上前為異常

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

返回False

嘗試

端的功能

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

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

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

ap.Fill（TB）

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

返回TRUE，“

抓住前異常

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

則返回false /末嘗試

功能

前端模塊

以下是通話

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

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

2007-2-6 如何使用vb.net和sql2000進行連接和數(shù)據(jù)庫操作（查詢插入更新刪除），

Imports System.Data.OleDb

Imports System.DBNull

Imports System.Data.DataSet

Imports System.Data.Common.DataAdapter

Imports System.Data

Imports System.Configuration

Imports ADODB

Public Class DBConnect_SK21

Dim DataSet As Data.DataSet

Dim DataAdapter As Data.Common.DataAdapter

Dim OleDbDataAdapter As OleDbDataAdapter = New OleDbDataAdapter

Dim CNString AS String

CNString="Data Source=服務(wù)器名;Initial Catalog=數(shù)據(jù)庫名;Persist Security Info=True;User ID=;Password="

//返回DateSet

Public Function GetDataSet(ByVal StrSql As String) As DataSet

Dim DataConnection As OleDb.OleDbConnection

Try

DataConnection = New OleDbConnection

DataConnection.ConnectionString = CNString

DataAdapter = New OleDbDataAdapter(StrSql, DataConnection)

DataSet = New DataSet

DataSet.Clear()

DataAdapter.Fill(DataSet)

DataConnection.Close()

Catch

MsgBox(Err.Description)

End Try

If DataSet.Tables(0).Rows.Count 0 Then

Return DataSet

Else

Return Nothing

End If

End Function

這是一個查詢操作，插入和更新也就是sql語句的事情了。自己揣摩下吧。

當(dāng)前標(biāo)題：vb.net查詢更新 vbnet implements
分享URL：http://www.chinadenli.net/article4/dddjhie.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站設(shè)計公司、電子商務(wù)、外貿(mào)建站、企業(yè)建站、虛擬主機、

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)