现在的位置: 首页 > 综合 > 正文

一个经典的ADO.NET入门例子(CSDN博客迁移)

2012年04月20日 ⁄ 综合 ⁄ 共 1559字 ⁄ 字号 评论关闭

         众所周知,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.ObjectByVal 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(3As 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


 

抱歉!评论已关闭.