重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
楼主您好。镇渣脊您的代码缺少一句,所以它梁渣没有时时更新。
成都创新互联-云计算及IDC服务提供商,涵盖公有云、IDC机房租用、内蒙古服务器托管、等保安全、私有云建设等企业级互联网基础服务,服务电话:18982081108
添加: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
希望对您有用!
重要的闹搏顷是区别两个方法:DbAdapter.Fill是读,DbCommand.ExecuteNonquery是执行修改。删除银禅按钮下理论上应先调用修改,确认成功后,再调用读取液陆。
vb点虐 中关闭屏幕刷新方法为让缓:
1、修改完恢复初始状态callformload。
2、显示修改后信息,控件refresh,例如用data控件,则data1.refresh即可坦棚模。
3、数据库资料用label显示,则label.refresh同和老时用me.refresh。
单击按钮后,将窗体数据写入数据库,然后重新重新绑定读出来,显示绑定到控件