怎么修改access数据库的内容？

方法如下：

1、打开要修改的数据库文件。

2、打开sql查询

3、在sql中输入修改语句。要用update这个语句。update语句的具体用法如下：

SQL Server UPDATE语句的语法如下：

update <table_name>set <column_name>= <value>where <search_condition>

下面是语法选项简介：

<table_name>表的名称。该表包含了要修改值的列

<column_name>要修改数据的列的名称

<value>要输入到列中的新值

<search_condition>这是UPDATE语句中最重要的部分。

通过指定一个好的搜索条件，你能够限定表内被修改的行数。如果你不指定搜索条件，SQLServer会用新值修改表内的所有行

4、修改完成后，关闭数据库文件即可。

见下面的代码，自己换成真实的数据库及表即可

Imports System.Data

Imports System.IO

Imports System.Data.OleDb

Module Module1

Public cn1 As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0Data Source=C:\ACCESS数据库1.mdb") '定义连接1---这里请更改为实际数据库路径及名称

Public cn2 As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0Data Source=C:\ACCESS数据库2.mdb") '定义连接2---这里请更改为实际数据库路径及名称

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

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

Public Function DataModify(ByVal str_cmd1 As String, ByVal str_cmd2 As String) As Boolean '进行数据库修改 *** 作函数

Dim cmdinsert1 As New OleDbCommand

Dim cmdinsert2 As New OleDbCommand

Try

cmdinsert1.CommandText = str_cmd1

cmdinsert2.CommandText = str_cmd2

cmdinsert1.Connection = cn1

cmdinsert2.Connection = cn2

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

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

DataBaseRST1 = cmdinsert1.ExecuteNonQuery() '用来返回执行的结果

DataBaseRST2 = cmdinsert2.ExecuteNonQuery() '用来返回执行的结果

cn1.Close()

cn2.Close()

Return True

Catch ex As Exception

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

Return False

End Try

End Function

End Module

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

DataModify("insert into aa values ('1','2')", "insert into aa values ('1','2')") '调用方法

End Sub

End Class

追问

这个方法我只能用于添加修改删除，请问，查询数据并且绑定到DGV怎么做？

回答

Public Function Search(ByVal cn1 As OleDb.OleDbConnection, ByVal cn2 As OleDb.OleDbConnection, ByVal str_cmd1 As String, ByVal str_cmd2 As String, ByVal DGV1 As DataGridView, ByVal DGV2 As DataGridView) As Boolean '查询 str_cmd1,str_cmd2---查询命令，DGV1,DGV2---DataGridView，用来显示数据的控件

Dim tb1 As New DataTable

Dim tb2 As New DataTable

Try

Dim ap1 As New OleDb.OleDbDataAdapter(str_cmd1, cn1)

ap1.Fill(tb1)

DGV1.DataSource = tb1

Dim ap2 As New OleDb.OleDbDataAdapter(str_cmd2, cn2)

ap2.Fill(tb2)

DGV2.DataSource = tb2

Return True

Catch ex As Exception

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

Return False

End Try

比如表S，俩字段，id和name，id是数字型，name是文本型

增：insert into S(id,name) values (1,'张三')

删：全删delete from S

按条件删，比如删除id为1的

delete from S where id=1

按条件删，比如删除name为张三的

delete from S where name='张三'

改：比如将id为1的人的名字改成李四

update S set name='李四' where id=1

基本就这样吧，有问题再问

---