Search  

   

Latest News  

Problemstellung:Wenn man Etiketten drucken will steht man oft vor einigen Problemen.1. Man möchte nur ein paar Etiketten drucken und beim nächsten Druck braucht man wieder   ein neues Blatt weil freie...
   

Latest Forumposts  

  • Keine Beiträge vorhanden
   

Kommentare  

Tut mir leid Hella, ich kann Dir nicht folgen? 13.04.2017 - 14.04.2017 ergibt bei mir 1 13.04.2017 -...
Gast - Hella
Hallo, Berechne wie folgt, ob "zu früh" oder "zu spät" Rückmeldet. Früher sollte auch mit negativer ...
Gast - Hella
Hallo, mit negativen Werten meine ich z.B. -5 Tage (ohne Wochenende) u.ä. Zur Zeit wird nur die 0 au...
Hallo Hella, wie negative Werte? Kannst Du es erläutern was Du machen willst? Gruß Tommy
Gast - Hella
Hallo, ich bräuchte auch negative Werte bei der Anzahl, wie kann man das realisieren? Liebe Grüße He...
   

Counter  

1115633
HeuteHeute118
GesternGestern1114
Diese WocheDiese Woche2364
Dieser MonatDieser Monat23845
GesamtGesamt1115633
Highest 07.12.2017 : 1250
US
UNITED STATES
US

This page uses the IP-to-Country Database provided by WebHosting.Info (http://www.webhosting.info), available from http://ip-to-country.webhosting.info

   

Download Statistik  

Diese Site enthält 187 Downloads in 30 Kategorien. Gesamtdownloads bisher: 234326
   
Free live stats and visitor counter for Joomla, Wordpress, Drupal, Magento and Prestashop
   

Login

   

User Online

Total: 87 Members: 0 Guests: 87
No members online
   

Beiträge

DB-Objekt in einer fremden DB ermitteln

Bewertung:  / 1
SchwachSuper 
Details

Problemstellung:

Wie ermittle ich ein DB-Objekt in einer fremden DB?

Public Function ForeignExistObject(strDBPfad As String, _ 
                                   strObjektname As String, _ 
                                   Typ As Integer, _ 
                                   Optional strPasswort As String = "") _ 
                                   As Boolean 
'******************************************* 
'Name:      ForeignExistObject (Function) 
'Purpose:   ermittelt ob ein Objekt in einer anderen DB existiert 
'Author: 
'Date: 
'Inputs:    Objektname = Name des Objektes, Typ = ObjektTyp, 
'           strPasswort=DB-Kennwort 
'Output: 
'******************************************* 
On Error GoTo Err 
    Dim wsp As DAO.Workspace 
    Dim db As DAO.Database 
    Dim rs As Recordset 
    Dim ObjTyp As Integer 
    Dim strPWD As String 
    strPWD = ";pwd=" & strPasswort 
    Set wsp = DBEngine.Workspaces(0) 
    Set db = wsp.OpenDatabase(strDBPfad, False, False, strPWD) 
    ForeignExistObject = False 
    Select Case Typ 
      Case 0: ObjTyp = 1      'Tabellen 
      Case 1: ObjTyp = 5      'Abfragen 
      Case 2: ObjTyp = -32768 'Formulare 
      Case 3: ObjTyp = -32764 'Berichte 
      Case 4: ObjTyp = -32766 'Makro 
      Case 5: ObjTyp = -32761 'Module 
      Case 6: ObjTyp = 6      'eingebundene Tabellen 
      Case 7: ObjTyp = 4      'eingebundene ODBC-Tabellen 
      Case 8: ObjTyp = -32756 'Datenzugriffseite 
    End Select 
    Set rs = dba.OpenRecordset("SELECT Name, Type FROM MSysObjects " & _ 
                               "WHERE Name = '" & Objektname & "' " & _ 
                               "AND   Type = " & ObjTyp) 
    If Not rs.EOF Then rs.MoveLast 
    ForeignExistObject = IIf(rs.RecordCount = 0, False, True) 
    rs.Close 
    Set rs = Nothing 
    db.Close 
    Set db = Nothing 
  
ExitHere: 
    Exit Function 
Err: 
    Dim strErrString As String 
    strErrString = "Error Information..." & vbCrLf 
    strErrString = strErrString & "Error#: " & Err.Number 
    strErrString = strErrString & "Description: " & Err.Description 
    MsgBox strErrString, vbCritical + vbOKOnly, _ 
           "Error in Function: ForeignExistObject" 
    Resume ExitHere 
End Function

Der Funktion wird der komplette Pfad und Dateiname der MDB-Datei, der Objektname und
der -Typ übergeben.
Optional noch das DB-Kennwort wenn vorhanden.
Der Rückgabewert ist True bei Objekt vorhanden sonst False

Aufruf:

Dim x As Boolean
x = ForeignExistObject("C:\Test\Test.mdb", "frm_Test", 2)

 

Ist das Formular"frm_Test" in der DB C:\Test\Test.mdb vorhanden ist x = True

Einen Kommentar verfassen

Als Gast kommentieren

0 / 300 Zeichen Beschränkung
Dein Text sollte zwischen 10-300 Zeichen lang sein
Nutzungsbedingungen.

Personen in dieser Konversation

  • Hallo Detlef,
    mir ist keine Beschreibung der SYS-Tabellen bekannt.
    Gruß Tommy

    Kommentar zuletzt bearbeitet am vor 4 Jahren von Tommy Admin
  • Gast - Detlef Krings

    Hallo Tommy,
    ich versuche mit einer gleichen Prozedur alle Tabellen (auch eingebundene) in meiner accdb anzuzeigen. Leider gibt Msysobjects nur die lokalen Tabellen zurück. Gibt es in ACC2010 einen weiteren Parameter den man angeben muss? z. B. Flags. Weis nur nicht wie ich ihn in den Case einbauen muss.
    Detlef

    Kommentar zuletzt bearbeitet am vor 4 Jahren von Tommy Admin
  • Hallo Detlef,
    ich habe es gerade mal in A2010 getestet.
    Die Objekttypewerte sind die gleichen. Es gibt zwar noch ein paar neue aber die Tabellen sind Type 1 und eingebundene Type 6
    Gruß Tommy

    Kommentar zuletzt bearbeitet am vor 4 Jahren von Tommy Admin