vb.net查询更新 vbnet implements

vb.net 更新access数据

以下是完整模块

10年积累的网站建设、成都网站设计经验，可以快速应对客户对网站的新想法和需求。提供各种问题对应的解决方案。让选择我们的客户得到更好、更有力的网络服务。我虽然不认识你，你也不认识我。但先网站设计后付款的网站建设流程，更有河东免费网站建设让你可以放心的选择与我们合作。

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数据库.mdb") '定义连接---这里请更改为实际数据库路径及名称

Public DataBaseRST As Integer '用来返回数据库执行结果

Public Function DataModify(ByVal str As String) As Boolean '进行数据库修改操作函数

Dim cmdinsert As New OleDbCommand

Try

cmdinsert.CommandText = str

cmdinsert.Connection = cn

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

DataBaseRST = cmdinsert.ExecuteNonQuery() '用来返回执行的结果

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，用来显示数据的控件

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

'以下是调用方法

DataModify(" insert into aa values ('1','2')")'-------这里是数据库更新操作

Search("select bb from aa",DataGridView1)'-----------这里是数据表查询操作

vb.net OleDbCommand更新access数据库的奇怪问题！

以下是模块模块1

完整的模块

进口System.Data

进口System.IO

进口System.Data.OleDb

CN作为新OleDb.OleDbConnection （供应商= Microsoft.Jet.OLEDB.4.0;数据源= C：\ ACCESS数据库的。mdb“）'定义连接---改变到实际的数据库路径和名称

DataBaseRST上的作为整数使用返回数据库执行的结果

的公共功能DataModify（BYVAL str作为字符串）作为布尔数据库的操作功能

昏暗的cmdinsert作为新的OleDbCommand

尝试

cmdinsert.CommandText = STR

是用来返回cmdinsert.Connection的= CN

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

DataBaseRST cmdinsert.ExecuteNonQuery（）的执行结果 BR / cn.Close（）

，则返回true

赶上前为异常

MessageBox.Show（Err.Description，“错误”，MessageBoxButtons.OK，MessageBoxIcon.Error）

返回False

尝试

端的功能

功能搜索（BYVAL作为字符串，BYVAL的DGV作为DataGridView的）作为布尔查询STR ---查询命令，DGV ---海峡和DataGridView控件来显示数据

昏暗的结核病新的DataTable

昏暗的AP尝试作为的新OleDb.OleDbDataAdapter（STR，CN）

ap.Fill（TB）

DGV作为数据源= TB

返回TRUE，“

抓住前异常

MessageBox.Show（Err.Description，”错误“，MessageBoxButtons.OK，MessageBoxIcon.Error）

则返回false /末尝试

功能

前端模块

以下是通话

DataModify（“插入AA值吗？（'1 '，'2'）“）-------这里是数据库更新操作。

搜索（”选择BB AA“DataGridView1的）-----------数据表的查询操作。

2007-2-6 如何使用vb.net和sql2000进行连接和数据库操作（查询插入更新删除），

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=服务器名;Initial Catalog=数据库名;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语句的事情了。自己揣摩下吧。