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
希望对您有用！
分享题目：vb点虐 更新mdb表 vb update
链接URL：http://shouzuofang.com/article/ddchhds.html