vb点虐 更新mdb表 vb update

vb点虐 更新access数据

以下是完整模块

公司主营业务：成都做网站、成都网站制作、移动网站开发等业务。帮助企业客户真正实现互联网宣传，提高企业的竞争能力。创新互联是一支青春激扬、勤奋敬业、活力青春激扬、勤奋敬业、活力澎湃、和谐高效的团队。公司秉承以“开放、自由、严谨、自律”为核心的企业文化，感谢他们对我们的高要求，感谢他们从不同领域给我们带来的挑战，让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。创新互联推出莱芜免费做网站回馈大家。

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 listview控件【实时更新】MDB数据

当你向数据库里添加记录后，立即执行查询，并显示在listview里面。

可以写个模块 功能是：【查询数据并显示在listview里】。然后在窗体打开时调用这个模块，同时在添加记录后也调用这个模块。这样你就不用写重复代码了。

VB点虐 与ACCESS MDB 数据刷新问题

楼主您好。您的代码缺少一句，所以它没有时时更新。

添加：dbConnection.Close()

您只打开没有关闭。所以第二次打开的还是第一次的数据集。

Function GetMDB_DataSource(ByVal sql As String) As DataTable

Dim DataAdapter As New OleDb.OleDbDataAdapter

Dim dtls As New DataTable

Dim dbConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Test.mdb;Persist Security Info=true"

Dim dbConnection As OleDb.OleDbConnection = New OleDb.OleDbConnection(dbConnectionString)

Try

dbConnection.Open()

DataAdapter.SelectCommand = New OleDb.OleDbCommand(sql, dbConnection)

DataAdapter.Fill(dtls)

dbConnection.Close()

Catch Ex As Exception

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

Return New DataTable

End Try

Return dtls

End Function

希望对您有用！