Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Thêm record cho bảng sử dụng lớp ado
#1
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./.
Chữ ký của dannynguyen1980 Xin chào, mình là dannynguyen1980, Tham gia http://thuthuataccess.com/forum từ ngày 14-09 -11.
Reply
Những người đã cảm ơn
#2
Thì bạn vào Table T_Danhsachkhach chỉnh trường SO_HC thành khóa chính là ok.

Mình có thắc mắc cái đoạn .Source = "select * from T_Danhsachdoituong"
Bạn nhập vào bảng T_Danhsachkhach hay là T_Danhsachdoituong
Chữ ký của domfootwear Xin chào Guest, nếu Guest biết thủ thuật nào thì nên chia sẻ cho cộng đồng nhé.
ღღღღღTài sản của domfootwear (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Noname , haquocquan
#3
(23-11-11, 01:50 PM)domfootwear Đã viết: Thì bạn vào Table T_Danhsachkhach chỉnh trường SO_HC thành khóa chính là ok.

Mình có thắc mắc cái đoạn .Source = "select * from T_Danhsachdoituong"
Bạn nhập vào bảng T_Danhsachkhach hay là T_Danhsachdoituong

Oh, xin lỗi mọi người!
Chính xác là: .Source = "select * from T_Danhsachkhach"
Chữ ký của dannynguyen1980 Xin chào, mình là dannynguyen1980, Tham gia http://thuthuataccess.com/forum từ ngày 14-09 -11.
Reply
Những người đã cảm ơn
#4
(23-11-11, 01:50 PM)domfootwear Đã viết: Thì bạn vào Table T_Danhsachkhach chỉnh trường SO_HC thành khóa chính là ok.

Mình có thắc mắc cái đoạn .Source = "select * from T_Danhsachdoituong"
Bạn nhập vào bảng T_Danhsachkhach hay là T_Danhsachdoituong

Xin lỗi domfootwear và mọi người, chính xác là: .Source = "select * from T_Danhsachkhach
Chữ ký của dannynguyen1980 Xin chào, mình là dannynguyen1980, Tham gia http://thuthuataccess.com/forum từ ngày 14-09 -11.
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Sử dụng Class Module và Kết nối dữ liệu SQL SERVER trong Access VBA lehongduc 61 21,020 18-06-17, 08:49 AM
Bài mới nhất: lehongduc
  Active sheet cuối của Excel bằng VBA Access vodainhan 23 1,025 15-05-17, 11:29 PM
Bài mới nhất: vodainhan
  Sử dụng Windows Media Player trên access victorkieu 3 320 02-05-17, 10:45 AM
Bài mới nhất: paulsteigel
  [Help] In bảng ra excell HoangManh 3 396 27-03-17, 09:24 PM
Bài mới nhất: maidinhdan
  Hướng Dẫn [Video] Hướng dẫn sử dụng Class Modules maidinhdan 2 264 20-03-17, 12:24 AM
Bài mới nhất: bvchauthanh

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ