-
RE: Lấy về số seri CPU, ổ cứng MainBoard trong Access
maidinhdan > 08-06-16, 05:50 PM
(08-06-16, 05:44 PM)nguyenhungcuong Đã viết: Bạn có thể xem lại giúp mình được, vì nó báo lỗi ở rs.Update
File Demo tôi gửi cho bạn bị lỗi hay file bạn tự làm bị lỗi.
Nếu file của bạn lỗi hãy Gửi file bạn lên đây hoặc gửi vào mail của mình
Học từ cái mình bị lỗi sẽ tiến bộ hơn học từ code người khác viết.
Nếu mình viết chắc chắn nó sẽ chạy ầm ầm, như rồi kinh nghiệm ấy lại thuộc về mình.
=> Bạn lỗ rồi đấy, hihi
-
RE: Lấy về số seri CPU, ổ cứng MainBoard trong Access
nguyenhungcuong > 08-06-16, 07:34 PM
Cám ơn bạn, mình thực hành cả buổi cũng đã tìm ra lỗi rồi. do trong table mình đánh thiếu chữ. -
RE: Lấy về số seri CPU, ổ cứng MainBoard trong Access
nguyenhungcuong > 08-06-16, 07:38 PM
bạn cho mình hỏi thêm:
Mình muốn chương trình tự động thêm thông tin CPU, HDD, Main vào "tblThongtin" thì làm thế nào? -
RE: Lấy về số seri CPU, ổ cứng MainBoard trong Access
maidinhdan > 08-06-16, 11:23 PM
-
RE: Lấy về số seri CPU, ổ cứng MainBoard trong Access
thanhtruong > 15-05-18, 05:20 PM
(08-06-16, 10:17 AM)maidinhdan Đã viết:
(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ục đích load lên textbox đã tạoMã PHP:Private Sub Form_Load()
Me.txtHDD = ThongsoHDD()
End Sub
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!
Mình chỉ cần lấy tên máy thôi. hay là IP thì làm thế nào -
RE: Lấy về số seri CPU, ổ cứng MainBoard trong Access
maidinhdan > 16-05-18, 09:18 PM
(15-05-18, 05:20 PM)thanhtruong Đã viết: Mình chỉ cần lấy tên máy thôi. hay là IP thì làm thế nào
Tạo 1 modules mới và chèn code này vào
Mã PHP:Private Declare Function apiGetComputerName Lib "kernel32" _
Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Function Laytenmaytinh() As String
'Returns the computername
Dim lngLen As Long, lngX As Long
Dim strCompName As String
lngLen = 16
strCompName = String$(lngLen, 0)
lngX = apiGetComputerName(strCompName, lngLen)
If lngX <> 0 Then
Laytenmaytinh = Left$(strCompName, lngLen)
Else
Laytenmaytinh = ""
End If
End Function
Mã PHP:Function LayIP()
Dim objWMIService As Object
Dim colItems As Object
Dim itm As Object
Set objWMIService = GetObject("winmgmts:\root\cimv2")
Set colItems = objWMIService.ExecQuery _
("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
For Each itm In colItems
LayIP = LayIP & itm.Properties_("IPAddress")(0) ' & vbCrLf
Next
End Function
Bước 2. ở sự kiện Form Load của form nào đó bạn gọi code này là ok