Nhân dịp có SV hỏi về vấn đề này, tôi viết ví dụ demo để các em SV hiểu rõ hơn
sử dụng recordset làm chỗ chứa
em định sử dụng recordset làm chỗ chứa dữ liệu (không kết nối với database). em muốn hỏi cách sử dụng như thế nào ạ (cách sử dụng câu lệnh thêm cột, thêm dữ liệu)
Đào Anh Tài fido_sad_1991@
Option Explicit
Dim Rs As New ADODB.Recordset
Private Sub Form_Load()
' Dinh nghia cau truc truong trong RecordSet
Rs.Fields.Append "Ma", adVarChar, 10, adFldKeyColumn
Rs.Fields.Append "Hoten", adVarWChar, 23
Rs.Fields.Append "Ngaysinh", adDate
' Mo RecordSet ( khong chi dinh ket noi hay truy van)
Rs.Open
' Them ban ghi
Rs.AddNew
Rs("Ma") = "A"
Rs("Hoten") = "Nguyen van An"
Rs("Ngaysinh") = Date
Rs.AddNew
Rs("Ma") = "B"
Rs("Hoten") = "Nguyen van B"
Rs("Ngaysinh") = Date
' Hien len DataGrid de xem
Set DataGrid1.DataSource = Rs
End Sub
Private Sub Form_Resize()
DataGrid1.Top = 0
DataGrid1.Left = 0
DataGrid1.Width = Me.ScaleWidth
DataGrid1.Height = Me.ScaleHeight
End Sub