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  

1115632
HeuteHeute117
GesternGestern1114
Diese WocheDiese Woche2363
Dieser MonatDieser Monat23844
GesamtGesamt1115632
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: 83 Members: 0 Guests: 83
No members online
   

Beiträge

Neue Datenbank erstellen (DAO)

Bewertung:  / 0
SchwachSuper 
Details

Problemstellung:

Wie kann ich eine Neue Datenbank mittels DAO erstellen?

Verweis auf die Microsoft DAO 3.X Object Library erforderlich

 

Public Sub CreateNewDAO_DB(strDBPathName As String, Optional strPWD As String = "", _
                            Optional boolEncrypt As Boolean = False)
'*******************************************
'Name:      CreateNewDAO_DB   (Sub)
'Purpose:   erstellt ein neue DB mittels DAO
'Author:    Tommyk
'Date:      März 02, 2004, 03:52:24
'Inputs:    strDBPathName=Name und Pfad der neuen DB,strPWD=DB-Passwort
'           boolEncrypt=Verschlüsselt Ja/Nein
'Output:
'*******************************************
On Error GoTo ErrHandler
Dim wsp As DAO.Workspace
Dim db As DAO.Database
Set wsp = DBEngine.Workspaces(0)
    If strPWD = "" Then
        Set db = wsp.CreateDatabase(strDBPathName, dbLangGeneral)
    Else
        If boolEncrypt = False Then
            Set db = wsp.CreateDatabase(strDBPathName, dbLangGeneral & ";pwd=" & strPWD)
        Else
            Set db = wsp.CreateDatabase(strDBPathName, dbLangGeneral & ";pwd=" & strPWD, dbEncrypt)
        End If
    End If
Set db = Nothing
Set wsp = Nothing
ExitHere:
    Exit Sub
ErrHandler:
    Dim strErrString As String
    strErrString = "Error Information..." & vbCrLf
    strErrString = strErrString & "Error#: " & Err.Number & vbCrLf
    strErrString = strErrString & "Description: " & Err.Description
    MsgBox strErrString, vbCritical + vbOKOnly, "Error in Sub: CreateNewDAO_DB"
    Resume ExitHere
End Sub

Aufruf:

Call CreateNewDAO_DB("D:\Test\Test.mdb", "test", True)


Erstellt in im Ordner "D:\Test" eine neue verschlüsselte DB "test.mdb" mit dem DB-Kennwort "test"

Einen Kommentar verfassen

Als Gast kommentieren

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