1: <%@ Page Language="C#" %>2: <%@ Import Namespace="System.Data" %> 3: <%@ Import NameSpace="System.Data.SqlClient" %> 4: 5: <%6: SqlDataReader myDataReader; 7: SqlConnection myConnection = new http://aspfree.com/chapters/sams/graphics/ccc.gifSqlConnection( "server=localhost;uid=sa;database=Pubs" ); 8: myConnection.Open(); 9: SqlCommand myCommand = new SqlCommand( "Select * from http://aspfree.com/chapters/sams/graphics/ccc.gifAuthors", myConnection );10: myDataReader = myCommand.ExecuteReader();11: while ( myDataReader.Read() )12: {13: Response.Write( myDataReader[ "au_lname" ].ToString() );14: }15: myDataReader.Close();16: myConnection.Close();17: %>18:5.3使用OleDbDataReader进行数据库查询1: <%@ Import Namespace="System.Data" %>2: <%@ Import NameSpace="System.Data.OleDb" %> 3:4: <%5: Dim myConnection As OleDbConnection 6: Dim myCommand As OleDbCommand 7: Dim myDataReader As OleDbDataReader 8: 9: myConnection = New OleDbConnection( "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA http://aspfree.com/chapters/sams/graphics/ccc.gifSource=c:/authors.mdb" )10: myConnection.Open()11: myCommand = New OleDbCommand( "Select * from Authors", myConnection )12: myDataReader = myCommand.ExecuteReader()13: While myDataReader.Read14: Response.Write( myDataReader.Item( "author" ) )15: End While16: myDataReader.Close()17: myConnection.Close18: %>19:5.5使用sql Parameters1: <%@ Import Namespace="System.Data" %> 2: <%@ Import NameSpace="System.Data.SqlClient" %> 3:4: <% 5: Dim myConnection As SqlConnection 6: Dim myCommand As SqlCommand 7: Dim FirstName As String = "Robert"8: Dim LastName As String = "Johnson" 9:10: myConnection = New SqlConnection( "server=localhost;uid=sa;pwd=secret;database=myData" )11: myConnection.Open()12: myCommand = New SQLCommand( "Insert Authors ( FirstName, LastName ) http://aspfree.com/chapters/sams/graphics/ccc.gifValues ( @FirstName, @LastName )", myConnection )13:14: myCommand.Parameters.Add( New SqlParameter( "@FirstName", http://aspfree.com/chapters/sams/graphics/ccc.gifSqlDbType.Varchar, 30 ))15: myCommand.Parameters( "@FirstName" ).Value = FirstName16:17: myCommand.Parameters.Add( New SqlParameter( "@LastName", http://aspfree.com/chapters/sams/graphics/ccc.gifSqlDbType.Varchar, 30 ))18: myCommand.Parameters( "@LastName" ).Value = LastName19:20: myCommand.ExecuteNonQuery()21: myConnection.Close()22: %>23: Record Inserted!5.6使用sql Parameters(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: Dim FirstName As String = "Robert" 8: Dim LastName As String = "Johnson" 9:10: myConnection = New OleDbConnection( "PROVIDER=Microsoft.Jet.OLEDB.4.0;http://aspfree.com/chapters/sams/graphics/ccc.gifDATA Source=c:/author2.mdb" )11: myConnection.Open()12: myCommand = New OleDbCommand( "Insert INTO Authors ( FirstName, LastName ) http://aspfree.com/chapters/sams/graphics/ccc.gifValues ( @FirstName, @LastName )", myConnection )13:14: myCommand.Parameters.Add( New OleDbParameter( "@FirstName", http://aspfree.com/chapters/sams/graphics/ccc.gifOleDbType.Varchar, 30 ))15: myCommand.Parameters( "@FirstName" ).Value = FirstName16:17: myCommand.Parameters.Add( New OleDbParameter( "@LastName", http://aspfree.com/chapters/sams/graphics/ccc.gifOleDbType.Varchar, 30 ))18: myCommand.Parameters( "@LastName" ).Value = LastName19:20: myCommand.ExecuteNonQuery()21: myConnection.Close()22: %>23: Record Inserted!24:< td>
