Fotografický magazín "iZIN IDIF" každý týden ve Vašem e-mailu.
Co nového ve světě fotografie!
Zadejte Vaši e-mailovou adresu:
Kamarád fotí rád?
Přihlas ho k odběru fotomagazínu!
Zadejte e-mailovou adresu kamaráda:
Visual Basic
Načtení dat z Accessu do ComboBoxu
30. září 1998, 00.00 | Tip do Visual Basicu pro výběr tabulky z databáze..
Následující kód slouží k načtení jmen tabulek z databáze Access do rozbalovacího seznamu (ComboBox), aby si uživatel mohl vybrat, kterou tabulku z databáze chce otevřít.comTabulky - ovládací prvek ComboBox JmenoDatabaze - proměnná String, cesta k souboru s databází dbData - ovládací prvek Data
Privat Sub NactiTabulky() ' Otevření databáze Set db = DBEngine.Workspaces(0).OpenDatabase(JmenoDatabaze) ' Přiřadí jméno databáze ovladacímu prvku dbData.DatabaseName = JmenoDatabaze ' Načtení tabulek For i = 0 To db.TableDefs.Count - 1 ' Systémové tabulky začínají MS - jsou vynechány If Left(db.TableDefs(i).Name, 2) <> "MS" Then comTabulky.AddItem db.TableDefs(i).Name End If Next i End Sub 'Handler události pro comTabulky Private Sub comTabulky_Click() ' Vybraná tabulka ze seznamu se nastaví jako vlastnost RecordSource ' ovládacího prvku Data dbData.RecordSource = comTabulky.List(comTabulky.ListIndex) End Sub
Testováno a odladěno: Visual Basic 5.0 Learning edition
Diskuse k článku
-
25. listopadu 2012
-
30. srpna 2002
-
10. října 2002
-
4. listopadu 2002
-
12. září 2002
-
25. listopadu 2012
-
28. července 1998
-
31. července 1998
-
28. srpna 1998
-
6. prosince 2000
-
27. prosince 2007
-
4. května 2007