PDA

Vollständige Version anzeigen : Darstellung Alle der Namen/titeln der Spalten von ms Acess Tabellen


robin88
20.05.2001, 20:28
Hi.... Freunde,

weisst vielleicht jemand von euch wie kann man alle Namen/Caption der Spalten von ms Access Tabelle (*.mdb files) im Data ComboBox/oder anderem Container in VB6 darstellen??? Wobei alle Titeln oder Namen der Spalten von einer Tabelle der Ms Acess dateien in diesem Data Combobox dargestellt werden koennen.

Vielen Dank

Stefan Kulpa
21.05.2001, 08:10
Hallo,

mittels DAO geht's wie folgt:

<PRE><FONT SIZE=1 FACE=Courier New> <FONT COLOR=#000080>Dim</FONT> sDbPath <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>String</FONT>
<FONT COLOR=#000080>Dim</FONT> objWks <FONT COLOR=#000080>As</FONT> DAO.Workspace
<FONT COLOR=#000080>Dim</FONT> objDbs <FONT COLOR=#000080>As</FONT> DAO.Database
<FONT COLOR=#000080>Dim</FONT> objTbl <FONT COLOR=#000080>As</FONT> DAO.TableDef
<FONT COLOR=#000080>Dim</FONT> objFld <FONT COLOR=#000080>As</FONT> DAO.Field

<FONT COLOR=#008000>'// Pfad zur Datenbank bestimmen.</FONT>
sDbPath = "C:\WINNT\MyDatabase.mdb"
<FONT COLOR=#008000>'// Microsoft Jet Workspace-Objekt erstellen.</FONT>
<FONT COLOR=#000080>Set</FONT> objWks = CreateWorkspace("", "Admin", "", dbUseJet)
<FONT COLOR=#008000>'// Microsoft Jet Datenbank-Objekt erstellen.</FONT>
<FONT COLOR=#000080>Set</FONT> objDbs = objWks.OpenDatabase(sDbPAth, <FONT COLOR=#000080>True</FONT>)
<FONT COLOR=#008000>'// Microsoft Jet Tabellen-Objekt erstellen.</FONT>
<FONT COLOR=#000080>Set</FONT> objTbl = objDbs.TableDefs("MyTable")
<FONT COLOR=#008000>'// In einer Schleife alle Felder abfragen.</FONT>
<FONT COLOR=#000080>For</FONT> Each objFld In objTbl.Fields
<FONT COLOR=#008000>'// Testausgabe der Feldnamen.</FONT>
Debug.<FONT COLOR=#000080>Print</FONT> objFld.Name
<FONT COLOR=#008000>'// Combobox mit Feldnamen füllen.</FONT>
Combo1.AddItem objFld.Name
<FONT COLOR=#000080>Next</FONT>

</FONT></PRE>

wobei es sich bei den von Dir genannten Spalten um die Feldnamen der Tabelle handelt.

Gruß