tạo user và pass
Ở đây mình xin hướng dẫn bạn các tạo user và pass thông qua ngôn ngũ lập trình VBA:
Để tạo user và pass đầu tiên bạn phải tạo một form gồm 2 Text Box :là
+Textuser:là tài khoản
+Textpass 2:là mật khẩu.
và một nút bấm(tên là cmdLogin) :ví dụ như đăng nhập.
Sau đây là mã nguồn của nút bấm là :
Mã:
Private Sub cmdLogin_Click()
Dim rs As Recordset ' Khai báo biến rs là một record
'Sau đây là truy vấn vào table User lấy ra Username và thục hiện so sánh để có kết quả
Set rs = CurrentDb.OpenRecordset("select * from User where Username='" & txtUser.Value & "'") Lệnh SQL nghĩa là: lấy tất cả(*) dữ liệu trong table User với điều kiện(where) là textuser phải bằng trường username trong bản table
If Not rs.EOF Then
Dim pass As String
pass = rs.Fields("Password")
If (pass <> txtPass.Value) Then
MsgBox "Nhap sai pass"
Else
'Cho này bạn muốn mở form nào thì mở!
End If
Else
MsgBox "Nhap sai username"
End If
End Sub
Có gì không hiểu hỏi tiếp nha
Thank cái nha.