Zdroj: Software 602 a.s. | Testováno: ANO |
Zdroj: Software 602 a.s. | Testováno: ANO |
Option Explicit ' ************************************ ' Nezapomeňte nastavit odkaz na ' Microsoft DAO Object Library ' Nabídka Project příkaz References... ' ************************************ ' Deklarace proměnných Dim db As Database Dim tbl As TableDef Dim fld As Field Private Sub VypsatJmenaPoli() ' Otevření databáze Set db = DBEngine.OpenDatabase("F:\Shark.mdb") ' Odkaz na tabulku v databázi Set tbl = db.TableDefs("tblCustomer") ' Výpis jmen polí do seznamu ' lstSeznamPoli - ovládací prvek ListBox For Each fld In tbl.Fields lstSeznamPoli.AddItem fld.Name Next fld ' Uzavření databáze db.Close ' Vyprázdnění proměnných Set fld = Nothing Set tbl = Nothing Set db = Nothing End SubTestováno a odladěno: Visual Basic 6.0 Enterprise Edition, mělo by fungovat i ve starších verzích a v MS Office 97/2000.
Zdroj: Štěpán Bechyňský, server www.builder.cz | Testováno: NE |