Đánh giá chủ đề:
  • 7 Votes - 3.86 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Lấy về số seri CPU, ổ cứng MainBoard trong Access
#31
(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
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
#32
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ữ.
Chữ ký của nguyenhungcuong Học - Hỏi - Hiểu - Hành
Reply
Những người đã cảm ơn
#33
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?
Chữ ký của nguyenhungcuong Học - Hỏi - Hiểu - Hành
Reply
Những người đã cảm ơn
#34
(08-06-16, 07:38 PM)nguyenhungcuong Đã viết: 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?

Thay vì tạo nút click bạn đưa cú pháp đó chèn vào sự kiện của Form Load.

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
#35
(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ã 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!

Mình chỉ cần lấy tên máy thôi. hay là IP thì làm thế nào
Chữ ký của thanhtruong Xin chào, mình là thanhtruong, Tham gia http://thuthuataccess.com/forum từ ngày 23-06 -14.
Reply
Những người đã cảm ơn
#36
(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 StringnSize 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
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


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Thủ Thuật] DeMo dùng ADODB để kết nối dữ liệu Excel và Access Xuân Thanh 3 206 15-08-18, 11:30 PM
Bài mới nhất: NguyenDungAnh
  DBEngine và Workspace trong việc truyền tải dữ liệu giữa hai Database Xuân Thanh 8 262 12-08-18, 08:29 PM
Bài mới nhất: Xuân Thanh
  [Help] Giá trị trùng trong report vulhu06 1 532 14-07-18, 09:03 PM
Bài mới nhất: hoaqldd33
  Tắt Security warning của Access Noname 4 6,494 14-07-18, 08:14 PM
Bài mới nhất: hoaqldd33
  [Hỏi] Câu lệnh đóng tất cả các tab đang mở trong access mrtoanbin 3 192 29-05-18, 06:20 PM
Bài mới nhất: ongke0711

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ơ| PMA Nha Trang| Gỗ Acrylic Không Đường Line