Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Tìm kiếm và hiển thị danh sách Table hiện có trong Database lên form !
#1
tmtien261 1 nhờ các Pro chỉ giáo thêm:

Tôi có 2 table1, table2 và 1 form1 để hiển thị. Xin hỏi có cách nào (bằng code hoặc ...) mà khi mở form1 lên trên form1 sẽ hiển thị danh sách các Table đang có trong Database. Nếu thêm table mới thì form1 sẽ Update vào danh sách để hiển thị lên form1.
Chữ ký của Minh Tiên -----------------------------------------------
Đường tuy ngắn, không đi không đến
Việc tuy nhỏ, không làm không nên.
                                           Tuân Tử
-----------------------------------------------
Reply
Những người đã cảm ơn
#2
Chủ đề này tmtien261 đã hỏi rất lâu rồi nhưng ko ACE nào trả lời giúp. Giờ mình đã mày mò trên diễn đàn và đã tạm thời làm được rồi.
Nay mình xin chia sẽ cho các ACE muốn làm như mình.
Demo
Thân chào !
Chữ ký của Minh Tiên -----------------------------------------------
Đường tuy ngắn, không đi không đến
Việc tuy nhỏ, không làm không nên.
                                           Tuân Tử
-----------------------------------------------
Reply
Những người đã cảm ơn
#3
Chủ đề này tmtien261 đã hỏi rất lâu rồi nhưng ko ACE nào trả lời giúp. Giờ mình đã mày mò trên diễn đàn và đã tạm thời làm được rồi.
Nay mình xin chia sẽ cho các ACE muốn làm như mình.
Demo_LayDanhsachTenTable_TrongDatabase
Thân chào !
Chữ ký của Minh Tiên -----------------------------------------------
Đường tuy ngắn, không đi không đến
Việc tuy nhỏ, không làm không nên.
                                           Tuân Tử
-----------------------------------------------
Reply
Những người đã cảm ơn
#4
"Đơn giản" như "đan rổ". Bạn không cần cầu kỳ như vậy, chỉ cần lưu ý tới table hệ thống của Database là OK. Và cũng chẳng cần DBEngine làm chi cho tốn hao. Chỉ cần như thế này là đủ

Mã PHP:
Private Sub btnLaytenTable_Click()
    
Dim rs As Recordset
    Set rs 
CurrentDb.OpenRecordset("tblDanhSach_Table"dbOpenTable)
    
Dim i As Integer
    
For 0 To CurrentDb.TableDefs.Count 1
        
If Left(CurrentDb.TableDefs(i).Name4) <> "MSys" Then
            rs
.AddNew
            rs
.Fields(0) = CurrentDb.TableDefs(i).Name
            rs
.Update
        End 
If
    
Next
    Me
.Requery
End Sub 

Tạo form như của bạn và đặt nguồn cho form là table tblDanhSach_Table
Quá đơn giản, đúng không nào
Thân mến
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Minh Tiên


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Hỏi] Tại saoform không hiện thị được dấu phân cách hàng ngàn thanhhao 1 34 Hôm qua, 04:29 PM
Bài mới nhất: tranthanhan1962
  Lấy dữ liệu từ 2 subform trong Mainform thanhtruong 39 1,461 10-06-17, 08:22 AM
Bài mới nhất: thanhtruong
  [Hỏi] Vấn đề về form field "String too long" lỗi “Run-time error '4609' vuthaiha90 9 354 02-06-17, 10:04 AM
Bài mới nhất: binlaxanh
Sad Refresh form không được William 5 161 01-06-17, 04:50 PM
Bài mới nhất: cpucloi
  Câu lệnh nào ẩn button trong form? William 1 66 01-06-17, 04:26 PM
Bài mới nhất: cpucloi

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ơ