behrooz69
دوشنبه 07 مهر 1393, 02:30 صبح
سلام دوستان و اساتید گرامی.
من تو برنامم یه بخشی دارم به اسم ثبک کاربران . که تو فیلداش عکس کاربر هم هستش که از نوع VarBinary گرفتمش .
ثبت میکنم بدون مشکل.
تا اینجاش درست ؟
ولی موقع فراخوانی یا Select از Sql به مشکل خوردم .
'/// search data & pic from sql db /// Try
If TxtShomareOzviyat.Text.Length > 0 Then
cmd = New SqlCommand()
cmd.Connection = con
cmd.CommandText = "SELECT Name,LastName,FatherName,Jensiyat,TarikhTavalod,Co deMeli,VaziyatTaahol,Tell,Mobile,Shoghl,Tahsilat,T arikhOzviyat,Address,Tozihat,Pic FROM TblOzviyat WHERE(ShomareOzviyat=@ShomareOzviyat)"
cmd.Parameters.Add("@ShomareOzviyat", SqlDbType.NVarChar, 10).Value = TxtShomareOzviyat.Text
con.Open()
Dim sReader As SqlDataReader = cmd.ExecuteReader()
If sReader.Read() Then
TxtName.Text = sReader.GetValue(0).ToString()
TxtLastName.Text = sReader.GetValue(1).ToString()
TxtFatherName.Text = sReader.GetValue(2).ToString()
CboJensiyat.Text = sReader.GetValue(3).ToString()
TxtTarikhTavalod.Text = sReader.GetValue(4).ToString()
TxtCodeMeli.Text = sReader.GetValue(5).ToString()
TxtVaziyatTaahol.Text = sReader.GetValue(6).ToString()
TxtTell.Text = sReader.GetValue(7).ToString()
TxtMobile.Text = sReader.GetValue(8).ToString()
TxtShoghl.Text = sReader.GetValue(9).ToString()
TxtTahsilat.Text = sReader.GetValue(10).ToString()
TxtTarikhOzviyat.Text = sReader.GetValue(11).ToString()
TxtAddress.Text = sReader.GetValue(12).ToString()
TxtTozihat.Text = sReader.GetValue(13).ToString()
If con.State = ConnectionState.Open Then
Dim arrPic() As Byte = CType(ds.Tables("TblOzviyat") _
.Rows(0).Item("Pic"), Byte())
Dim ms As New MemoryStream(arrPic)
Me.PicBoxAx.Image = Image.FromStream(ms)
con.Close()
'con.Dispose()
con.Close()
'AllTxtEnable()
Else : MessageBox.Show("پیدا نشد")
End If
End If
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
اینم کدم فیلد های متنی رو Select میکنه ولی تو عکس مشکل دارم . ممنون میشم کمکم کنید .
راستی کدش توی Update Sql رو لطف کنید بگید .
با سپاس پیشاپیش .
من تو برنامم یه بخشی دارم به اسم ثبک کاربران . که تو فیلداش عکس کاربر هم هستش که از نوع VarBinary گرفتمش .
ثبت میکنم بدون مشکل.
تا اینجاش درست ؟
ولی موقع فراخوانی یا Select از Sql به مشکل خوردم .
'/// search data & pic from sql db /// Try
If TxtShomareOzviyat.Text.Length > 0 Then
cmd = New SqlCommand()
cmd.Connection = con
cmd.CommandText = "SELECT Name,LastName,FatherName,Jensiyat,TarikhTavalod,Co deMeli,VaziyatTaahol,Tell,Mobile,Shoghl,Tahsilat,T arikhOzviyat,Address,Tozihat,Pic FROM TblOzviyat WHERE(ShomareOzviyat=@ShomareOzviyat)"
cmd.Parameters.Add("@ShomareOzviyat", SqlDbType.NVarChar, 10).Value = TxtShomareOzviyat.Text
con.Open()
Dim sReader As SqlDataReader = cmd.ExecuteReader()
If sReader.Read() Then
TxtName.Text = sReader.GetValue(0).ToString()
TxtLastName.Text = sReader.GetValue(1).ToString()
TxtFatherName.Text = sReader.GetValue(2).ToString()
CboJensiyat.Text = sReader.GetValue(3).ToString()
TxtTarikhTavalod.Text = sReader.GetValue(4).ToString()
TxtCodeMeli.Text = sReader.GetValue(5).ToString()
TxtVaziyatTaahol.Text = sReader.GetValue(6).ToString()
TxtTell.Text = sReader.GetValue(7).ToString()
TxtMobile.Text = sReader.GetValue(8).ToString()
TxtShoghl.Text = sReader.GetValue(9).ToString()
TxtTahsilat.Text = sReader.GetValue(10).ToString()
TxtTarikhOzviyat.Text = sReader.GetValue(11).ToString()
TxtAddress.Text = sReader.GetValue(12).ToString()
TxtTozihat.Text = sReader.GetValue(13).ToString()
If con.State = ConnectionState.Open Then
Dim arrPic() As Byte = CType(ds.Tables("TblOzviyat") _
.Rows(0).Item("Pic"), Byte())
Dim ms As New MemoryStream(arrPic)
Me.PicBoxAx.Image = Image.FromStream(ms)
con.Close()
'con.Dispose()
con.Close()
'AllTxtEnable()
Else : MessageBox.Show("پیدا نشد")
End If
End If
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
اینم کدم فیلد های متنی رو Select میکنه ولی تو عکس مشکل دارم . ممنون میشم کمکم کنید .
راستی کدش توی Update Sql رو لطف کنید بگید .
با سپاس پیشاپیش .