Jak odstranit tabulku z databáze pomocí jazyka

Překlady článku Překlady článku
ID článku: 110959 - Produkty, které se vztahují k tomuto článku.
Rozbalit všechny záložky | Minimalizovat všechny záložky

Na této stránce

Souhrn

Tento článek popisuje odstranění tabulky z databáze pomocí pro Windows Professional Edition aplikace Visual Basic verze 3.0.

Tento postup funguje pro databázi, která je v nativním formátu databáze aplikace. Nepatrné změny jej bude také pracovat s databází aplikace Access.

Další informace

Odstranění tabulky z databáze Microsoft Access v aplikaci Visual Basic, použijte některou z následujících metod:

  • Otevřete databázi jazyka data Manager vyberte tabulku a zvolte tlačítko Odstranit. Můžete spustit program Správce dat, v nabídce Okno příkaz jazyka nebo ze souboru správce systému Windows (spuštění v adresáři jazyka DATAMGR.EXE) Odstranění tabulky z libovolného typu databáze podporována jazyka.
  • Použít níže uvedené tabulky odstranit program jazyka ukázkové databáze pomocí objektové proměnné.
  • Otevřete databázi v aplikaci Access, vyberte tabulku a zvolte odstranit z nabídky Úpravy.
Upozornění: Při odstranění tabulky dat uložených v této tabulce také odstraněny. Pokud chcete zachovat data v tabulce, kterou chcete odstranit, zápis jazyka aplikace před odstraněním existující tabulku zkopírovat data do nové tabulky.

Pokud chcete odstranit všechny záznamy v tabulce a nadále zachovat TableDef definice tabulky, můžete provést příkaz SQL odstranit metody Execute. Například:
   Dim db as database
   Set db=OpenDatabase("testing.mdb")
   db.Execute "Delete From BadTable"
				

Ukázkový program

  1. Spuštění nového projektu v jazyka. Jako výchozí je vytvořen formulář Form1.
  2. Přidat následující kód události Load formuláře:
       Sub Form_Load ()
    
          Dim db As database
          Dim tds As TableDefs
          form1.Show  ' Must Show form in Load event for Print to be visible.
          form1.WindowState = 2   ' Maximize Form1 to make room for table list.
          sourcedb = "c:\VB3\BIBLIO.MDB"  ' Original master database.
          destdb = "C:\TEST.MDB"     ' Path to database with table to delete.
          tabletodelete = "Authors"
          FileCopy sourcedb, destdb  ' Use copy of database; preserve original.
          Set db = OpenDatabase(destdb)
          Set tds = db.TableDefs     ' Open the TableDefs collection.
    
          ' Display names of all tables in database:
          For j = 0 To tds.Count - 1
             Print tds(j).Name
          Next
          Print
    
          ' Delete a table. (This deletes the TableDef and all records):
          tds.Delete tabletodelete
          ' or use:   db.TableDefs.Delete tabletodelete
    
          ' If you want to delete all records and still preserve the TableDef
          ' table definition, use the following instead of the above Delete:
          ' db.Execute "Delete From " & tabletodelete
    
          ' Display names of all tables in database:
          Print "List of tables after deleting one table:": Print
          For j = 0 To tds.Count - 1
             Print tds(j).Name
          Next
    
       End Sub
    						
  3. Spuštění programu nebo stisknutím klávesy F5. Program zobrazí seznam všech tabulek v databázi před a po odstranění tabulky. Zavřete formulář program ukončit.
Můžete také potvrdit, že v tabulce byl odstraněn z databáze otevřením databáze TEST.MDB pomocí dat správce dodávané s jazyka nebo bude.

Hierarchie objektů databáze

Objekt hierarchie v horní části databáze je objekt databáze nebude zaměňovat s vlastnost databáze řízení dat. Vlastnosti objektu databáze je kolekce TableDefs, což je také objekt. Kolekce TableDefs představuje všechny jednotlivé TableDef objekty přidružené tabulky objektů, včetně veškeré připojené externí tabulky. Objekty TableDef každý reprezentují strukturu nebo metadata tabulky.

Každý objekt TableDef se skládá z vlastností. Například vlastnost název poskytuje název tabulky. Vlastnosti pole a indexy objekt TableDef jsou kolekce dva objekty přístup další data, objekt pole a objekt index. Další informace naleznete v nabídce Visual Basic.

Další příklady datových

VISDATA.MAK projektu, které je nainstalován v adresáři VB3\SAMPLES\VISDATA poskytuje rozsáhlými příklady přístup k datům. Ukázkový program VISDATA používá funkci přístup všech dat v jazyka. Odkazovat na zdrojový kód VISDATA příklady ukazují, jak použít funkci přístup každého data.

Vlastnosti

ID článku: 110959 - Poslední aktualizace: 9. ledna 2003 - Revize: 1.1
Informace v tomto článku jsou určeny pro produkt:
  • Microsoft Visual Basic 3.0 Professional Edition
Klíčová slova: 
kbmt KB110959 KbMtcs
Strojově přeložený článek
Důležité: Tento článek byl přeložen pomocí software společnosti Microsoft na strojový překlad, ne profesionálním překladatelem. Společnost Microsoft nabízí jak články přeložené překladatelem, tak články přeložené pomocí software na strojový překlad, takže všechny články ve Znalostní databázi (Knowledge Base) jsou dostupné v češtině. Překlad pomocí software na strojový překlad ale není bohužel vždy dokonalý. Obsahuje chyby ve skloňování slov, skladbě vět, nebo gramatice, podobně jako když cizinci dělají chyby při mluvení v češtině. Společnost Microsoft není právně zodpovědná za nepřesnosti, chyby nebo škody vzniklé chybami v překladu, nebo při použití nepřesně přeložených instrukcí v článku zákazníkem. Společnost Microsoft aktualizuje software na strojový překlad, aby byl počet chyb omezen na minimum.
Projděte si také anglickou verzi článku:110959
Právní omezení pro obsah znalostní báze týkající se produktů, jejichž podpora byla ukončena
Tento článek byl napsán o produktech, pro které společnost Microsoft již neposkytuje nadále podporu. Článek je tedy nabízen v takovém stavu, v jakém je, a nebude již nadále aktualizován.

Dejte nám zpětnou vazbu

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com