Mã:
lsSQL = "SELECT SOCT " & _
"FROM DATA Order by SOCT DESC"
If rst.EOF Then
Msgbox "khong co du lieu"
Exit sub
Else
arr = rst.GetRows
End If
output_s = arr(0,0)Truy vấn cơ sở dữ liệu Access từ VBA excel
Các chủ đề trước đã trình bày: -Tạo file access có chứa mật khẩu, tạo table, tạo field. -Chú ý sự khác nhau giữa access 2007 và gần đây và acess2003 trở về trước. Trong chủ đề này, mình sẽ trình bày cách để kết nối với cơ sở dữ liệu và lấy thông tin từ nó. 1. Kết nối: Public cnn As New...
