VB MSHFlexGrid控件中数据的实时更新。
VBMSHFlexGrid控件中数据的实时更新。我在网上找了好多关于这个的问题,有的回答rs.update有的用Refresh来刷新,我都用过了,可以基本是没有什么效果。...
VB MSHFlexGrid控件中数据的实时更新。
我在网上找了好多关于这个的问题,有的回答rs.update有的用 Refresh来刷新,我都用过了,可以基本是没有什么效果。
我用Update 语句修改了数据集中的一些数据,并用了上述说的 update和refresh后,发现表中的数据没有发生任何变化,只有将程序关闭,在打开时,新的数据才会被体现出来。
敢问有没有什么方法不用关闭程序,在修改后立刻就体现出新数据的办法。
跟请各位高手关爱一下我,不胜感激了。 展开
我在网上找了好多关于这个的问题,有的回答rs.update有的用 Refresh来刷新,我都用过了,可以基本是没有什么效果。
我用Update 语句修改了数据集中的一些数据,并用了上述说的 update和refresh后,发现表中的数据没有发生任何变化,只有将程序关闭,在打开时,新的数据才会被体现出来。
敢问有没有什么方法不用关闭程序,在修改后立刻就体现出新数据的办法。
跟请各位高手关爱一下我,不胜感激了。 展开
1个回答
展开全部
那再执行一遍刷新代码吧
Dim dat As New ADODB.Connection
Dim r As New ADODB.Recordset
dat.Open "Driver={SQL Server};Server=服务器名;Uid=用户名;Pwd=密码;Database=数据库名" 'SQL SERVER 的连接字符
'如果 DAT是全局变量 只要下面代码就可以了
r.CursorLocation = adUseClient '‘用客户端游标
r.Open "select * from LOGIN", dat
Set MSHFlexGrid1.DataSource = r
r.close
Dim dat As New ADODB.Connection
Dim r As New ADODB.Recordset
dat.Open "Driver={SQL Server};Server=服务器名;Uid=用户名;Pwd=密码;Database=数据库名" 'SQL SERVER 的连接字符
'如果 DAT是全局变量 只要下面代码就可以了
r.CursorLocation = adUseClient '‘用客户端游标
r.Open "select * from LOGIN", dat
Set MSHFlexGrid1.DataSource = r
r.close
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询