Public Sub Page_Load(sender As Object, e As EventArgs) Dim
myConnection As New
SqlConnection(ConfigurationSettings.AppSettings("ConnectionString")) Dim
myCommand As New SqlCommand("Select * from Person",
myConnection) Try myConnection.Open() Dim myDataReader as
SqlDataReader myDataReader =
myCommand.ExecuteReader(CommandBehavior.CloseConnection)
Do While
(myDataReader.Read()) Response.ContentType =
myDataReader.Item("PersonImageType") Response.BinaryWrite(myDataReader.Item("PersonImage")) Loop
myConnection.Close() Response.Write("Person
info successfully retrieved!") Catch SQLexc As
SqlException Response.Write("Read Failed : " &
SQLexc.ToString()) End Try End
Sub 看看他是怎么工作的？
上面的例子很简单。我们所作的就是执行一个sql语句，再循环读取所有的记录（looping
through all the
records）.
＜%@ Page Language="vb" %＞ ＜%@ Import
Namespace="System.Data" %＞ ＜%@ Import Namespace="System.Data.SqlClient"
%＞ ＜HTML＞ ＜HEAD＞ ＜title＞Retrieving Image from the Sql
Server＜/title＞ ＜script runat=server＞ Public Sub Page_Load(sender As
Object, e As EventArgs) ' Create Instance of Connection and Command
Object Dim myConnection As New
SqlConnection(ConfigurationSettings.AppSettings("ConnectionString")) Dim
myCommand As New SqlCommand("Select * from Person",
myConnection) Try myConnection.Open() Dim myDataReader as
SqlDataReader myDataReader =
myCommand.ExecuteReader(CommandBehavior.CloseConnection)
Do While
(myDataReader.Read()) Response.ContentType =
myDataReader.Item("PersonImageType") Response.BinaryWrite(myDataReader.Item("PersonImage")) Loop
myConnection.Close() Response.Write("Person info successfully
retrieved!") Catch SQLexc As SqlException Response.Write("Read
Failed : " & SQLexc.ToString()) End Try End Sub
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
