Lệnh SQL kết hợp RunSQL trong VBA Access

Trong Microsoft Access, lệnh RunSQL được sử dụng để thực thi các câu lệnh SQL từ VBA (Visual Basic for Applications). Điều này cho phép bạn thực thi các câu lệnh SQL như UPDATE, DELETE, INSERT, hoặc SELECT trong Access mà không cần phải trực tiếp vào cửa sổ truy vấn.

Cú pháp của lệnh RunSQL trong VBA
Ví dụ về các câu lệnh SQL kết hợp với RunSQL

1. Cú pháp của lệnh RunSQL trong VBA

DoCmd.RunSQL SQLStatement

SQLStatement: Đây là chuỗi chứa câu lệnh SQL mà bạn muốn thực thi.

2. Ví dụ về các câu lệnh SQL kết hợp với RunSQL

Sử dụng RunSQL với câu lệnh UPDATE

Giả sử bạn muốn cập nhật mức lương của một nhân viên trong bảng Employees. Bạn có thể sử dụng RunSQL trong VBA để thực hiện câu lệnh UPDATE.

Dim SQL As String

    SQL = "UPDATE Employees SET Salary = 60000 WHERE EmployeeID = 5;"

    DoCmd.RunSQL SQL

Trong ví dụ này:

SQL là một chuỗi chứa câu lệnh SQL UPDATE để thay đổi mức lương của nhân viên có EmployeeID là 5 thành 60000.
Câu lệnh DoCmd.RunSQL SQL sẽ thực thi câu lệnh SQL này.

Sử dụng RunSQL với câu lệnh DELETE

Nếu bạn muốn xóa một bản ghi trong bảng Employees, bạn có thể sử dụng câu lệnh DELETE như sau:

Dim SQL As String

    SQL = "DELETE FROM Employees WHERE EmployeeID = 5;"

    DoCmd.RunSQL SQL

Trong ví dụ này:

Câu lệnh DELETE sẽ xóa bản ghi có EmployeeID là 5 khỏi bảng Employees.

Sử dụng RunSQL với câu lệnh INSERT

Nếu bạn muốn thêm một bản ghi mới vào bảng, bạn có thể sử dụng câu lệnh INSERT INTO:

Dim SQL As String

    SQL = "INSERT INTO Employees (EmployeeID, Name, Salary) VALUES (6, 'John Doe', 55000);"

    DoCmd.RunSQL SQL

Trong ví dụ này:

Câu lệnh INSERT INTO thêm một nhân viên mới vào bảng Employees với EmployeeID là 6, tên là 'John Doe', và mức lương là 55000.

Tìm kiếm: