• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Tạo query inserts tables trong ms access

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Query
  • Tạo query inserts tables trong ms access
• Tạo query inserts tables trong ms access

• Tạo query inserts tables trong ms access

  quanghoasla > 20-05-11, 02:22 PM

  em có 1 tình huống sau đây em chưa làm được nhờ các anh /chị giúp đỡ.
  em có 3 table sau:đây là database download
  
  Table 1: hocvien
  
  Tt idsv tên namsinh
  1 Nva A
  2 hvb B
  3 dvc C
  Table2: diem
  
  Tt idsv monhoc
  1
  2
  3
  • table 1 quan hệ với table 2 khoá chính: idsv
  
  Table3: monhoc
  Tt idmon monhoc
  1 T Toán
  2 V Văn
  3 su sử
  4 sinh Sinh
  5 Dia Địa
  6 Anh Anh văn
  7 TD ThểDục
  8 Kĩcn Kĩ thuật CN
  9 Kinn Ki thuật NN
  10 GDCD Giáo dục công dân
  11 Ly Vật lý
  12 Hóa Hoá học
  
  Yêu cầu giải bài toán:
  - sử dung vba code/insertquery để cập nhập dữ liệu từ 2 tables 1 và tables 3: vào bảng 2( table 2) kết quả như sau:
  Table 2: diem ( kết quả sau khi chạy query hoặc vba code)
  Tt idsv monhoc
  1 Nva Toán
  2 Nva Văn
  3 Nva sử
  4 Nva Sinh
  5 Nva Địa
  6 Nva Anh văn
  7 Nva ThểDục
  8 Nva Kĩ thuật CN
  9 Nva Ki thuật NN
  10 Nva Giáo dục công dân
  11 Nva Vật lý
  12 Nva Hoá học
  13 hvb Toán
  14 hvb Văn
  15 hvb sử
  16 hvb Sinh
  17 hvb Địa
  18 hvb Anh văn
  19 hvb ThểDục
  20 hvb Kĩ thuật CN
  21 hvb Ki thuật NN
  22 hvb Giáo dục công dân
  23 hvb Vật lý
  24 hvb Hoá học
  25 dvc Toán
  26 dvc Văn
  27 dvc sử
  28 dvc Sinh
  29 dvc Địa
  30 dvc Anh văn
  31 dvc ThểDục
  32 dvc Kĩ thuật CN
  33 dvc Ki thuật NN
  34 dvc Giáo dục công dân
  35 dvc Vật lý
  36 dvc Hoá học

• RE: Tạo query inserts tables trong ms access

  quanghoasla > 20-05-11, 03:00 PM

  dạ xin bác noname và mọi người chỉ giáo. xin cảm ơn

• RE: Tạo query inserts tables trong ms access

  haquocquan > 20-05-11, 04:16 PM

  Bạn đưa dữ liệu kiểu này hơi rườm rà một chút.
  Bạn chạy đoạn code này chắc là OK.
  
  

  Mã:

  Dim rsHS as Recordset
Dim rsMH as Recordset
Dim rsDIEM as Recordset
Set rsHS = CurrentDb.OpenRecordset("hocvien")
Set rsMH = CurrentDb.OpenRecordset("monhoc")
Set rsDIEM = CurrentDb.OpenRecordset("diem", dbOpenDynaset)

rsHS.MoveFirst
Do Until rsHS.EOF
    rsMH.MoveFirst
    Do Until rsMH.EOF
       rsDIEM.AddNew
       rsDIEM!idsv = rsHS!idsv
       rsDIEM!monhoc = rsMH!monhoc
       rsDIEM.Update
    rsMH.MoveNext
    Loop
rsHS.MoveNext
Loop
rsHS.Close
rsMH.Close
rsDIEM.Close

  
  Hy vọng là bạn áp dụng được

• RE: Tạo query inserts tables trong ms access

  Noname > 20-05-11, 04:30 PM

  cột TT trong table diem của bạn nếu là số thứ tự sao không để nó là autonumber hay long mà là để là text nhỉ?
  
  Nếu là autonumber thì chỉ đơn giản thế này thôi
  

  Mã:

  sql1 = "INSERT INTO diem ( idsv, tenmon ) SELECT hocvien.idsv, monhoc.tenmon FROM hocvien, monhoc"
DoCmd.RunSQL sql1

• RE: Tạo query inserts tables trong ms access

  quanghoasla > 20-05-11, 05:14 PM

  Cám ơn các anh/ chị. theo cách anh chị chỉ cho em em đã làm được rồi ah. cả 2 cách của anh Noname và Anh Haquocquan đều hay cả. 2 cách này em đặt vào 1 form và set sự kiện onload form. chỉ sau 1 cái click là có kết quả ngay. vâng xin cảm ơn các anh/ chị nhé. chúc mọi người vui vẻ. thành đạt

• RE: Tạo query inserts tables trong ms access

  quanghoasla > 24-05-11, 11:39 AM

  có một vấn đề em muốn nhờ anh/ chị nào có cách nào để kiểm soát những recodes nào đã ghi vào sổ diem thì không cho ghi chỉ cập nhập cho những danh học viên mới nào chưa được tạo danh sách môn học ở table: monhoc?
  

• RE: Tạo query inserts tables trong ms access

  haquocquan > 24-05-11, 10:59 PM

  Bạn thử đoạn code này xem sao nhé:
  
  

  Mã:

  Dim SQLHS as String
Dim rsHS as Recordset
Dim rsMH as Recordset
Dim rsDIEM as Recordset
SQLHS = "SELECT hocvien.idsv from hocvien WHERE (((hocvien.idsv) Not In (SELECT diem.idsv FROM diem GROUP BY diem.idsv)))"
Set rsHS = CurrentDb.OpenRecordset(SQLHS)
Set rsMH = CurrentDb.OpenRecordset("monhoc")
Set rsDIEM = CurrentDb.OpenRecordset("diem", dbOpenDynaset)

if rshs.RecordCount>0 then
rsHS.MoveFirst
Do Until rsHS.EOF
    rsMH.MoveFirst
    Do Until rsMH.EOF
       rsDIEM.AddNew
       rsDIEM!idsv = rsHS!idsv
       rsDIEM!monhoc = rsMH!monhoc
       rsDIEM.Update
    rsMH.MoveNext
    Loop
rsHS.MoveNext
Loop
End if
rsHS.Close
rsMH.Close
rsDIEM.Close

  
  Bạn nên post file lên để mọi người hỗ trợ trực tiếp. Còn nếu không có file, chỉ là thuật toán thôi, không chạy thử được nên không biết có ổn không.

• RE: Tạo query inserts tables trong ms access

  quanghoasla > 27-05-11, 12:33 PM

  (24-05-11, 10:59 PM)haquocquan Đã viết: Bạn thử đoạn code này xem sao nhé:
  
  

  Mã:

  Dim SQLHS as String
Dim rsHS as Recordset
Dim rsMH as Recordset
Dim rsDIEM as Recordset
SQLHS = "SELECT hocvien.idsv from hocvien WHERE (((hocvien.idsv) Not In (SELECT diem.idsv FROM diem GROUP BY diem.idsv)))"
Set rsHS = CurrentDb.OpenRecordset(SQLHS)
Set rsMH = CurrentDb.OpenRecordset("monhoc")
Set rsDIEM = CurrentDb.OpenRecordset("diem", dbOpenDynaset)

if rshs.RecordCount>0 then
rsHS.MoveFirst
Do Until rsHS.EOF
    rsMH.MoveFirst
    Do Until rsMH.EOF
       rsDIEM.AddNew
       rsDIEM!idsv = rsHS!idsv
       rsDIEM!monhoc = rsMH!monhoc
       rsDIEM.Update
    rsMH.MoveNext
    Loop
rsHS.MoveNext
Loop
End if
rsHS.Close
rsMH.Close
rsDIEM.Close

  
  Bạn nên post file lên để mọi người hỗ trợ trực tiếp. Còn nếu không có file, chỉ là thuật toán thôi, không chạy thử được nên không biết có ổn không.

  -------------------------------------------------------------------------------------------------------------------------
  Xin chân thành cảm ơn anh haquocquan nhiều. em đã làm được rồi. em xin được chia sẻ data bài tập tình huống trên với mọi người cùng tham khảo. đây là data download
  

• RE: Tạo query inserts tables trong ms access

  quanghoasla > 27-05-11, 05:52 PM

  anh haquocquan ơi nếu em muốn thêm cả môn học mới add vào tables sổ điểm nữa sau khi cập nhập môn học ở sổ điểm nữa, cách lồng câu lệnh trong query sử dụng truy vấn not in như thế nào anh nhỉ?( vẫn áp dụng cho cái database cũ mà em post lên anh nhé)
  
• Bài trước Bài tiếp