coba skrip ini (DAO) kalo ado kurang lebih sama kok

Dim dbTemp As DAO.Database
Dim tbl As TableDef


    On Error Resume Next
    Set dbTemp = OpenDatabase("C:\Temp.mdb")
    
    For Each tbl In dbTemp.TableDefs
        
        If tbl.Attributes = 0 Then dbTemp.Execute "DROP TABLE [" & tbl.Name & 
"]"
    
    Next tbl
    
    
    Set dbTemp = Nothing




  ----- Original Message ----- 
  From: [EMAIL PROTECTED] 
  To: [email protected] 
  Sent: Wednesday, June 20, 2007 9:36 AM
  Subject: [indoprog-vb] Delete tabel di database MDB



  Vb Mania,
  Mohon bantuannya, bagaimana caranya/ script delete table yg ada di database
  MDB dari Vb?
  Roles program yg saya buat adl pertama bikin temporari table untuk bantuan
  proses dan selanjutnya table tsb di hapus setelah proses selesai.
  Mohon maaf bila telah dibahas seblumnya

  Salam
  IBNU MUAKHORI
  Client Data Warehouse Officer
  PT Asuransi Jiwa Manulife Indonesia
  Phone  : +62-21-23559966 - EXT. 1821
  Fax      : +62-21-3911393 / 543
  Mobile   : 021-70889063



   

[Non-text portions of this message have been removed]

Kirim email ke