Dwadaw

em đang dùng con emachines d730z !!! cpu intel@pentium p6100 2.0Ghz.... card màng hình: intel@ HD GRAPHICS.....RAM 3gb.... dùng hệ đều hành windows 8.1 enterprise

- bây giờ em muốn nâng cấp con cpu lên cho nó mạnh 1 chúc chứ "pé" này nó rùa quá.....

-vậy em có thể nâng cấp lên loại cpu nào là phù hợp với socket main của dòng máy này? với loại này có nâng cấp card màng hình được không ah. ?

-EM XIN CẢM ƠN RẤT NHIỀU

-tình hình là em viết chương trình đề tài quản lý nhân viên nhưng khi đưa hình ảnh vào trong sql rồi nhưng tới khi xuất thì tất cả các thông tin đều xuất ra chĩ có phần hình ảnh nó không xuất được, và cũng chẵng báo cáo lỗi hay gì hết .....rất mông các pro giúp em với...bên dưới là code của em.(định dạng hình ảnh trong sql là: image) .em xin cảm ơn!!!!

Imports System.Data.SqlClient

Imports System.Data.SqlClient.SqlException

Imports System.IO

Imports System.Drawing.Image

Public Class THEMNV

Private Ket_noi As SqlConnection

Private bang_doc As SqlDataReader

Private WithEvents danh_sach As BindingManagerBase

Private Sub THEMNV_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim CHUOI_KET_NOI As String = "Data Source=LOCALHOST;Initial Catalog=dangnhap;Integrated Security=True"

Ket_noi = New SqlConnection(CHUOI_KET_NOI)

XUAT_DANH_SACH()

danh_sach_PositionChanged(sender, e)

End Sub

Private Sub xuat_danh_sach()

Dim LENH As String = "SELECT * FROM NHANVIEN"

Dim BO_LENH As New SqlCommand(LENH, Ket_noi)

Ket_noi.Open()

Dim bang_doc As SqlDataReader = BO_LENH.ExecuteReader

Dim bang_NHAN_VIEN As New DataTable("NHANVIEN")

bang_NHAN_VIEN.Load(bang_doc, LoadOption.OverwriteChanges)

Ket_noi.Close()

LUOI.DataSource = bang_NHAN_VIEN

danh_sach = Me.BindingContext(bang_NHAN_VIEN)

End Sub

Private Sub xuat_danh_sach_NHAN_VIEN()

TXTMANV.Text = danh_sach.Current("MANV")

TXTTEN.Text = danh_sach.Current("TENNV")

TXTQUEQUAN.Text = danh_sach.Current("QUEQUAN")

TXTCHUCVU.Text = danh_sach.Current("CHUCVU")

TXTNGAY.Text = danh_sach.Current("NGAYNHANVIEC")

TXTNAMSINH.Text = danh_sach.Current("NAMSINH")

TXTLUONG.Text = danh_sach.Current("BACLUONG")

'xuat ảnh

PTANH.Image = LoadFile(CType(danh_sach.Current("hinhanh"), Byte()))

End Sub

Private Sub danh_sach_PositionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles danh_sach.PositionChanged

xuat_danh_sach_NHAN_VIEN()

End Sub

'HINH ẢNH

Private Function ReadFile(ByVal sFileName As String) As Byte()

Dim fs As System.IO.FileStream = New System.IO.FileStream(sFileName, System.IO.FileMode.OpenOrCreate, System.IO.FileAccess.Read)

Dim rs() As Byte = New Byte(fs.Length) {}

fs.Read(rs, 0, System.Convert.ToInt32(fs.Length))

fs.Close()

Return rs

End Function

' Dùng để convert mảng byte thành image

Private Function LoadFile(ByVal bHinh() As Byte) As System.Drawing.Image

Dim ms As New System.IO.MemoryStream(bHinh)

Dim bm As New System.Drawing.Bitmap(ms)

ms.Close()

Return bm

End Function

Private Sub btloadanh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btloadanh.Click

OpenFileDialog1.Filter = "tập tin hình ảnh | *. gif, *. jpg, *. png, *. bmp"

OpenFileDialog1.Filter = "Image Files|*.gif;*.jpg;*.png;*.bmp"

If OpenFileDialog1.ShowDialog = DialogResult.OK Then

TXTLINK.Text = OpenFileDialog1.FileName

PTANH.Image = Image.FromFile(OpenFileDialog1.FileName)

MsgBox("BẠN PHÃI CHỌN CHÍNH XÁC NGƯỜI CẦN CHÈN ẢNH VÀ SAU ĐÓ ẤN THÊM ẢNH!", MsgBoxStyle.Information, "CHÚ Ý")

End If

End Sub

Private Sub BTTHEMANH_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTTHEMANH.Click

Dim CNString As String = "Data Source=LOCALHOST;Initial Catalog=dangnhap;Integrated Security=True"

'Dim CNString As String = "Provider= Microsoft.Jet.OLEDB.4.0;Data Source =" + Application.StartupPath + "\data.mdb;"

Dim cn As New SqlConnection(CNString)

cn.Open()

Dim strSQL As String = "Update NHANVIEN set HINHANH='" & TXTLINK.Text & "' where MANV = '" & Trim(TXTMANV.Text) & "'"

Dim cm As New SqlCommand(strSQL, cn) ' Biến cn là một SqlConnection và bạn nhớ Open trước nhé.

cm.Parameters.Add("HINHANH", SqlDbType.Image).Value = ReadFile(TXTLINK.Text)

'MsgBox("cau lenh" + strSQL)

MessageBox.Show("Đã lưu !")

cm.ExecuteNonQuery()

xuat_danh_sach()

End Sub

tôi có 1 số ngãi đen cần bán:

-võ giống cũ gừng nhưng cũ nhõ hơn chĩ bằng "cũ gừng đẹt" thôi. có muồi thơm diệu tựa như gừng nhưng ngữi 1 lúc thì thấy ko phãi, giống giống thuốc bắc, ngữi lâu hơi choán đầu 1 chúc.ruột cũa cũ màu đen tím giống như trái " màng tơi". tôi đã thữ bắt nữa lon gạo lên nấu là bõ vào thữ 1 nhúm " củ ngãi đen " đã xắc mõng vào luôn, khi cơm chín thì cơm màu thâm tựa như là :đậu đen đem đi luột rồi hấp cơm vậy...đây là số cũ dc bà con ỡ bên "miên" cung cấp cho chứ ỡ vn thì bó tay....

- vậy nay em có nhu cầu bán số cũ này ai có nhu cầu mua(số lượng ko giới hạn) liên hệ theo địa chĩ mail :thanhhop_chieumuabuon_o0o@yahoo.com. sdt:01696729965. (liên hệ bằng mail sẽ ok hơn,dt tôi hay hết pin và cúp nguồn lắm)

-giá cả thương lượng,buôn bán lâu dài.....

-chúc bà con có 1 kì nghĩ lễ vui vẽ

http://img600.imageshack.us/img600/9466/cvno.jpg

-tôi là 1 người : cao ráo , đẹp zai, phong độ, phẫm chất tốt học giõi và chăm chĩ,nói chuyện có duyên nữa..nói chung thì số đừa sánh với tôi hơi bị ít.

-nhưng ko hiễu tại sao tôi lại "ko biết hát" mặc dầu tôi nói rất hay nhiều người khen như vậy.tôi đã cố tập nhưng ô thôi nó zỡ hơn chữ zỡ. mỗi khi bạn bè hay đồng nghiệp rũ đi hát karaoke là tôi như thằng "ngáo" tụi nó không chọc tôi nhưng cứ nhìn liếc liếc cười cười (mấy quã này ko đi ko dc) :( tôi ngượn đõ mặt nhưng ko biết phãi làm sao ?

- kính mong các cao thũ chĩ dạy, giúp tôi thoát khõi cái hoàng cãnh éo le này(cãi thiện giọng hát), xin cãm ơn nhiều! vui lòng trã lời thật lòng nhá ,ko tôi sẽ cắm spam đó!