Đánh giá chủ đề:
  • 7 Votes - 3.86 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Lấy về số seri CPU, ổ cứng MainBoard trong Access
#21
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é.
Chữ ký của DoquangLam Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#22
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ả ?
Chữ ký của DoquangLam Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#23
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 !
Chữ ký của DoquangLam Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#24
(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ả!

Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#25
(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.
Chữ ký của haquocquan Guest, you are welcome!
ღღღღღTài sản của haquocquan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#26
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?
Chữ ký của nguyenhungcuong Học - Hỏi - Hiểu - Hành
Reply
Những người đã cảm ơn
#27
(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!


File đính kèm
.zip   Laythongso.zip (Kích cỡ: 14.55 KB / Tải về: 12)
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#28
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 
Chữ ký của nguyenhungcuong Học - Hỏi - Hiểu - Hành
Reply
Những người đã cảm ơn
#29
(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!
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#30
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
Chữ ký của nguyenhungcuong Học - Hỏi - Hiểu - Hành
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Thủ Thuật] Ẩn record trong table theo ngày tháng tvn_hut 6 485 24-04-16, 01:00 AM
Bài mới nhất: tvn_hut
  Thuộc tính Startup MS Access toàn tập với VBA Noname 2 2,730 18-04-16, 04:50 PM
Bài mới nhất: ongke0711
  Hàm đọc số dùng mã Unicode trong Access Noname 28 11,693 23-03-16, 11:45 PM
Bài mới nhất: thiennamlong
  [Thủ Thuật] Hỏi_Xác định phiên bản Access đang dùng maidinhdan 1 375 18-12-15, 08:43 AM
Bài mới nhất: ongke0711
Star Code tạo Serial, License Key cho Access nguoilinh229 3 500 06-11-15, 02:07 PM
Bài mới nhất: kieu manh

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ