Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

adSchemaTables+TABLE_CATALOG
Autor: metaxa
Datum: 26.08.02 12:29
Hallo Leute Ich möchte den CatalogNamen in eine Textbox ausgeben, die Tabellenauflistung habe ich schon irgendwie hingekriegt, aber ich möchte jetzt auch als Info einfach mal auch die Datenbank anzeigenlassen, hier mein Code wenn jemand helfenkann, bin ich sehr dankbar natürlich. '// Eigener Code Anfang Private Sub Form_Load() On Error GoTo FindErr Dim i As Integer Set strConn = New ADODB.Connection strConn.CursorLocation = adUseClient ' Abfragezeichenfolge, für StringConnection strQ = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & App.Path & "Kursanmeldung.mdb" strConn.Open strQ Set objTable = strConn.OpenSchema(adSchemaTables) ' fülle die ComboBox mit den Tabellen aus der Datenbank ' nach auswahl der Tabelle ist sie die Datenquelle für mein DataGrid ' die SystemTabellen sollen nicht angezeigt werden 'daher die überprüfung auf MSys While Not objTable.EOF If Not InStr(1, objTable("TABLE_NAME"), "MSys") = 1 Then Me.cmbTabellen.AddItem objTable("TABLE_NAME") End If objTable.MoveNext Wend ' hier versuche ich den Datenbanknamen in eine TextBox einzufügen ' was bisjetzt nicht geklappt hat Me.txtDatenbank = objTable("TABLE_CATALOG").Name '// EIGENER CODE ENDE Danke und cu. metaxa

adSchemaTables+TABLE_CATALOG

50

metaxa

26.08.02 12:29

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen