Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
DAO in ADO
zurück: Zeilenschaltung weiter: Eieruhr, Fortschrittsbalken oder ähnliches Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
yen
Im Profil kannst Du frei den Rang ändern


Verfasst am:
08. März 2008, 23:20
Rufname:

DAO in ADO - DAO in ADO

Nach oben
       Version: Office 2k (2000)

Hallo,

ich möchte in meine Datenbank eine Routine einbauen die ich in einem Buch gefunden habe.
Die Routine wurde für DAO geschrieben.

Ich muss zwei Anweisungen für ADO anpassen.
Code:
    Dim prp As DAO.Property 
    Dim db As DAO.Database
Eine Anweisung habe ich hinbekommen
Code:
    Dim prp As ADODB.Properties
Was muss ich für die Zweite schreiben ?

mfg

Yen
Willi Wipp
Moderator


Verfasst am:
09. März 2008, 03:24
Rufname:
Wohnort: Raum Wiesbaden


Re: DAO in ADO - Re: DAO in ADO

Nach oben
       Version: Office 2k (2000)

Hi yen,

die Informationen sind etwas mager fuer eine Hilfestellung. ;)
ADODB kennt kein Database-Object. Da wird z.B. ein Recordset ueber eine Connection geoeffnet.

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
Gast



Verfasst am:
09. März 2008, 21:25
Rufname:

AW: DAO in ADO - AW: DAO in ADO

Nach oben
       Version: Office 2k (2000)

Hallo,

ich habe in einen Buch über ACCESS aus der Bücherei ein bedrucktes Blatt mit folgender Routine gefunden.
Code:
Sub EnableShift(blnFlag As Boolean)
On Error GoTo Error_EnableShift
    Dim db As DAO.Database
    Dim prp As DAO.Property
     
    Set db = CurrentDb
    'Property mit übergebenem Parameter belegen
    db.Properties!AllowBypassKey = blnFlag
Exit_EnableShift:
    Set prp = Nothing
    Exit Sub
Error_EnableShift:
    'Property erzeugen, falls noch nicht vorhanden
    If Err = 3270 Then
        Set prp = db.CreateProperty("AllowBypassKey", dbBoolean, blnFlag)
        db.Properties.Append prp
        Resume Next
      Else
        MsgBox "Ausnahme Nr. " & Str(Err.Number) & " " & Err.Description
        Resume Exit_EnableShift
    End If
End Sub
Das Blatt hat sicher einer in dem Buch vergessen, es ist nichts darüber zu finden.
Damit soll das umgehen von Einstellungen durch drücken der Shift-Taste beim Start verhindert werden.
Ich wollte es mal testen bekomme aber die Meldung
Zitat:
Benutzerdefinierter Typ nicht definiert
Der Fehler tritt bei Dim db As DAO.Database auf.

Ich denke es liegt an DAO und wollte es deshalb mit ADODB versuchen.
Wie kann ich das Problem lösen ?

yen
Nouba
nicht ganz unwissend :)


Verfasst am:
09. März 2008, 22:28
Rufname:
Wohnort: Berlin

AW: DAO in ADO - AW: DAO in ADO

Nach oben
       Version: Office 2k (2000)

Hallo,

mit ADO wird Dir das nicht gelingen. Schau Dir bitte Don Karls FAQ 7.11 Dim DB As Database bringt Fehler an.

_________________
mit freundlichen Grüssen Nouba

Wenn beim Lesen eines Beitrags der Eindruck entsteht, dass sich der Fragesteller wenig Mühe gegeben hat, so erhöht das nicht unbedingt die Motivation, eine Antwort zu verfassen.
Gast



Verfasst am:
10. März 2008, 12:13
Rufname:


AW: DAO in ADO - AW: DAO in ADO

Nach oben
       Version: Office 2k (2000)

Hallo Nouba,

danke für den Tipp.

Es funktioniert jetzt einwandfrei ohne den Code zu ändern.

mfg

yen
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Formulare: Formular mit ADO Recordset - Filtern und Sortieren 0 grelf111 221 14. Aug 2013, 12:46
grelf111 Formular mit ADO Recordset - Filtern und Sortieren
Keine neuen Beiträge Access Formulare: Doppelte Einträge verhindern ADO 6 mumcos 1328 28. Apr 2010, 18:00
Gast Doppelte Einträge verhindern ADO
Keine neuen Beiträge Access Tabellen & Abfragen: Brauche auto. Zähler in Tabelle mittels SQL o. DAO 19 Danny G. 5458 26. Jul 2009, 05:40
Willi Wipp Brauche auto. Zähler in Tabelle mittels SQL o. DAO
Keine neuen Beiträge Access Programmierung / VBA: DAO.Recordset an Prozedur übergeben 0 Freeman_6 819 18. Okt 2007, 20:47
Freeman_6 DAO.Recordset an Prozedur übergeben
Keine neuen Beiträge Access Berichte: ADO Recordset an einen Bericht binden? 9 Mario Kobolla 6305 31. Aug 2007, 14:05
Daniel_star_asGuest ADO Recordset an einen Bericht binden?
Keine neuen Beiträge Access Programmierung / VBA: DAO: Problem beim Erstellen eines Feldes 2 rurouni2108 500 02. Aug 2007, 07:57
rurouni2108 DAO: Problem beim Erstellen eines Feldes
Keine neuen Beiträge Access Programmierung / VBA: Access anbindung an mysql über ADO 0 ***SnEaKeR*** 1310 16. Jul 2007, 16:48
***SnEaKeR*** Access anbindung an mysql über ADO
Keine neuen Beiträge Access Programmierung / VBA: Problem mit ADO - Aktualisierung der Abfrage Fehler 3265 11 ozonHans 1907 10. Jul 2007, 16:06
rita2008 Problem mit ADO - Aktualisierung der Abfrage Fehler 3265
Keine neuen Beiträge Access Programmierung / VBA: DAO Problem - oder doch nicht? 1 Malchus 585 24. Nov 2006, 10:28
rita2008 DAO Problem - oder doch nicht?
Keine neuen Beiträge Access Programmierung / VBA: ADO.Sort = "feld DESC" 4 JTR 2952 10. Jul 2006, 13:37
JTR ADO.Sort = "feld DESC"
Keine neuen Beiträge Access Programmierung / VBA: RecordsetClone an ADO 3 ritzmo 910 19. Jun 2006, 12:46
rita2008 RecordsetClone an ADO
Keine neuen Beiträge Access Programmierung / VBA: DAO, ADODB und Konsorten - kurze Technologieeinordnung 2 hquadrat 901 19. Apr 2006, 18:59
hquadrat DAO, ADODB und Konsorten - kurze Technologieeinordnung
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Project