快精灵印艺坊 您身边的文印专家
广州名片 深圳名片 会员卡 贵宾卡 印刷 设计教程
产品展示 在线订购 会员中心 产品模板 设计指南 在线编辑
 首页 名片设计   CorelDRAW   Illustrator   AuotoCAD   Painter   其他软件   Photoshop   Fireworks   Flash  

 » 彩色名片
 » PVC卡
 » 彩色磁性卡
 » 彩页/画册
 » 个性印务
 » 彩色不干胶
 » 明信片
   » 明信片
   » 彩色书签
   » 门挂
 » 其他产品与服务
   » 创业锦囊
   » 办公用品
     » 信封、信纸
     » 便签纸、斜面纸砖
     » 无碳复印纸
   » 海报
   » 大篇幅印刷
     » KT板
     » 海报
     » 横幅

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

众所周知,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






返回类别: 教程
上一教程: ASP.NET结合COM组件发送Email
下一教程: .Net的注册表操作

您可以阅读与"一个经典的ADO.NET入门例子"相关的教程:
· 和我一起入门Direct3D的VB.net编程
· .NET中自己构建一个ArrDictionary
· 一个.net分页测试源码
· .NET之ASP Web Application迅速入门(2)
· 在ASP.NET中操作文件的例子(VB)
    微笑服务 优质保证 索取样品