ado.net数据操作全接触一（insert,update,delete）

2022-07-15 80酷酷网 80kuku.com

　　ado|数据1.1创建数据库连接（sqlserver）
1: <% Import Namespace="System.Data" %>
2: <% Import NameSpace="System.Data.SqlClient" %>
3: <%
4: Dim myConnection As SqlConnection
5: myConnection = New SqlConnection( "server=localhost;database=Pubs;uid=sa" )
6:
7: myConnection.Open()
8: %>
9: Connection Opened!
1.2创建数据库连接（access）
1: <% Import Namespace="System.Data" %>
2: <% Import NameSpace="System.Data.OleDb" %>
3: <%
4: Dim myConnection As OleDbConnection
5: myConnection = New OleDbConnection( "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA
http://aspfree.com/chapters/sams/graphics/ccc.gifSource=c:\authors.mdb" )
6:
7: myConnection.Open()
8: %>
9: Connection Opened!
2.1添加纪录（sqlserver）

 1: <% Import Namespace="System.Data" %>

2: <% Import NameSpace="System.Data.SqlClient" %>

3:

4: <%

5: Dim myConnection As SqlConnection

6: Dim myCommand As SqlCommand

7:

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

9: myConnection.Open()

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

11: myCommand.ExecuteNonQuery()

12: myConnection.Close()

13: %>

14: New Record Inserted!

15:

2.2添加纪录（access）

1: <% Import Namespace="System.Data" %>

2: <% Import NameSpace="System.Data.OleDb" %>

3:

4: <%

5: Dim myConnection As OleDbConnection

6: Dim myCommand As OleDbCommand

7:

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

9: myConnection.Open()

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

11: myCommand.ExecuteNonQuery()

12: myConnection.Close()

13: %>

14: New Record Inserted!

15:

3.1更新数据（sqlserver）

1: <% Import Namespace="System.Data" %>

2: <% Import NameSpace="System.Data.SqlClient" %>

3:

4: <%

5: Dim myConnection As SqlConnection

6: Dim myCommand As SqlCommand

7:

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

9: myConnection.Open()

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

11: myCommand.ExecuteNonQuery()

12: myConnection.Close()

13: %>

14: Record Updated!

15:

3.2更新数据（access）

1: <% Import Namespace="System.Data" %>

 2: <% Import NameSpace="System.Data.OleDb" %>

3:

4: <%

5: Dim myConnection As OleDbConnection

6: Dim myCommand As OleDbCommand

7:

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

9: myConnection.Open()

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

11: myCommand.ExecuteNonQuery()

12: myConnection.Close

13: %>

14: Record Updated!15:

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

1: <% Import Namespace="System.Data" %>

2: <% Import NameSpace="System.Data.SqlClient" %>

3:

4: <%

5: Dim myConnection As SqlConnection

6: Dim myCommand As SqlCommand 
7: Dim recordsAffected As Integer 
8: 
9: myConnection = New SqlConnection( "server=localhost;uid=sa;database=Pubs" )
10: myConnection.Open()
11: myCommand = New SqlCommand( "UPDATE testTable SET col1='hello' http://aspfree.com/chapters/sams/graphics/ccc.gifWHERE col1='fred'", myConnection )
12: recordsAffected = myCommand.ExecuteNonQuery()
13: Response.Write( "The UPDATE statement modified " & http://aspfree.com/chapters/sams/graphics/ccc.gifrecordsAffected.toString() & " records!" )
14: myConnection.Close
15: %>
16:

4.1删除数据（sqlserver）

1: <% Import Namespace="System.Data" %>
 2: <% Import NameSpace="System.Data.SqlClient" %> 
3: 
4: <% 
5: Dim myConnection As SqlConnection 
6: Dim myCommand As SqlCommand 
7: 
8: myConnection = New SqlConnection( "server=localhost;uid=sa;database=Pubs" ) 
9: myConnection.Open()
10: myCommand = New SqlCommand( "DELETE testTable WHERE col1='fred'", myConnection )
11: myCommand.ExecuteNonQuery()
12: myConnection.Close()
13: %>
14: Record Deleted!
15:

4.2删除数据（access）
 1: <% Import Namespace="System.Data" %> 
2: <% Import NameSpace="System.Data.OleDb" %> 
3: 
4: <% 
5: Dim myConnection As OleDbConnection 
6: Dim myCommand As OleDbCommand 
7: 
8: myConnection = New OleDbConnection( "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA http://aspfree.com/chapters/sams/graphics/ccc.gifSource=c:\authors.mdb" ) 
9: myConnection.Open()
10: myCommand = New OleDbCommand( "DELETE FROM Authors http://aspfree.com/chapters/sams/graphics/ccc.gifWHERE Author = 'Simpson'", myConnection )
11: myCommand.ExecuteNonQuery()
12: myConnection.Close()
13: %>
14: Record Deleted!
15:
16:
4.3删除纪录中受影响的记录数
1: <% Import Namespace="System.Data" %> 
2: <% Import NameSpace="System.Data.SqlClient" %> 
3: 
4: <% 
5: Dim myConnection As SQLConnection 
6: Dim myCommand As SQLCommand 
7: Dim recordsAffected As Integer 
8: 
9: myConnection = New SqlConnection( "server=localhost;uid=sa;database=Pubs" )
10: myConnection.Open()
11: myCommand = New SqlCommand( "DELETE Authors2 http://aspfree.com/chapters/sams/graphics/ccc.gifWHERE LastName='Smith'", myConnection )
12: recordsAffected = myCommand.ExecuteNonQuery()
13: Response.Write( "The DELETE statement modified " http://aspfree.com/chapters/sams/graphics/ccc.gif& recordsAffected.toString() & " records!" )
14: myConnection.Close
15: %>
16: