ado.net数据库操作（1）

这些都是网上搜索到的，我把他放在自己的博客里，作为笔记

1.1创建数据库连接（sqlserver）

<%@ Import Namespace="System.Data" %>
 <%@ Import NameSpace="System.Data.SqlClient" %>
<%
 Dim myConnection As SqlConnection
 myConnection = New SqlConnection( "server=localhost;database=Pubs;uid=sa" )

myConnection.Open()
 %>
Connection Opened!

1.2创建数据库连接（access）

<%@ Import Namespace="System.Data" %>
<%@ Import NameSpace="System.Data.OleDb" %>
 <%
 Dim myConnection As OleDbConnection
 myConnection = New OleDbConnection( "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA
http://aspfree.com/chapters/sams/graphics/ccc.gifSource=c:\authors.mdb" )

 myConnection.Open()
 %>
Connection Opened!

2.1添加纪录（sqlserver）

<%@ Import Namespace="System.Data" %> 

 <%@ Import NameSpace="System.Data.SqlClient" %> 

 <% 

 Dim myConnection As SqlConnection 

Dim myCommand As SqlCommand 

 myConnection = New SqlConnection( "server=localhost;uid=sa;database=Pubs" ) 

 myConnection.Open()

 myCommand = New SqlCommand( "Insert testTable ( col1 ) http://aspfree.com/chapters/sams/graphics/ccc.gifValues ( 'Hello' )", myConnection )

 myCommand.ExecuteNonQuery()

 myConnection.Close()

 %>

New Record Inserted!

2.2添加纪录（access）

<%@ Import Namespace="System.Data" %> 

 <%@ Import NameSpace="System.Data.OleDb" %> 

 <% 

 Dim myConnection As OleDbConnection 

 Dim myCommand As OleDbCommand 

 myConnection = New OleDbConnection( "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA http://aspfree.com/chapters/sams/graphics/ccc.gifSource=c:authors.mdb" ) 

 myConnection.Open()

 myCommand = New OleDbCommand( "Insert INTO Authors ( Author ) Values http://aspfree.com/chapters/sams/graphics/ccc.gif( 'Simpson' )", myConnection )

 myCommand.ExecuteNonQuery()

 myConnection.Close()

 %>

 New Record Inserted!

.1更新数据（sqlserver）

<%@ Import Namespace="System.Data" %> 

<%@ Import NameSpace="System.Data.SqlClient" %> 

<% 

 Dim myConnection As SqlConnection 

 Dim myCommand As SqlCommand 

 myConnection = New SqlConnection( "server=localhost;uid=sa;database=Pubs" ) 

 myConnection.Open()

 myCommand = New SqlCommand( "UPDATE Authors SET LastName='Smith' http://aspfree.com/chapters/sams/graphics/ccc.gifWHERE LastName='Bennett'", myConnection )

 myCommand.ExecuteNonQuery()

 myConnection.Close()

 %>

 Record Updated!

3.2更新数据（access）

<%@ Import Namespace="System.Data" %>

 <%@ Import NameSpace="System.Data.OleDb" %> 

 <% 

 Dim myConnection As OleDbConnection 

 Dim myCommand As OleDbCommand 

 myConnection = New OleDbConnection( "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA http://aspfree.com/chapters/sams/graphics/ccc.gifSource=c:\authors.mdb" ) 

 myConnection.Open()

 myCommand = New OleDbCommand( "UPDATE Authors SET Author='Bennett' http://aspfree.com/chapters/sams/graphics/ccc.gifWHERE Author = 'Simpson'", myConnection )

 myCommand.ExecuteNonQuery()

 myConnection.Close

 %>

Record Updated!

3.3更新数据中受影响的记录数

<%@ Import Namespace="System.Data" %>
 <%@ Import NameSpace="System.Data.SqlClient" %> 

<%
 Dim myConnection As SqlConnection 

 Dim myCommand As SqlCommand 

 Dim recordsAffected As Integer 

 myConnection = New SqlConnection( "server=localhost;uid=sa;database=Pubs" )

 myConnection.Open()

 myCommand = New SqlCommand( "UPDATE testTable SET col1='hello' http://aspfree.com/chapters/sams/graphics/ccc.gifWHERE col1='fred'", myConnection )

 recordsAffected = myCommand.ExecuteNonQuery()

 Response.Write( "The UPDATE statement modified " & http://aspfree.com/chapters/sams/graphics/ccc.gifrecordsAffected.toString() & " records!" )

 myConnection.Close

 %>

4.1删除数据（sqlserver）

<%@ Import Namespace="System.Data" %>

<%@ Import NameSpace="System.Data.SqlClient" %> 

<% 

 Dim myConnection As SqlConnection 

 Dim myCommand As SqlCommand 

myConnection = New SqlConnection( "server=localhost;uid=sa;database=Pubs" ) 

 myConnection.Open()

 myCommand = New SqlCommand( "DELETE testTable WHERE col1='fred'", myConnection )

 myCommand.ExecuteNonQuery()

 myConnection.Close()

 %>

 Record Deleted!

4.2删除数据（access）

 <%@ Import Namespace="System.Data" %>
<%@ Import NameSpace="System.Data.OleDb" %> 

 <% 

Dim myConnection As OleDbConnection 

 Dim myCommand As OleDbCommand 

myConnection = New OleDbConnection( "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA http://aspfree.com/chapters/sams/graphics/ccc.gifSource=c:\authors.mdb" ) 

 myConnection.Open()
 myCommand = New OleDbCommand( "DELETE FROM Authors http://aspfree.com/chapters/sams/graphics/ccc.gifWHERE Author = 'Simpson'", myConnection )

 myCommand.ExecuteNonQuery()
myConnection.Close()
 %>
 Record Deleted!

4.3删除纪录中受影响的记录数

<%@ Import Namespace="System.Data" %> 

 <%@ Import NameSpace="System.Data.SqlClient" %> 

 <% 

 Dim myConnection As SQLConnection 

 Dim myCommand As SQLCommand
 Dim recordsAffected As Integer 

 myConnection = New SqlConnection( "server=localhost;uid=sa;database=Pubs" )

 myConnection.Open()
 myCommand = New SqlCommand( "DELETE Authors2 http://aspfree.com/chapters/sams/graphics/ccc.gifWHERE LastName='Smith'", myConnection )
 recordsAffected = myCommand.ExecuteNonQuery()
 Response.Write( "The DELETE statement modified " http://aspfree.com/chapters/sams/graphics/ccc.gif& recordsAffected.toString() & " records!" )
 myConnection.Close
 %>