dataset删改数据

原创 2004年09月15日 10:12:00

Imports System.Data
Imports System.Data.OleDb

Public Class WebForm5
    Inherits System.Web.UI.Page

#Region " Web 窗体设计器生成的代码 "

    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub
    Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid
    Protected WithEvents DropDownList1 As System.Web.UI.WebControls.DropDownList
    Protected WithEvents DropDownList2 As System.Web.UI.WebControls.DropDownList
    Protected WithEvents Button1 As System.Web.UI.WebControls.Button
    Protected WithEvents Button2 As System.Web.UI.WebControls.Button
    Protected WithEvents TextBox1 As System.Web.UI.WebControls.TextBox
    Protected WithEvents Button3 As System.Web.UI.WebControls.Button
    Protected WithEvents xuhu As System.Web.UI.HtmlControls.HtmlGenericControl
    Protected WithEvents Button4 As System.Web.UI.WebControls.Button

    '注意: 以下占位符声明是 Web 窗体设计器所必需的。
    '不要删除或移动它。
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
        '不要使用代码编辑器修改它。
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If Not IsPostBack Then
            xuhu.Visible = False
            mydatashow()
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Response.Write(DropDownList1.SelectedItem.Value)
        Dim myconnection As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("aspnet.mdb"))
        Dim myadapter As OleDbDataAdapter = New OleDbDataAdapter("select * from student where id=" + DropDownList1.SelectedItem.Value.ToString, myconnection)
        Dim mydataset As DataSet = New DataSet
        myadapter.Fill(mydataset, "student")
        Dim mybuilder As OleDbCommandBuilder = New OleDbCommandBuilder(myadapter)
        mydataset.Tables("student").Rows(0).Delete()
        myadapter.Update(mydataset, "student")
        myconnection.Close()
        mydatashow()
    End Sub
    Private Function mydatashow()
        Dim myconnection As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("aspnet.mdb"))
        Dim myadapter As OleDbDataAdapter = New OleDbDataAdapter("select * from student ", myconnection)
        Dim mydataset As DataSet = New DataSet
        myadapter.Fill(mydataset, "student")
        DataGrid1.DataSource = mydataset.Tables("student").DefaultView
        DataGrid1.DataBind()
        DropDownList1.DataSource = mydataset.Tables("student").DefaultView
        DropDownList1.DataTextField = "id"
        DropDownList1.DataValueField = "id"
        DropDownList1.DataBind()
        DropDownList2.DataSource = mydataset.Tables("student").Columns
        DropDownList2.DataBind()
        myconnection.Close()
    End Function

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        xuhu.Visible = True
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim myconnection As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("aspnet.mdb"))
        Dim myadapter As OleDbDataAdapter = New OleDbDataAdapter("select * from student where id=" + DropDownList1.SelectedItem.Value.ToString, myconnection)
        Dim mydataset As DataSet = New DataSet
        myadapter.Fill(mydataset, "student")
        Dim mybuilder As OleDbCommandBuilder = New OleDbCommandBuilder(myadapter)
        mydataset.Tables("student").Rows(0)(DropDownList2.SelectedItem.Value) = TextBox1.Text
        myadapter.Update(mydataset, "student")
        myconnection.Close()
        mydatashow()
        xuhu.Visible = False
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        xuhu.Visible = False
    End Sub
End Class

DataSet之增删改查操作(DataGridView绑定)

DataSet之增删改查操作(DataGridView绑定)   (2010-07-05 11:03:21) 转载▼ 标签:  it 分类: IT ...
  • autumn20080101
  • autumn20080101
  • 2015年12月18日 20:28
  • 310

asp.net使用DataSet数据集插入记录

http://blog.csdn.net/beyondqd/article/details/6724778 http://blog.163.com/da7_1@126/blog/static/104...
  • QZC295919009
  • QZC295919009
  • 2015年01月21日 11:22
  • 1607

利用dataset将数据给到dataGridview

怎样利用DataSet向DataGridView中添加数据呢?很简单:编写添加按钮的单击事件方法 示例代码: private void btnAdd_Click(object Sender,Eve...
  • niuge8905
  • niuge8905
  • 2017年02月05日 19:40
  • 2196

C#之数据集:DataSet对象

ADO.NET数据访问技术的一个突出的特点就是支持离线访问,而实现这种离线访问技术的核心就是DataSet对象,该对象通过将数据驻留在内存来实现离线访问。         DataSet对象概述 ...
  • erlian1992
  • erlian1992
  • 2015年05月26日 17:14
  • 2092

C# 用DataSet读取数据

轉自:http://edu.cnzz.cn/201304/87167e0c.shtml 6,用DataSet读取数据 DataSet是Ado.Net中的核心对象,所有复杂级别的操作都使用它...
  • jane007123
  • jane007123
  • 2016年05月04日 10:47
  • 2129

.NET学习(三)用DataSet缓存数据库中的数据

DataSet相当于一个数据缓存容器。 DataAdapter用于将数据从数据库中提取出来,存放到DataSet对象中。大致有以下五个步骤: 1.实例化一个DataAdapter对象。 (注意:...
  • qq_16912257
  • qq_16912257
  • 2015年11月21日 13:09
  • 598

计算机视觉方面的数据集收藏(CV Datasets on the web)

Detection PASCAL VOC 2009 datasetClassification/Detection Competitions, Segmentation Competition, P...
  • kezunhai
  • kezunhai
  • 2014年07月31日 16:03
  • 3789

C#:DataSet控件(数据控件)

DataSet控件是ADO.NET结构的主要组件,它是从数据源中检索到的数据在内存中的缓存。DataSet由一组DataTable对象组成,可以使这些对象与DataRelation对象互相关联。还可以...
  • vjudge
  • vjudge
  • 2014年07月23日 23:20
  • 2051

与运动相关的数据集

Survey of related motion databases
  • computerme
  • computerme
  • 2016年03月11日 09:51
  • 3985

C#将DataSet或DataTable转换成Json格式数据传递到前台JS脚本

如何将后台代码得到的DataSet,DataTable中的数据传递到JS脚本中操作呢?下面来看具体解决步骤。 1.首先我们在前台JS脚本中编写一个隐藏域:注意加上属性 runat="server" 以...
  • yagami123551
  • yagami123551
  • 2014年03月21日 11:15
  • 1541
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:dataset删改数据
举报原因:
原因补充:

(最多只允许输入30个字)