针对有网友说看不见文章内容, 现提示如下: 点击每一个标题行任一地方都会展开和隐藏此文章内容(不要点击标题). 目前展开隐藏功能只支持IE浏览器,虽然可以改成支持FF浏览器,不过现在一直没时间去弄,等有时间再修改了。 |
blog名称:乱闪Blog 日志总数:267 评论数量:1618 留言数量:-26 访问次数:2656115 建立时间:2005年1月1日 |
|

| |
一个经典的ADO.NET入门例子
|
作者: firerainbow 加入时间: 2005-01-10 文档类型: 转载 来自: 浏览统计: total: 32 year: 32 quarter: 32 month: 32 week: 12 today: 3
众所周知,ADO.NET相对于ADO的最大优势在于对于数据的更新修改可以在与数据源完全断开联系的情况下进行,然后再把数据更新情况传回到数据源。这样大大减少了连接过多对于数据库服务器资源的占用。下面是我在《ADO.NET实用指南》这本书上看到的一个例子,比较清楚的讲解了ADO.NET的使用方法。
Imports System.Data.SqlClientImports System.DataImports 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 SubEnd Class |
|
回复:一个经典的ADO.NET入门例子
|
电脑与网络 cc(游客)发表评论于2006/12/8 9:32:54 |
| |
回复:一个经典的ADO.NET入门例子
|
电脑与网络 bastenf(游客)发表评论于2005/8/31 10:06:14 |
| |
回复:一个经典的ADO.NET入门例子
|
电脑与网络 qwer(游客)发表评论于2005/7/4 15:40:11 |
| |
» 1 »
|