| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1103 人关注过本帖
标题:新手遇到问题,请VB高手帮忙!
只看楼主 加入收藏
zw2864076
Rank: 1
等 级:新手上路
帖 子:76
专家分:0
注 册:2007-6-16
结帖率:100%
收藏
 问题点数:0 回复次数:4 
新手遇到问题,请VB高手帮忙!
Sub 科室别类查询()
        Dim mysqlstr As String = "select * from 科室信息表"
        Dim myconn As SqlConnection = New SqlConnection(connstr)
        Dim myadapter As SqlDataAdapter = New SqlDataAdapter(mysqlstr, myconn)
        Dim mydata As New DataSet
        myconn.Open()
        myadapter.Fill(mydata, "科室信息表")
        DataGridViewX1.DataSource = mydata
        DataGridViewX1.DataMember = "科室信息表"
        Dim mydbinding1 As Binding = New Binding("text", mydata, "科室信息表.编号")
        Dim mydbinding2 As Binding = New Binding("text", mydata, "科室信息表.室项")
        Text编号.DataBindings.Add(mydbinding1)
        Text室项.DataBindings.Add(mydbinding2)


这是修改按钮代码
Private Sub But修改_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles But修改.Click
        Dim sqlstr As String = "update 科室信息表 set 室项='" & Text室项.Text & "' where 编号='" & Text编号.Text & "'"
        Dim i As Integer = 0
        Dim myconn As New SqlConnection(connstr)
        Dim mycommd As New SqlCommand(sqlstr, myconn)
        myconn.Open()
        i = mycommd.ExecuteNonQuery()
        If i > 0 Then
            MsgBox("修改数据成功", MsgBoxStyle.OkOnly, "消息框")
        Else
            MsgBox("修改数据失败", MsgBoxStyle.OkOnly, "消息框")
        End If
        科室别类查询()
        myconn.Close()
    End Sub

01.jpg (25.94 KB)
图片附件: 游客没有浏览图片的权限,请 登录注册


002.jpg (29.35 KB)
图片附件: 游客没有浏览图片的权限,请 登录注册
2008-10-22 17:02
zw2864076
Rank: 1
等 级:新手上路
帖 子:76
专家分:0
注 册:2007-6-16
收藏
得分:0 
请高手,帮我指出问题,在什么地方,我是新手,很多地方不懂,最好能给我修改一下代码,先谢谢了,
2008-10-22 17:05
zw2864076
Rank: 1
等 级:新手上路
帖 子:76
专家分:0
注 册:2007-6-16
收藏
得分:0 
大家帮我顶起来啊,
2008-10-24 09:02
bygg
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:乖乖的心中
等 级:版主
威 望:241
帖 子:13555
专家分:3076
注 册:2006-10-23
收藏
得分:0 
修改后重新绑定一下数据

飘过~~
2008-10-24 12:29
zw2864076
Rank: 1
等 级:新手上路
帖 子:76
专家分:0
注 册:2007-6-16
收藏
得分:0 
回复 4# bygg 的帖子
就是不知道修改以后,重新邦定数据啊,能不能帮我上面的代码修改一下.
2008-10-24 14:02
快速回复:新手遇到问题,请VB高手帮忙!
数据加载中...
 
   



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

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