Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Name der Datenbank aus ODBC-Verbindung auslesen??
Autor: Druschba
Datum: 27.02.02 12:53
Hallo, ich müsste den tatsächlichen Namen einer Datenbank aus einer ODBC-Verbindung auslesen, z.B. 'DATEN.mdb". Nachfolgende Prozedur aus "Datenbankprogrammierung mit Visual Basic6" liest aber den ODBC-Namen der DB aus, 'DB-Data' ...des langt nicht... Wer kann mir helfen??? Erstmal vielen, vielen Dank für jeden Tip! *!DRUSCHBA!* Dim ok As Boolean Dim DataBaseName$ Dim i%, connItems As Variant connItems = Split(connection, ";") For i = LBound(connItems) To UBound(connItems) If connItems(i) Like "Data Source=*" Then DataBaseName = Mid(connItems(i), Len("data source=") + 1) Exit For End If Next On Error GoTo connection_error Dim access As Object connection_zweiterVersuch: If access Is Nothing Then Set access = GetObject(DataBaseName) End If connection_error: ok = MsgBox("Es ist ein Fehler aufgetreten: " & Error & vbCrLf & _ vbCrLf & "Verbindungsaufbau wiederholen?", vbYesNo) Set access = Nothing If ok = vbYes Then GoTo connection_zweiterVersuch Else Exit Sub End If

Name der Datenbank aus ODBC-Verbindung auslesen??

79

Druschba

27.02.02 12:53

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