图片插入：
如何使用vb.net2008将图片插入SQL Server 2005数据库？我需要带有解释的代码，例如我有一个数据库表，我想存储一张图片..
我不知道在SQL Server 2005中存储图像，我该怎么做？
请帮帮我......
我当前的代码不正确，请检查并告诉插入图片的新简单代码：
我的代码
Imports System.Data.SqlClient
Imports System.IO
Public Class Form1
Dim path As String = (Microsoft.VisualBasic.Left(Application.StartupPath, Len(Application.StartupPath) - 9))
Dim con As New SqlConnection("Data Source=nida-PC\SQLEXPRESS;AttachDbFilename=" & path & "Database1.mdf;Integrated Security=True;User Instance=True")
'Dim con As New SqlConnection= ("Data Source=NIDA-PC\SQLEXPRESS;Initial Catalog=Finaldb;Integrated Security=True")
Dim cmd As SqlCommand
' Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
'PictureBox1.BackgroundImage = Image.FromFile(OpenFileDialog1.FileName)
'Label1.Visible = True
'TextBox1.Visible = True
'Label1.Text = "Name"
'TextBox1.Text = ("Save image")
' End If
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.InformationTableAdapter.Fill(Me.Database1DataSet.Information)
con.Open()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
PictureBox1.BackgroundImage = Image.FromFile(OpenFileDialog1.FileName)
Label1.Visible = True
TextBox1.Visible = True
Label1.Text = "Name"
TextBox1.Clear()
PictureBox1.SizeMode = PictureBoxSizeMode.AutoSize
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Try
If TextBox1.Text = "" Then
MsgBox("Fill the Name Field")
Else
Dim sql As String = "Insert into tbl_image(@Image_Name,@photo)"
Dim cmd As New SqlCommand(sql, con)
con.Open()
cmd.Parameters.AddWithValue("@Image_Name", TextBox1.Text)
cmd.Parameters.AddWithValue("@Photo", SqlDbType.Image)
Dim ms As New MemoryStream()
PictureBox1.BackgroundImage.Save(ms, PictureBox1.BackgroundImage.RawFormat)
Dim data As Byte() = ms.GetBuffer()
Dim p As New SqlParameter("@photo", SqlDbType.Image)
p.Value = data
cmd.Parameters.Add(p)
cmd.ExecuteNonQuery()
'Form1_Load(sender, e)
MessageBox.Show("Name & Image has been saved", "Save", MessageBoxButtons.OK)
Label1.Visible = False
TextBox1.Visible = False
End If
Catch ex As Exception
'MsgBox("")
Return
End Try
con.Close()
End Sub
Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter
End Sub
End Class
答案 0 :(得分：0)
您可以使用以下查询在数据库中插入图像：
SELECT BulkColumn AS Img FROM OPENROWSET(BULK N'D:\Desktop\xyz.jpg', SINGLE_BLOB) AS CategoryImage
＆＃34; d：\桌面\ XYZ＆＃34;将其替换为文件路径。
答案 1 :(得分：0)
我想这会有所作为，虽然我忘记了如何编辑它，所以只需查看它......
Private Sub btnStudSave_Click（ByVal sender As System.Object，ByVal e As System.EventArgs）处理btnStudSave.Click
If filenamepicturebox1 = "" Then
MessageBox.Show("Browse a Picture to continue!", "Left Over", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
Dim savenewstudent As Boolean = True
Dim filled_data As Boolean = False
Dim studId As Boolean = False
Dim studName As Boolean = False
Dim studCourse As Boolean = False
Dim studGender As Boolean = False
Try
If txtStudName.Text = String.Empty AndAlso txtStudId.Text = String.Empty _
AndAlso cmbStudCourse.Text = String.Empty AndAlso UPYLvl.Text = String.Empty _
AndAlso cmbStudGender.Text = String.Empty Then
MessageBox.Show("All the Information is BLANK!")
txtStudName.Focus()
ElseIf txtStudName.Text = String.Empty Then
MessageBox.Show("Student Name Information is BLANK!")
txtStudName.Focus()
ElseIf txtStudId.Text = String.Empty Then
MessageBox.Show("Student ID Information is BLANK!")
txtStudId.Focus()
ElseIf cmbStudCourse.Text = String.Empty Then
MessageBox.Show("Student Course Information is BLANK!")
cmbStudCourse.Focus()
ElseIf cmbStudGender.Text = String.Empty Then
MessageBox.Show("Student Gender Information is BLANK!")
cmbStudGender.Focus()
Else
studName = True
studId = True
studCourse = True
studGender = True
End If
If studId AndAlso studName AndAlso studCourse AndAlso studGender Then
If ifExistsStudentName(txtStudName.Text) Then
MessageBox.Show("Duplication of Name has Found!", "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Error)
txtStudName.Focus()
ElseIf ifExistsStudentId(txtStudId.Text) Then
MessageBox.Show("Duplication of ID has Found!", "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Error)
txtStudId.Focus()
Else
filled_data = True
OdbcConnection1.Open()
Dim newstudent As OdbcCommand = New OdbcCommand _
("INSERT INTO `Student`(`Id`, `Name`, `Gender`, `Course`, `Year`, `Picture`) VALUES ('" _
& Me.txtStudId.Text & "','" _
& Me.txtStudName.Text & "','" _
& Me.cmbStudGender.Text & "','" _
& Me.cmbStudCourse.Text & "','" _
& Me.UPYLvl.Value & "','" _
& Replace(filenamepicturebox1, "\", "\\") & "')", OdbcConnection1)
newstudent.ExecuteNonQuery()
newstudent = Nothing
OdbcConnection1.Close()
End If
End If
Catch ex As Exception
MessageBox.Show(ex.Message & "" & ex.StackTrace)
savenewstudent = False
OdbcConnection1.Close()
End Try
If savenewstudent AndAlso filled_data Then
MessageBox.Show("New Student data were succssfully saved!", "DATA SAVE", _
MessageBoxButtons.OK, MessageBoxIcon.Information)
txtStudName.Clear()
txtStudId.Clear()
cmbStudCourse.Text = ""
UPYLvl.Value = 1
cmbStudGender.Text = ""
txtStudId.Enabled = False
txtStudName.Enabled = False
cmbStudCourse.Enabled = False
UPYLvl.Enabled = False
cmbStudGender.Enabled = False
btnStudBrowse.Enabled = False
PictureBox1.Image = Nothing
filled_data = False
btnStudDelete.Enabled = False
btnStudUpdate.Enabled = False
btnStudAdd.Visible = True
btnStudSave.Visible = False
End If
End If
End Sub