PDA

View Full Version : خواند عکس



majidsoft
سه شنبه 31 شهریور 1388, 11:18 صبح
با سلام
query خواندن عکس از دیتابیس را می خواستم
با تشکر

Asad.Safari
سه شنبه 31 شهریور 1388, 11:57 صبح
عکس به چه صورتی در دیتابیس ذخیره شده است ؟

majidsoft
سه شنبه 31 شهریور 1388, 13:48 عصر
با سلام
این کد برای ذخیره کل اطلاعات است گزینه آخر مربوط به عکس است

Dim Cnn As SqlConnection = Fn_Get_SqlConnection()
Dim Cmd As New SqlCommand("spinsert_information", Cnn)
Dim ms As New MemoryStream
picbox.Image.Save(ms, picbox.Image.RawFormat)
Dim arrimage() As Byte = ms.GetBuffer
Dim param As SqlParameter
Cmd.CommandType = Data.CommandType.StoredProcedure
param = Cmd.Parameters.Add("@code", Data.SqlDbType.BigInt)
param.Value = Val(txtcode.Text)
param = Cmd.Parameters.Add("@card", Data.SqlDbType.BigInt)
param.Value = Val(txtcard.Text)
param = Cmd.Parameters.Add("@fname", Data.SqlDbType.NVarChar, 50)
param.Value = Trim(txtname.Text)
param = Cmd.Parameters.Add("@lname", Data.SqlDbType.NVarChar, 50)
param.Value = Trim(txtfamily.Text)
param = Cmd.Parameters.Add("@faname", Data.SqlDbType.NVarChar, 50)
param.Value = Trim(txtfather.Text)
param = Cmd.Parameters.Add("@sh", Data.SqlDbType.BigInt)
param.Value = Val(txtsh.Text)
param = Cmd.Parameters.Add("@vahed", Data.SqlDbType.NVarChar, 50)
param.Value = Trim(covahed.Text)
param = Cmd.Parameters.Add("@semat", Data.SqlDbType.NVarChar, 50)
param.Value = Trim(cosemat.Text)
param = Cmd.Parameters.Add("@usern", Data.SqlDbType.NVarChar, 50)
param.Value = Trim(txtuser.Text)
param = Cmd.Parameters.Add("@pass", Data.SqlDbType.Int)
param.Value = Val(txtpass.Text)
param = Cmd.Parameters.Add("@grade", Data.SqlDbType.Int)
param.Value = Val(cmbgrade.Text)
param = Cmd.Parameters.Add("@aks", Data.SqlDbType.Image)
param.Value = arrimage
Cnn.Open()
Cmd.ExecuteNonQuery()
Cnn.Close()

ASKaffash
چهارشنبه 01 مهر 1388, 15:24 عصر
سلام
با یک Select ساده :
Select ImageField From MyTable Where ... بعد در C# باید Cast شود