| « | January 2026 | » | | 日 | 一 | 二 | 三 | 四 | 五 | 六 | | | | | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | |
|
公告 |
| 我不去想是否能够成功,既然选择了远方,便只能风雨兼程; 我不去想,身后会不会袭来寒风冷雨,既然目标是地平线,留给世界的只能是背影!人生短短几十年,不要给自己留下了什么遗憾,想笑就笑,想哭就哭,爱就爱得轰轰烈烈,狠就狠的刻骨铭心! |
| Blog信息 |
|
blog名称:Rabbit's Blog--我的blog我做主
日志总数:52
评论数量:41
留言数量:-10
访问次数:241033
建立时间:2005年12月7日 |
| |
|
 [DotNet].Net中向SQL Server数据库添加图片
文章收藏, 软件技术
开心兔子 发表于 2005/12/8 15:46:06 |
| 下面的代码实现向SQL Server数据库添加图片和文字的功能。
首先，在SQL查询分析器中执行下面的语句，以创建表和存储过程。
Drop Table Person
GoCreate Table Person(PersonID Int Identity,PersonEmail Varchar(255),PersonName Varchar(255),PersonSex Char(1),PersonDOB DateTime,PersonImage Image,PersonImageType Varchar(255))
Drop Proc sp_person_isp
GoCreate Proc sp_person_isp@PersonEmail Varchar(255),@PersonName Varchar(255),@PersonSex Char(1),@PersonDOB DateTime,@PersonImage Image,@PersonImageType Varchar(255)AsBegin Insert into Person (PersonEmail, PersonName, PersonSex, PersonDOB, PersonImage, PersonImageType) Values (@PersonEmail, @PersonName, @PersonSex, @PersonDOB, @PersonImage, @PersonImageType)End
Go
下面是完整的代码,Copy即可运行
<%@ Import Namespace="System.IO" %><%@ Import Namespace="System.Data.SqlClient" %><%@ Import Namespace="System.Data" %><%@ Page Language="vb" %><HTML><HEAD><title>向SQL Server插入图片</title><script runat="server">Public Sub AddPerson(sender As Object, e As EventArgs) Dim intImageSize As Int64 Dim strImageType As String Dim ImageStream As Stream ' 获得图片的大小 intImageSize = PersonImage.PostedFile.ContentLength ' 获得图片类型 strImageType = PersonImage.PostedFile.ContentType '读取图片 ImageStream = PersonImage.PostedFile.InputStream Dim ImageContent(intImageSize) As Byte Dim intStatus As Integer intStatus = ImageStream.Read(ImageContent, 0, intImageSize) ' 创建Connection和Command对象 Dim strCnn As String = "Data Source=.;Initial Catalog=mxh;User Id=sa;Password=;" Dim myConnection As New SqlConnection(strCnn) Dim myCommand As New SqlCommand("sp_person_isp", myConnection) ' 使用存储过程 myCommand.CommandType = CommandType.StoredProcedure ' 向存储过程添加参数 Dim prmEmail As New SqlParameter("@PersonEmail", SqlDbType.VarChar, 255) prmEmail.Value = txtPersonEmail.Text myCommand.Parameters.Add(prmEmail)
Dim prmName As New SqlParameter("@PersonName", SqlDbType.VarChar, 255) prmName.Value = txtPersonName.Text myCommand.Parameters.Add(prmName) Dim prmSex As New SqlParameter("@PersonSex", SqlDbType.Char, 1)
If sexMale.Checked Then prmSex.Value = "M" Else prmSex.Value = "F" End If myCommand.Parameters.Add(prmSex) Dim prmPersonDOB As New SqlParameter("@PersonDOB", SqlDbType.DateTime) prmPersonDOB.Value = txtPersonDob.Text myCommand.Parameters.Add(prmPersonDOB)
Dim prmPersonImage As New SqlParameter("@PersonImage", SqlDbType.Image) prmPersonImage.Value = ImageContent myCommand.Parameters.Add(prmPersonImage)
Dim prmPersonImageType As New SqlParameter("@PersonImageType", SqlDbType.VarChar, 255) prmPersonImageType.Value = strImageType myCommand.Parameters.Add(prmPersonImageType)
Try myConnection.Open() myCommand.ExecuteNonQuery() myConnection.Close() Response.Write("添加成功！") Catch SQLexc As SqlException Response.Write("添加失败，原因：" & SQLexc.ToString()) End TryEnd Sub</script></HEAD><body style="FONT: 9pt 宋体"> <form enctype="multipart/form-data" runat="server" ID="Form1"> <asp:Table Runat="server" Width="50%" BorderWidth="1" BackColor="Beige" ID="Table1" Font-Name="宋体" Font-Size="9pt"> <asp:TableRow> <asp:TableCell ColumnSpan="2" BackColor="#ff0000"> <asp:Label ForeColor="#ffffff" font-bold="True" Runat="server" Text="添加新用户" ID="Label1" /> </asp:TableCell> </asp:TableRow> <asp:TableRow> <asp:TableCell HorizontalAlign="Right"> <asp:Label Runat="server" Text="姓名" ID="Label2" /> </asp:TableCell> <asp:TableCell> <asp:TextBox id="txtPersonName" Runat="server" /> </asp:TableCell> </asp:TableRow> <asp:TableRow> <asp:TableCell HorizontalAlign="Right"> <asp:Label Runat="server" Text="电子邮件" ID="Label3" /> </asp:TableCell> <asp:TableCell> <asp:TextBox id="txtPersonEmail" Runat="server" /> </asp:TableCell> </asp:TableRow> <asp:TableRow> <asp:TableCell HorizontalAlign="Right"> <asp:Label Runat="server" Text="性别" ID="Label4"/> </asp:TableCell> <asp:TableCell> <asp:RadioButton GroupName="sex" Text="男" ID="sexMale" Runat="server" /> <asp:RadioButton GroupName="sex" Text="女" ID="sexFeMale" Runat="server" /> </asp:TableCell> </asp:TableRow> <asp:TableRow> <asp:TableCell HorizontalAlign="Right"> <asp:Label Runat="server" Text="出生日期" ID="Label5"/> </asp:TableCell> <asp:TableCell> <asp:TextBox id="txtPersonDOB" Runat="server" /> </asp:TableCell> </asp:TableRow> <asp:TableRow> <asp:TableCell HorizontalAlign="Right"> <asp:Label Runat="server" Text="照片" ID="Label6"/> </asp:TableCell> <asp:TableCell> <input type="file" id="PersonImage" runat="server" NAME="PersonImage" /></asp:TableCell> </asp:TableRow> <asp:TableRow> <asp:TableCell ColumnSpan="2" HorizontalAlign="Center"> <asp:Button Text=" 添 加 " OnClick="AddPerson" Runat="server" ID="Button1"/> </asp:TableCell> </asp:TableRow> </asp:Table> </form></body></HTML> |
|
|