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

Xoá các table theo điều kiện trong Access

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thư viện thủ thuật
  • Xoá các table theo điều kiện trong Access
• Xoá các table theo điều kiện trong Access

• Xoá các table theo điều kiện trong Access

  Noname > 15-08-10, 01:10 PM

  Hỏi: Tromg file MDB của em có nhiều table để lưu dữ liệu của các năm khác nhau. EM chỉ muốn lưu 3 năm gần nhất thôi. Ví dụ: năm nay là 2009, em chỉ cần lưu dữ liệu của 2007, 2008, 2009; năm tới 2010: chỉ lưu 2008, 2009, 2010.
  Em muốn tự khi lưu dữ liệu ngày đầu tiên của năm mới, thì table từ 3 năm về trước sẽ tự động bị xoá đi. Cụ thể: ngày 01/01/2010, em lưu dữ liệu thì table lưu dữ liệu của 2007 bị xoá đi.
  Đồng thời, em muốn xoá table với điều kiện nó tồn tại: Cụ thể: câu lệnh để thực hiện:
  Nếu tableA có trong MDB thì xoá tableA
  Các bác cho em xin đoạn code nhé
  
  Đáp:
  Mình gửi bạn 1 đoạn code xóa table:
  
  Code:
  
  

  Mã:

  Sub DelTable(T As String)
DoCmd.DeleteObject acTable, T

End Sub

  
  Bây giờ bạn có thể tạo 1 table với thông tin: tblTableInfo(tableName,TableDate)
  Ở đây bạn khai báo table nào thuộc năm nào.
  sau đó có thể gọi 1 sub xóa table cũ hơn 3 năm:
  
  Code:
  
  

  Mã:

  sub DelTable3yearOld()
Dim Db As Database, Rs As Recordset, sql1 as string
SQL1="select TableName from tblTableInfo where (year(date())-year(TableDate))>=3
Set Db = CurrentDb()
Set Rs = Db.OpenRecordset(SQL)
Do Until rs.EOF
  Deltable rs(0)
  rs.MoveNext
Loop

Rs.Close
set DB = Nothing
End Sub

  
  
  Nhớ lưu trước khi thử nghiệm nhé

• RE: Xoá các table theo điều kiện trong Access

  dannynguyen1980 > 10-11-11, 11:57 AM

  Bác cho hỏi luôn tôi có viết đoạn code sau để xóa bảng với điều khi bảng tồn tại trên database SQL Server 2000 (nối với Access 2003), khi gọi hàm DeleteTable không báo lỗi gì nhưng bảng cũng không xóa luôn. Code như sau:
  
  Option Compare Database
  Option Explicit
  
  
  Function DeleteTable(ByVal TableName As String) As Boolean
  
  'References: Microsoft Access 11.0 Object Library, Microsoft DAO 3.6 Object Library
  'Set references by Clicking Tools and Then References in the Code View window
  ' Deletes a Table with a given TableName that exists in a database
  ' Accepts
  ' TableName: Name of table
  ' Returns True on success, false otherwise
  'USAGE: DeleteTable "TABLENAME"
  
  
  On Error GoTo errhandler
  
  Dim Db As ADODB.Connection
  Dim strSql As String
  Set Db = CurrentProject.Connection
  
  'Create the Delte SQL Code from our Three Strings
  strSql = "DROP TABLE " & TableName
  
  If ifTableExists(TableName) = True Then
  
  'Print the SQL so we can paste into the query builder if there are errors
  Debug.Print strSql
  
  'delete table if found
  Db.Execute strSql
  End If
  
  'If no errors return true
  DeleteTable = True
  
  ExitHere:
  
  Set Db = Nothing
  'Notify the user the process is complete.
  MsgBox "Delete Table Completed"
  Exit Function
  
  errhandler:
  'There is an error return false
  DeleteTable = False
  
  With Err
  MsgBox "Error " & .Number & vbCrLf & .Description, _
  vbOKOnly Or vbCritical, "DeleteTable"
  End With
  
  Resume ExitHere
  
  End Function
  
  
  
  Function ifTableExists(TableName As String) As Boolean
  Dim rs As Recordset, Db As ADODB.Connection
  
  ' DAO Vars
  'References: Microsoft Access 11.0 Object Library, Microsoft DAO 3.6 Object Library
  'Set references by Clicking Tools and Then References in the Code View window
  'Checks if Table exists.
  'USAGE: ifTableExists "TABLENAME"
  
  On Error GoTo NoTable 'If there is no table capture the error.
  
  Set Db = CurrentProject.Connection
  
  'If Table is there open it
  Set rs = Db.OpenRecordset("Select * from " & TableName & ";")
  ifTableExists = True
  rs.Close
  Db.Close
  
  Exit Function
  NoTable:
  'If table is not there close out and set function to false
  Set rs = Nothing
  Db.Close
  Set Db = Nothing
  
  ifTableExists = False
  Exit Function
  End Function
  
  Mong bác chỉ giúp.
  Trân trọng cảm ơn!

• RE: Xoá các table theo điều kiện trong Access

  Noname > 10-11-11, 12:09 PM

  Bạn có thể nói rõ ADODB.Connection ...là trỏ tới đâu không? Bạn đã có connect lấy dữ liệu ra..hoặc làm gì được tương tự với SQL server chưa?

• RE: Xoá các table theo điều kiện trong Access

  dannynguyen1980 > 10-11-11, 02:24 PM

  (10-11-11, 12:09 PM)Noname Đã viết: Bạn có thể nói rõ ADODB.Connection ...là trỏ tới đâu không? Bạn đã có connect lấy dữ liệu ra..hoặc làm gì được tương tự với SQL server chưa?

  Cảm ơn Noname đã quan tâm đến thắc mắc của tôi.
  Theo tôi hiểu ADODB.Connection ... trỏ tới CurrentProject. Còn vấn đề connect để lấy dữ liệu hoặc làm gì khác với SQL Server thì tôi chưa thử!
  Tôi chỉ mới biết nếu thay:
  Dim Db As ADODB.Connection
  .
  .
  .
  Set Db = CurrentProject.Connection
  bằng
  Dim Db as DAO.Database
  .
  .
  .
  Set Db = CurrentDb()
  trong đoạn code trên và dùng 1 nút lệnh để Call Funtion DeleteTable thì chạy rất ngon lành cành đào trên database của Access.
  
  demo ở đây: http://www.mediafire.com/?j2nnvhogz9m9u5u
  
  Trân trọng./.
  
  

• RE: Xoá các table theo điều kiện trong Access

  Noname > 10-11-11, 03:15 PM

  (10-11-11, 02:24 PM)dannynguyen1980 Đã viết:

  (10-11-11, 12:09 PM)Noname Đã viết: Bạn có thể nói rõ ADODB.Connection ...là trỏ tới đâu không? Bạn đã có connect lấy dữ liệu ra..hoặc làm gì được tương tự với SQL server chưa?

  Cảm ơn Noname đã quan tâm đến thắc mắc của tôi.
  Theo tôi hiểu ADODB.Connection ... trỏ tới CurrentProject. Còn vấn đề connect để lấy dữ liệu hoặc làm gì khác với SQL Server thì tôi chưa thử!
  Tôi chỉ mới biết nếu thay:
  Dim Db As ADODB.Connection
  .
  .
  .
  Set Db = CurrentProject.Connection
  bằng
  Dim Db as DAO.Database
  .
  .
  .
  Set Db = CurrentDb()
  trong đoạn code trên và dùng 1 nút lệnh để Call Funtion DeleteTable thì chạy rất ngon lành cành đào trên database của Access.
  
  demo ở đây: http://www.mediafire.com/?j2nnvhogz9m9u5u
  
  Trân trọng./.

  Mình hỏi vậy để chắc rằng kết nối của bạn không có vấn đề gì!
  Nếu là current project, tức là nội bộ của file Access thì không vấn đề. Nhưng yêu cầu của bạn là xóa table trên SQL server. Vì vậy, còn tùy thuộc vào nhiều yếu tố như permission... nếu bạn thử được các tác vụ thêm sửa xóa thì mới tính tiếp.
  

• RE: Xoá các table theo điều kiện trong Access

  dannynguyen1980 > 11-11-11, 07:24 PM

  Mình đã thử rồi vẫn thêm, sửa, xóa table trên SQL Server từ Access bằng cách khác (del, copy & paste, rename) bình thường.
  Tức cái là chạy không báo lỗi gì mà table thì không xóa thôi.

• RE: Xoá các table theo điều kiện trong Access

  Noname > 11-11-11, 08:09 PM

  Cho hỏi có phải bạn dùng Access Project không? Vì như Code của bạn thì không có liên quan gì với SQL server cả! Không thể thao tác gì được với SQL server bằng code đó trừ khi bạn đang dùng MS Access Project (vốn đã có sẵn connection)

• RE: Xoá các table theo điều kiện trong Access

  Noname > 11-11-11, 08:19 PM

  Nếu bạn đang dùng Access Project hoặc dùng 1 kết nối với SQL server qua ADO thì thử dùng code này xem
  

  Mã:

  Function DeleteTable(strTableName As String) As Boolean
    
    Dim cmd As ADODB.Command
    Dim strCommand As String
    Dim Conn As ADODB.Connection
    On Error GoTo DeleteTable_Error
    Set Conn = CurrentProject.Connection
    strCommand = "DROP TABLE " & strTableName
   'Delete Table
    Set cmd = New ADODB.Command
    cmd.ActiveConnection = Conn
    cmd.CommandText = strCommand
    cmd.CommandType = adCmdText
    cmd.Execute    
    DeleteTable = True
Set Conn = Nothing
Set cmd = Nothing
Exit Function
DeleteTable_Error:
        MsgBox Err.Number & "-" & Error$, vbCritical, "Error...Error...Error"
        Set Conn = Nothing
        Set cmd = Nothing
End Function

• RE: Xoá các table theo điều kiện trong Access

  dannynguyen1980 > 12-11-11, 02:56 PM

  Cảm ơn bác Noname! Tôi đã xóa table được rồi. Dưới đây là đoạn mã kiểm tra điều kiện table tồn tại mà tôi sưu tầm được:
  Public Function IfTableExists(strTableName As String) As Boolean
  
  Dim cn As ADODB.Connection
  Dim rs As New ADODB.Recordset
  
  IfTableExists = False
  Set cn = CurrentProject.Connection
  Set rs = cn.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "Table"))
  Do While Not rs.EOF
  If rs(2).Value = strTableName Then
  IfTableExists = True
  rs.MoveNext
  Loop
  Set rs = Nothing
  cn.Close
  Set cn = Nothing
  End Function
  
  Cho hởi trước đây bác học viết code này ở đâu vậy? Tôi cũng muốn đăng ký học thêm vài khóa về lập trình mà chưa biết học ở đâu?!
• Bài trước Bài tiếp