Thêm record cho bảng sử dụng lớp ado
dannynguyen1980 > 23-11-11, 10:35 AM
Tôi có đoạn mã dưới đây dùng để thêm các trường (field) HO_HC( số hộ chiếu), Ho_Ten(họ tên), NGAY_SINH (ngày sinh), GIOI_TINH(giới tính), VIET_KIEU(việt kiều), TEN_QGIA_V (tên quốc gia) vào bảng T_Danhsachkhach dùng ADO. Mời các bạn tham khảo:
----------------------------------------
Private Sub CmdAdd_Click()
On Error Resume Next
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
Dim SO_HC As String, Ho_Ten As String, NGAY_SINH As Date, GIOI_TINH As String, VIET_KIEU As String, TEN_QGIA_V As String
SO_HC = InputBox ("Nhap so ho chieu")
Ho_Ten = InputBox ("Nhap ho ten")
NGAY_SINH = InputBox ("Nhap ngay sinh")
GIOI_TINH = InputBox ("Nhap gioi tinh")
VIET_KIEU = InputBox ("Co phai Viet kieu?")
TEN_QGIA_V = InputBox ("Nhap quoc tich")
With rst
Set .ActiveConnection = CurrentProject.Connection
.Source = "select * from T_Danhsachdoituong"
.CursorLocation = adUseServer
rst.LockType = adLockOptimistic
.CursorType = adOpenKeyset
.Open
.AddNew
.Fields("SO_HC") = SO_HC
.Fields("Ho_Ten") = Ho_Ten
.Fields("NGAY_SINH") = NGAY_SINH
.Fields("VIET_KIEU") = VIET_KIEU
.Fields("TEN_QGIA_V") = TEN_QGIA_V
.Update
.Requery
Me.Refresh
End With
rst.Close
Set rst = Nothing
Exit Sub
End Sub
------------------------------------------------------------
Xin hỏi cách bổ sung thêm điều kiện khi nhập vào số hộ chiếu (SO_HC) chương trình sẽ kiểm tra:
1/ Trường hợp 1: Nếu tồn tại số hộ chiếu trong bảng T_Danhsachkhach thì không cho nhập các trường còn lại.
2/ Trường hợp 2: Nếu chưa tồn tại thì tiếp tục nhập.
Mong được các bạn chia sẽ kinh nghiệm.
Trân trọng./.