【发布时间】:2010-01-27 21:34:34
【问题描述】:
重新发布相同的问题,因为发布后,无法编辑问题。如果你之前读过这个问题,请特别阅读底部 -
好的,这是我从这个站点使用的代码。一切正常,但我需要一些不同的代码来上传图片,而且我不知道该怎么做 - 这是代码 -
Private Sub btnAttach_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnAttach.Click
Dim iLength As Integer = CType(File1.PostedFile.InputStream.Length, Integer)
If iLength = 0 Then Exit Sub 'not a valid file
Dim sContentType As String = File1.PostedFile.ContentType
Dim sFileName As String, i As Integer
Dim bytContent As Byte()
ReDim bytContent(iLength) 'byte array, set to file size
'strip the path off the filename '
i = InStrRev(File1.PostedFile.FileName.Trim, "\")
If i = 0 Then
sFileName = File1.PostedFile.FileName.Trim
Else
sFileName = Right(File1.PostedFile.FileName.Trim, Len(File1.PostedFile.FileName.Trim) - i)
End If
Try
File1.PostedFile.InputStream.Read(bytContent, 0, iLength)
With cmdInsertAttachment
.Parameters("@FileName").Value = sFileName
.Parameters("@FileSize").Value = iLength
.Parameters("@FileData").Value = bytContent
.Parameters("@ContentType").Value = sContentType
.ExecuteNonQuery()
End With
Catch ex As Exception
'Handle your database error here
dbConn.Close()
End Try
Response.Redirect(Request.Url.ToString) 'Refresh page
End Sub
一切正常,除了这部分 -
With cmdInsertAttachment
.Parameters("@FileName").Value = sFileName
.Parameters("@FileSize").Value = iLength
.Parameters("@FileData").Value = bytContent
.Parameters("@ContentType").Value = sContentType
.ExecuteNonQuery()
End With
我没有使用 cmdinsertattachment。我正在使用 HTML 工具箱中的 Html - Input(File)。输入文件的 ID 为 ID="upldimg"。
那么我如何将它插入到我的表中 -
Column1 ID identity
Column2 Img image
Column 3 Description varchar(200).
请告诉我插入语句 -
INSERT into table1 (Img, Description) values (???, txtdescription.text)
我在插入语句中做 upldimg.text 吗?
【问题讨论】:
-
您无法编辑问题,因为您以 derti 而不是 drien 身份登录(请参阅 stackoverflow.com/questions/2150251/…)
标签: sql-server vb.net image