Načtení dat z Accessu do ComboBoxu - Builder.cz - Informacni server o programovani

Odběr fotomagazínu

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

 

Vložit nový příspěvek   Sbalit příspěvky

 

Zatím nebyl uložen žádný příspěvek, buďte první.

 

 

Vložit nový příspěvek

Jméno:

Pohlaví:

,

E-mail:

Předmět:

Příspěvek:

 

Kontrola:

Do spodního pole opište z obrázku 5 znaků:

Kód pro ověření

 

 

 

 

Nejčtenější články
Nejlépe hodnocené články

 

Přihlášení k mému účtu

Uživatelské jméno:

Heslo: