vb连接access数据库后,对数据库数据更改后,如何刷新修改的数据!
vb连接access数据库后,对数据库数据更改后,如何刷新修改的数据!谁能给一个方法。我是初学者希望大家指教PrivateSubCommand1_Click()Dimcn...
vb连接access数据库后,对数据库数据更改后,如何刷新修改的数据!谁能给一个方法。我是初学者希望大家指教
Private Sub Command1_Click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
db_path = App.Path
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db_path & "\VB.mdb"
If rs.State <> adStateClosed Then rs.Close
rs.CursorLocation = adUseClient
sql = "Select * From Info where Mark = 'hp'"
'rs.Open "Info", cn, adOpenKeyset, adLockOptimistic
rs.Open sql, cn, adOpenKeyset, adLockOptimistic
''Debug.Print rs.RecordCount
‘====================
虽然用了update方法,但是在datagrid1里的数据未能立即体现出来修改后的数据,需要从新连接一次数据库才能体现出来修改后的数据。有没有什么好的方法在update后立即体现出来呢?谢谢大家给予指教
‘====================
cn.Close
Set cn = Nothing
End Sub 展开
Private Sub Command1_Click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
db_path = App.Path
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db_path & "\VB.mdb"
If rs.State <> adStateClosed Then rs.Close
rs.CursorLocation = adUseClient
sql = "Select * From Info where Mark = 'hp'"
'rs.Open "Info", cn, adOpenKeyset, adLockOptimistic
rs.Open sql, cn, adOpenKeyset, adLockOptimistic
''Debug.Print rs.RecordCount
‘====================
虽然用了update方法,但是在datagrid1里的数据未能立即体现出来修改后的数据,需要从新连接一次数据库才能体现出来修改后的数据。有没有什么好的方法在update后立即体现出来呢?谢谢大家给予指教
‘====================
cn.Close
Set cn = Nothing
End Sub 展开
展开全部
执行select语句之后必须Refresh一下,否则Recordset不会刷新
编辑数据之后要update一下,否则数据不会保存
编辑数据之后要update一下,否则数据不会保存
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
对象不行,可以用ado控件,刷新ado控件就行了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
加上这一句试试
DataGrid1.Refresh
DataGrid1.Refresh
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询