| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1129 人关注过本帖
标题:关于使用数据窗体向导遇到的问题
取消只看楼主 加入收藏
hemingsheng
Rank: 1
等 级:新手上路
帖 子:164
专家分:0
注 册:2007-5-16
结帖率:100%
收藏
 问题点数:0 回复次数:2 
关于使用数据窗体向导遇到的问题
我在窗体代码编辑器里定义的如下两个过程
Public Class Form1
    Inherits System.Windows.Forms.Form

    Private Function fill_students() As DataSet1
        Dim ds As New DataSet1
        Me.SqlConnection1.Open()
        Try
            Me.SqlDataAdapter1.Fill(ds, "students")
        Catch excep_fill As System.Exception
            MsgBox("程序出錯,錯誤原因是:" & excep_fill.Message, MsgBoxStyle.Exclamation)
        End Try
        Me.SqlConnection1.Close()
        Return ds
    End Function

    Private Sub update_students(ByVal ds As DataSet1)
        Me.SqlConnection1.Open()
        Dim row_update As DataSet
        Dim row_insert As DataSet
        Dim row_delete As DataSet
        Dim row_unchange As DataSet
        row_update = ds.GetChanges(DataRowState.Modified)
        row_insert = ds.GetChanges(DataRowState.Added)
        row_delete = ds.GetChanges(DataRowState.Detached)
        row_unchange = ds.GetChanges(DataRowState.Unchanged)
        Try
            If ds.HasChanges(DataRowState.Added) Then
                Me.SqlDataAdapter1.Update(row_insert)
            End If
            If ds.HasChanges(DataRowState.Modified) Then
                Me.SqlDataAdapter1.Update(row_update)
            End If
            If ds.HasChanges(DataRowState.Deleted) Then
                Me.SqlDataAdapter1.Update(row_delete)
            End If
            If ds.HasChanges(DataRowState.Unchanged) Then
                Me.SqlDataAdapter1.Update(row_unchange)
            End If
        Catch excep_update As System.Exception
            MsgBox("程序出錯,錯誤原因是:" & excep_update.Message, MsgBoxStyle.Exclamation)
            MsgBox(excep_update.Source)
        End Try
        Me.SqlConnection1.Close()
    End Sub

但是在数据窗体向导的选择加载和更新数据的方法那个步骤下找不到这两个过程请问是怎么回事??
搜索更多相关主题的帖子: 使用数据 向导 窗体 
2008-03-21 22:56
hemingsheng
Rank: 1
等 级:新手上路
帖 子:164
专家分:0
注 册:2007-5-16
收藏
得分:0 
各位大虾  小弟在线等啊  拜托了。。。。
2008-03-22 14:16
hemingsheng
Rank: 1
等 级:新手上路
帖 子:164
专家分:0
注 册:2007-5-16
收藏
得分:0 
晕了  自己弄明白了
不能是private sub 而要public sub...
2008-03-22 15:05
快速回复:关于使用数据窗体向导遇到的问题
数据加载中...
 
   



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

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