| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1027 人关注过本帖
标题:datagrid更新
只看楼主 加入收藏
in羊羊
Rank: 1
等 级:新手上路
帖 子:144
专家分:0
注 册:2005-4-17
收藏
 问题点数:0 回复次数:8 
datagrid更新
图片附件: 游客没有浏览图片的权限,请 登录注册

插入数据后不能立即更新,该怎么解决。要关闭窗口再打开才可以见。
该怎么解决?
搜索更多相关主题的帖子: datagrid 
2005-06-30 22:56
loveve
Rank: 4
等 级:业余侠客
威 望:1
帖 子:452
专家分:213
注 册:2005-4-11
收藏
得分:0 
刷新啊,就是重新从数据库读数给datagrid.

五月的雪
2005-07-02 18:29
in羊羊
Rank: 1
等 级:新手上路
帖 子:144
专家分:0
注 册:2005-4-17
收藏
得分:0 
可是右键不能用阿
2005-07-02 21:32
anycall628
Rank: 1
等 级:新手上路
帖 子:222
专家分:0
注 册:2005-2-18
收藏
得分:0 
不用右键的吧,在按钮里加个刷新命令,2楼是这个意思吧,用 refresh?还是update?

爱生活,爱编程。
2005-07-03 09:13
sfg976
Rank: 1
等 级:新手上路
帖 子:28
专家分:0
注 册:2005-4-13
收藏
得分:0 
加个adodc1这样子你的样程序就简单多了
Adodc1.connectionstring = connectionstring
= adCmdText
Adodc1.RecordSource = "select * from 表名"
Adodc1.Refresh
If Adodc1.Recordset.EOF = True Then
MsgBox "数据库无记录!"
Else
Set DataG1.DataSource = Adodc1
DataG1.Refresh
End If
添加表的时候,可以先添加表,然后再加上以上代码?
2005-07-03 09:54
loveve
Rank: 4
等 级:业余侠客
威 望:1
帖 子:452
专家分:213
注 册:2005-4-11
收藏
得分:0 
当然不是右键,那样的话就不行了,我们要的是添加后自动刷新。可以用比如下面的代码(一些地方得根据你自己文件名、数据库名改一下):
Function datashow()
    Dim rs1 As New ADODB.Recordset
    rs1.CursorLocation = adUseClient
    rs1.Open "select * from zgdagl", conn, adOpenKeyset, adLockReadOnly
    Set DataGrid1.DataSource = rs1
    DataGrid1.Refresh
End Function
然后在你的addnew按钮的click下面离endsub最近的地方(即除了endsub以外就是本过程的最后一行)引用为个函数:datashow

五月的雪
2005-07-03 11:14
Murray
Rank: 1
等 级:新手上路
帖 子:101
专家分:0
注 册:2005-4-10
收藏
得分:0 
做一个刷新,我是多做一个按钮解决的
Private Sub Command7_Click()
    On Error GoTo myerr
      If MsgBox("确定要修改吗?", vbQuestion + vbYesNo, "提示") = vbYes Then
      
        DataGrid1.AllowUpdate = True
      Else
        DataGrid1.AllowUpdate = False
   
   End If
    Command7.Visible = False
    Command8.Visible = True
   
myerr:
End Sub
————————————————————
Private Sub Command8_Click()
  If conn.State <> 1 Then
            conn.Open connstring
        End If
        
    If MsgBox("数据库已修改!", vbInformation + vbOKOnly, "提示") = vbYes Then
   
        DataGrid1.AllowUpdate = True
      Else
        DataGrid1.AllowUpdate = False
   
   End If
    Command7.Visible = True
    Command8.Visible = False
End Sub

2005-07-04 11:19
Murray
Rank: 1
等 级:新手上路
帖 子:101
专家分:0
注 册:2005-4-10
收藏
得分:0 
datagrid本来就可以直接写数据进去的,呵呵 我只是让他能不能写

2005-07-04 11:22
Murray
Rank: 1
等 级:新手上路
帖 子:101
专家分:0
注 册:2005-4-10
收藏
得分:0 
loveve的方法很不错,我在尝试用到我的毕业设计中

2005-07-04 11:23
快速回复:datagrid更新
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.024943 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved