• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Lấy về số seri CPU, ổ cứng MainBoard trong Access

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thư viện thủ thuật
  • Lấy về số seri CPU, ổ cứng MainBoard trong Access
• Lấy về số seri CPU, ổ cứng MainBoard trong Access

• RE: Lấy về số seri CPU, ổ cứng MainBoard trong Access

  DoquangLam > 02-04-11, 11:49 AM

  Chào các bạn !
  Mình đã thực hiện code lấy thông tin ổ cứng như ở trên rồi, mỗi lần mình cài lại Win (Phiên bản khác), ổ cứng thì không thay đổi thì thông tin ổ cứng lại là số khác. Như vậy là sao, mong các bạn giải thích và có cách giải quyết dùm nhé.

• RE: Lấy về số seri CPU, ổ cứng MainBoard trong Access

  DoquangLam > 03-04-11, 08:42 PM

  Noname ơi, giải thích dùm mình với, Mình chỉ thay đổi main thôi, cài lại win, nhưng khi lấy thông tin ổ cứng thì không có gì cả ?

• RE: Lấy về số seri CPU, ổ cứng MainBoard trong Access

  DoquangLam > 22-04-11, 11:38 PM

  Code lấy thông tin ổ cứng mà noname đã viết mình ứng dụng vào một số máy thì thấy :
  - Một số ít máy không lấy được thông tin ổ cứng.
  - Nếu những máy cài hoặc ghost 1 bản win giống nhau thì thông tin ổ cứng giống nhau.
  Như vậy là như thế nào, mình chưa hiểu, mong các bạn giải đáp giúp nhé. Cám ơn !

• RE: Lấy về số seri CPU, ổ cứng MainBoard trong Access

  Noname > 23-04-11, 12:33 AM

  (22-04-11, 11:38 PM)DoquangLam Đã viết: Code lấy thông tin ổ cứng mà noname đã viết mình ứng dụng vào một số máy thì thấy :
  - Một số ít máy không lấy được thông tin ổ cứng.
  - Nếu những máy cài hoặc ghost 1 bản win giống nhau thì thông tin ổ cứng giống nhau.
  Như vậy là như thế nào, mình chưa hiểu, mong các bạn giải đáp giúp nhé. Cám ơn !

  
  Có lẽ là do các bản win khác nhau, họ dùng các drive khác nhau. Vì thế mà các đại gia phần mềm chưa thấy ai dùng cách căn cứ vào phần cứng để kiểm tra license cả!
  
  

• RE: Lấy về số seri CPU, ổ cứng MainBoard trong Access

  haquocquan > 23-04-11, 02:19 PM

  (22-04-11, 11:38 PM)DoquangLam Đã viết: - Nếu những máy cài hoặc ghost 1 bản win giống nhau thì thông tin ổ cứng giống nhau.

  
  Theo mình được biết, thì:
  - Các bản WIN đều có trình tự động nhận ổ cứng sau khi cài đặt xong,
  - Khi bạn chạy bản GHOST, nếu file DRIVER ổ cứng không thay đổi (do tương tự mà), thì thông tin ổ cứng vẫn thế.
  - GHOST chỉ tạo cho bạn bản BACKUP cơ bản để tiện trong phục hồi, còn để FULL thì phải REINSTALL thôi.

• RE: Lấy về số seri CPU, ổ cứng MainBoard trong Access

  nguyenhungcuong > 07-06-16, 07:23 PM

  Các bạn cho mình hỏi:
  - Mình muốn đưa các thông tin như: CPU, Ổ cứng, Main Board ( Demo Lấy về số seri CPU, ổ cứng MainBoard trong Access ) từ form vào table  thì làm như thế nào?

• RE: Lấy về số seri CPU, ổ cứng MainBoard trong Access

  maidinhdan > 08-06-16, 10:17 AM

  (07-06-16, 07:23 PM)nguyenhungcuong Đã viết: Các bạn cho mình hỏi:
  - Mình muốn đưa các thông tin như: CPU, Ổ cứng, Main Board ( Demo Lấy về số seri CPU, ổ cứng MainBoard trong Access ) từ form vào table  thì làm như thế nào?

  
  Trả lời:
  
  1. Tạo 1 table; tên là tblthongso
  2. Tạo 1 form có: 1 textbox ( tạm gọi txtHDD) + 1 nút command (cmdcapnhat)
  3. Tao 1 modules Viết hàm lấy thông số: ở đây mình lấy Thông số Ổ cứng.
  

  Mã PHP:

   Function ThongsoHDD() As String
    Dim fsObj   As Object
    Dim drv     As Object
    Set fsObj = CreateObject("Scripting.FileSystemObject")
    Set drv = fsObj.Drives("C")
    ThongsoHDD = Hex(drv.serialnumber)
End Function 


  
  * Một số việc cần làm nửa.
  1. Mở form lên vào chèn vào sự kiện load form cú pháp sau
  

  Mã PHP:

  Private Sub Form_Load()
Me.txtHDD = ThongsoHDD()
End Sub 


  Mục đích load lên textbox đã tạo
  
  2. Tạo nút nhấn chèn vào table
  
  

  Mã PHP:

  Private Sub cmdCapnhat_Click()
    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset("tblThongtin", dbOpenDynaset)
        rs.AddNew
        rs!HDD = Me.txtHDD
        rs.Update
        rs.Close
    MsgBox "Da cap nhat", vbInformation, "Thong bao"
End Sub 


  
  
  Đính kèm Demo
  
  Thân!

• RE: Lấy về số seri CPU, ổ cứng MainBoard trong Access

  nguyenhungcuong > 08-06-16, 02:17 PM

  Cám ơn bạn. Bạn cho mình hỏi thêm là:
  Mình muốn chèn thêm CPUID và Main Board vào table thì đoạn code sau đây sửa thế nào?
  
  1. Mở form lên vào chèn vào sự kiện load form cú pháp sau
  Mã PHP:
  Private Sub Form_Load()
  Me.txtHDD = ThongsoHDD()
  End Sub 
  Mục đích load lên textbox đã tạo
  
  2. Tạo nút nhấn chèn vào table
  
  Mã PHP:
  Private Sub cmdCapnhat_Click()
      Dim rs As Recordset
      Set rs = CurrentDb.OpenRecordset("tblThongtin", dbOpenDynaset)
          rs.AddNew
          rs!HDD = Me.txtHDD
          rs.Update
          rs.Close
      MsgBox "Da cap nhat", vbInformation, "Thong bao"
  End Sub 
  

• RE: Lấy về số seri CPU, ổ cứng MainBoard trong Access

  maidinhdan > 08-06-16, 04:00 PM

  (08-06-16, 02:17 PM)nguyenhungcuong Đã viết: Cám ơn bạn. Bạn cho mình hỏi thêm là:
  Mình muốn chèn thêm CPUID và Main Board vào table thì đoạn code sau đây sửa thế nào?

  
  Bạn không chịu đọc kỹ bài viết của mình,
  
  Bạn muốn hiện cái gì thì Tạo thêm textbox và hàm của cái đó.
  
  Mình giải thích đoạn dưới đây cho bạn rõ hơn
  
  Bươc1:
  
  

  Mã:

  Private Sub Form_Load()
Me.txtHDD = ThongsoHDD()
End Sub

  
  Me.txtHDD : là cái textbox sẽ hiện khi chạy form, bạn muốn hiện main thì làm thêm và đặt tên cho nó
  ThongsoHDD() : là một hàm viết trong Modules lấy thông số của ổ cứng, bạn muốn hiện Main thì viết hàm lấy thông số main
  
  Bước 2. Tạo nút nhấn chèn vào table
  
  
  
  

  Mã:

  Private Sub cmdCapnhat_Click()

    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset("tblThongtin", dbOpenDynaset) ' Truy xuất đến table Thông tin bằng rs'
        rs.AddNew   ' Tạo mới record
        rs!HDD = Me.txtHDD   ' rs!HDD là tên cột trong tableThong tin, còn [color=#333333]Me.txtHDD tên textbox trong form'

        ' Nếu muốn thêm cột nào nửa thì chèn thêm lệnh ở đây'
        ' giải sử trong table có cột là Main và trên form có textbox là txtMain, ta viết như sau'
        rs!Main = Me.txtMain

        rs.Update  ' Nạp vào table'
        rs.Close ' Ngắt kết nối
    MsgBox "Da cap nhat", vbInformation, "Thong bao"
End Sub

  
  
  Thân mến!

• RE: Lấy về số seri CPU, ổ cứng MainBoard trong Access

  nguyenhungcuong > 08-06-16, 05:44 PM

  Bạn có thể xem lại giúp mình đoạn code của mình sai ở đâu ko:
  
  B1: [b]Private Sub Form_Load()[/b]
  [b]Me.txtCPUID = ThongsoCPU() nó báo lỗi ở đây
  Me.txtHDD = ThongsoHDD()[/b]
  [b]Me.txtMain = ThongsoMain()
  End Sub[/b]
  
  [b]B2: [/b]Private Sub cmdCapnhat_Click()
  
      Dim rs As Recordset
      Set rs = CurrentDb.OpenRecordset("tblThongtin", dbOpenDynaset) 
          rs.AddNew  
          rs!CPUID = Me.txtCPUID
          rs!HDD = Me.txtHDD   
               rs!Main = Me.txtMain
  
          rs.Update  ' Nó báo lỗi ở đây nữa bạn'
          rs.Close 
      MsgBox "Da cap nhat", vbInformation, "Thong bao"
  End Sub
• Bài trước Bài tiếp