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
nguyenhungcuong > 08-06-16, 07:34 PM
nguyenhungcuong > 08-06-16, 07:38 PM
maidinhdan > 08-06-16, 11:23 PM
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!
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
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
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