当前位置:首页 -> 焦点新闻

一个经典的ADO.NET入门例子

2005/1/7 14:52:32       
 

众所周知,ADO.NET相对于ADO的最大优势在于对于数据的更新修改可以在与数据源完全断开联系的情况下进行,然后再把数据更新情况传回到

数据源。这样大大减少了连接过多对于数据库服务器资源的占用。下面是我在《ADO.NET实用指南》这本书上看到的一个例子,比较清楚的讲解

了ADO.NET的使用方法。
Imports System.Data.SqlClient
Imports System.Data
Imports System.Data.Common

Public Class Form1
    Inherits System.Windows.Forms.Form

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim conn As New SqlConnection("data source=localhost;initial catalog=StudentCourse;" & _
        "User ID=;Password=;")
        Dim ds As New DataSet
        Try
            conn.Open()     '在形成SqlDataAdapter前打开conn
            Dim daAuthors As New SqlDataAdapter("Select * From SC", conn)
            Dim bldr As New SqlCommandBuilder(daAuthors)
            daAuthors.Fill(ds,"SC")
            conn.Close()    '在填充完ds后关闭连接,接着对ds进行操作

            Dim tbl As New DataTable
            tbl = ds.Tables("SC")

            Dim rowVals(3) As Object
            rowVals(0) = "5"
            rowVals(1) = "00003"
            rowVals(2) = "0001"
            rowVals(3) = 99
            Dim insertedRow As DataRow
            insertedRow = tbl.Rows.Add(rowVals) '添加一行

            tbl.Rows(0).Delete()    '删除一行

            tbl.Rows(1).BeginEdit()
            tbl.Rows(1)("score") = 89   '修改一行
            tbl.Rows(1).EndEdit()

            conn.Open()
            daAuthors.Update(ds.Tables("SC"))   '须将结果传回数据源时打开连接,update
            conn.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
End Class


煤炭网版权与免责声明:

凡本网注明"来源:煤炭网www.coal.com.cn "的所有文字、图片和音视频稿件,版权均为"煤炭网www.coal.com.cn "独家所有,任何媒体、网站或个人在转载使用时必须注明"来源:煤炭网www.coal.com.cn ",违反者本网将依法追究责任。

本网转载并注明其他来源的稿件,是本着为读者传递更多信息的目的,并不意味着本网赞同其观点或证实其内容的真实性。其他媒体、网站或个人从本网转载使用时,必须保留本网注明的稿件来源,禁止擅自篡改稿件来源,并自负版权等法律责任。违反者本网也将依法追究责任。 如本网转载稿件涉及版权等问题,请作者在两周内尽快来电或来函联系。

  • 用手机也能做煤炭生意啦!
  • 中煤远大:煤炭贸易也有了“支付宝”
  • 中煤开启煤炭出口贸易人民币结算新时代
  • 下半年煤炭市场依然严峻
市场动态

网站技术运营:北京真石数字科技股份有限公司、喀什中煤远大供应链管理有限公司、喀什煤网数字科技有限公司

总部地址:北京市丰台区总部基地航丰路中航荣丰1层

京ICP备18023690号-1      京公网安备 11010602010109号


关注中煤远大微信
跟踪最新行业资讯