Chủ đề: Lấy dữ liệu và xóa từ bảng động
-
06-09-2009, 04:53 AM #1
Silver member
- Ngày tham gia
- Sep 2015
- Bài viết
- 21
Lấy dữ liệu và xóa từ bảng động
Tôi có chương trình cần phải import file của các ngày trong tháng. Tôi đã làm ok rồi.VD như tháng 05/2009 : từ file CDVND20090501 đến file CDVND20090531.
Tôi làm hàm xóa các bảng trên như sau :
Public Function Xoadulieuthang()
Dim CSDL As DAO.Database
Dim rs As DAO.Recordset
Set CSDL = CurrentDb()
Dim i As Integer
Dim NgayLSDVDR, thangLSDVDR, namLSDVDR, str_ChuoiNgayThang As String
thangLSDVDR = CLng(InputBox("NhËp th¸ng cÇn lÊy sè liÖu", "Th«ng b¸o", CLng(Month(Now()) - 1)))
namLSDVDR = CLng(InputBox("NhËp th¸ng cÇn lÊy sè liÖu", "Th«ng b¸o", CLng(Year(Now()))))
NumDaysPerMonthLSDVDR = CLng(Format$(Day(DateSerial(namLSDVDR, thangLSDVDR + 1, 0))))
For i = 1 To NumDaysPerMonthLSDVDR
NgayLSDVDR = i
str_ChuoiNgayThang = CStr(namLSDVDR) & Right("0" & CStr(thangLSDVDR), 2) & Right("0" & CStr(NgayLSDVDR), 2)
CSDL.Execute "DROP TABLE 'CDVND' & str_ChuoiNgayThang"
Next i
End Function
Mặt khác, tôi muốn lấy số liệu của các bảng này để cho vào 01 bảng tôi làm sẵn nhưng không biết làm cách nào. Ai biết chỉ tôi với. Xin cảm ơn!View more random threads:
- Gán nút lệnh cho phím chức năng.
- Lỗi khi thêm dữ liệu vào CSDL Access
- Đăng nhập sai 5 lần chờ 15 phút
- nhờ giúp đỡ về form access
- Giúp mình vấn đề 2 người cùng sửa dữ liệu trên 1 bản ghi qua mạng Lan
- keycode phím # là thế nào vậy ạ?
- Nhờ trợ giúp về thuật toán đối chiếu công nợ
- Tài liệu Macro trong Access
- Hỏi về kiểu dữ liệu trong access
- Ðề: Cập nhật dữ liệu từ Form vào Table
-
06-09-2009, 05:03 AM #2
Silver member
- Ngày tham gia
- Sep 2015
- Bài viết
- 1
Ðề: Lấy dữ liệu và xóa từ bảng động
Gửi bởi haocaocu
Chú phải xài cái này nè:
DoCmd.DeleteObject acTable, "CDVND" & str_ChuoiNgayThang
-
06-09-2009, 05:22 AM #3
Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Lấy dữ liệu và xóa từ bảng động
Cảm ơn bác Phật. Chỗ ngày lễ em làm ok rồi.Em làm bằng code luôn không tạo bảng như anh nói. A chỉ dẫn cho e cách lấy số liệu từ các table đó với.
-----------------------------------------------------------------------------------------
Có cách nào kiểm tra 1 table trong database đã có tồn tại hay không?A chỉ e với
-
06-09-2009, 06:29 AM #4
Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Lấy dữ liệu và xóa từ bảng động
Gửi bởi haocaocu
Cái đoạn dưới, muốn kiểm tra một table có chưa thì:
Public Function TableExist(tablename As String) As Boolean
Dim tabdef As DAO.TableDefs, res As Boolean
res = False
For Each tabdef In TableDefs
If tabdef.Name = tablename Then
res = True
Exit For
End If
Next
TableExist = res
End Function
Hội y khoa giới tính thế giới định nghĩa xuất tinh sớm là tình trạng rối loạn xuất tinh của nam giới với đặc trưng luôn xuất tinh sớm hơn hoặc trong vòng một phút quan hệ. Bệnh nhân không có khả năng...
Tìm hiểu về loại thuốc dứt điểm bệnh "ra nhanh"