a simple example of Ado.net
2006-12-24 22:24
501 查看
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
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
相关文章推荐
- A simple example of exceptional handing in function
- a simple example of trade-off from fibonacci function to fast-fibonacci function
- Overview of the Architecture of ADO.NET.
- Excel With ADO.NET:Cannot modify the design of table ‘xxx′. It is in a read-only database
- An example code in .net of AWS EC2
- Example code of searching in WordNet Dictionary with JAWS library
- Object Context of ADO.Net Entity Framework
- A simple visualization of energy function and energy gap in hopfield nets
- Overview of the Architecture of ADO.NET
- A Brief Introduction to Hibernate for .NET with A Simple Example
- Simple example of using the Java Native Interface
- classical ado.net example [ZT:)]
- Dead simple example of using Multiprocessing Queue, Pool and Locking
- Simple Ajax and ASP.NET Example
- A Brief Introduction to Hibernate for .NET with A Simple Example
- A simple Test Client built on top of ASP.NET Web API Help Page
- A Simple Example of Dynamic Programming using perl scripts
- Simple example of using the Java Native Interface(JNI)
- A simple example of "Secure Application Role"