以下是完整模块
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)'-----------这里是数据表查询操作
Dim cmd As New OleDbCommand("update 表1 set " 变量a "='同学1' where 学号='123456'", Me.OleDbConnection1)
update
英语单词，主要用作为动词、名词，作动词时译为“更新；校正，修正；使现代化”；作名词时译为“更新；现代化”。
词 性：动词、名词
英式读音[ˌʌpˈdeɪt]
美式读音[ˌʌpˈdeɪt]
单词用法
V-T/V-I If you update something, you make it more modern, usually by adding new parts to it or giving new information. 更新
N-COUNT An update is a news item containing the latest information about a particular situation. 最新消息; 快讯
V-T If you update someone on a situation, you tell them the latest developments in that situation. 给…提供最新信息
词组短语
update information 更新信息；修正信息
dynamic update 动态更新；动态升级
last update 最新更新
update now 立即更新
双语例句
He was back in the office, updating the work schedule on the computer.
他回到办公室，在计算机上更新了工作日程。
Airlines would prefer to update rather than retrain crews.
航空公司宁愿增添新机组人员而不愿对老的机组人员进行再培训。
She had heard the newsflash on a TV channel's news update.
她在电视频道的新闻快讯里听到了这条简短报道。
We'll update you on the day's top news stories.
我们将向你提供当天的头条新闻。
update
（数据库SQL语法用语）
Update是一个数据库SQL语法用语，用途是更新表中原有数据，单独使用时使用where匹配字段。
外文名Update
性 质：数据库SQL语法用语
用 途：更新表中原有数据
单独使用：使用where匹配字段
update概述
用途：更新表中原有数据
单独使用，使用where匹配字段
set后面，更新字段值，既可以一次一项，也可以一次多项
例如1，
Update table_name Set column_name = new_value Where column_name = some_value
例：
“Person”表中的原始数据:
LastName FirstName Address City
Nilsen Fred Kirkegt 56 Stavanger
Rasmussen Storgt 67
运行下面的SQL将Person表中LastName字段为”Rasmussen”的FirstName更新为”Nina”：
UPDATE Person SET FirstName = 'Nina' WHERE LastName = 'Rasmussen'
更新后”Person”表中的数据为：
LastName FirstName Address City
Nilsen Fred Kirkegt 56 Stavanger
Rasmussen Nina Storgt 67
同样的，用UPDATE语句也可以同时更新多个字段：
例如2，
UPDATE Person SET Address = 'Stien 12', City = 'Stavanger' WHERE LastName = 'Rasmussen'
更新后”Person”表中的数据为：
LastName FirstName Address City
Nilsen Fred Kirkegt 56 Stavanger
Rasmussen Nina Stien 12 Stavanger
update语法
UPDATE 表名称 SET 列名称 = 新值 WHERE 列名称 = 某值 [1]
?
请点击输入图片描述
1.UPDATE table_name2.SET column1=value1,column2=value2,...3.WHERE column(1)=value(1),column(2)=value(2)...and column(n)=value(n);
详情请参考百度百科：
网页链接
用户信息.UpdateCommand = "update 用户 set grouptype='" ra1 "',usertype ='" ra2 "' where 用户_ID='1'"
重庆分公司
重庆分公司
