| 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 Sub
Testovß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 | |