|
DAO/ADO: Fehler bei Recordset / Database ab A00 (Verweise)
|
| Autor |
Nachricht |
lothi
c#, .Net
Verfasst am: 12. Mai 2004, 13:48 Rufname:
Wohnort: Birgisch
|
|
| |
|
Hallo zusammen
Bei den früherern Access Versionen war die Objektbibliothek zum verarbeiten von Daten standartmässig DAO.
Ab Access 2000 ist aber nicht DAO nicht mehr Standart sondern ADO. Um trotzdem mit DAO arbeiten zu können muss der Verweis auf DAO von
Hand eingestellt werden wie es geht zeigt hier Willi:
| Willi Wipp hat folgendes geschrieben: | Schau Dir mal die Verweise an (in einem Modul Menue: Extras -> Verweise)
Da muss ein Verweis auf Microsoft DAO 3.xx Object Library aktiv sein.
Ab A00 wird standardmaessig ADO aktiviert.
Der DAO-Verweis muss vor dem ADO-Verweis sein! |
Im Modul muss nun bei der Deklaration des Objektes auf DAO explizit angegeben werden weil es ein ADO Recordset und ein DAO Recordset gibt.
Also:
| Code: | Dim db AS DAO.Database
Dim rs As DAO.Recordset |
Soviel ich gehört habe ist ab der Version 2003 der Verweis auf DAO wieder vorhanden.
| Nachtrag: lothi am 12. Mai 2004 um 20:43 hat folgendes geschrieben: | Hallo zusammen
Noch ein kleiner Tip um zu kontrollieren ob der Verweis auch stimmt:
Schreibe beim Deklarieren DAO klein wenn dann der VBA Assistent die 3 Buchstaben gross schreibt stimmt der Verweis wenn sie klein bleiben dann siehe oben.
Aber nicht weiter sagen ist nur für uns hier!  |
_________________ Gruss Lothi, der Bastler
Feedback ist die beste Möglichkeit mir zu sagen ob die Antwort geholfen hat!
AC2002, WinXP, Office XP
| Beschreibung: |
|
| Dateigröße: |
10.41 KB |
| Angeschaut: |
6717 mal |

|
|
|
Willi Wipp
Moderator

Verfasst am: 02. Jul 2004, 22:04 Rufname:
Wohnort: Raum Wiesbaden
|
| |
| |
|
Hi Folks,
da es immer wieder Probleme mit den Verweisen gibt,
habe ich eine kleine Funktion erstellt die die Verweise der aktuellen DB
im Direktfenster (Direktbereich) des VBA-Editors ausgibt.
Vielleicht kommen wir so den Problemen schneller auf die Spur.
| Code: | Option Compare Database
Option Explicit
'** Auslesen der Verweise die in der aktuellen DB gesetzt sind ***************
Public Function FnsGet_References(Optional bAll As Boolean = False) As String
Dim s As String
Dim ref As Reference
s$ = ""
' Die References-Auflistung in einer Schleife durchlaufen.
For Each ref In References
If s$ <> "" Then 'Trennlinie
s$ = s$ & vbCrLf & "------------------------" & vbCrLf
End If
s$ = s$ & "- Name: " & ref.Name & vbCrLf
s$ = s$ & "- Defekt: " & ref.IsBroken & vbCrLf
If bAll Then
s$ = s$ & "- Standard: " & ref.BuiltIn & vbCrLf
s$ = s$ & "- Version: " & ref.Major & "." & ref.Minor & vbCrLf
End If
s$ = s$ & "- Pfad: '" & ref.FullPath & "'"
Next ref
FnsGet_References = s$
End Function
'Zur Anzeige im Direktfenster
'?FnsGet_References |
Was der Funktion noch fehlt waere ein Zugriff auf die 'Beschreibung' der Datei,
d.h. den Text der auch in der Liste (Menue: Extras -> Verweise) angezeigt wird.
Vielleicht hat ja einer von Euch einen Hinweis wie wir da unter VBA dran kommen?
(API?)
_________________ Eine kurze Rueckmeldung waere nett
SL Willi Wipp
(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
|
|
Willi Wipp
Moderator

Verfasst am: 15. Jul 2004, 12:17 Rufname:
Wohnort: Raum Wiesbaden
|
|
| |
|
Nachfragen zum Thema bitte hier DAO/ADO: Fehler ab A00 (Verweise) Nachgefragt stellen.
_________________ Eine kurze Rueckmeldung waere nett
SL Willi Wipp
(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
|
|
Sascha Trowitzsch
Im Profil kannst Du frei den Rang ändern
Verfasst am: 11. Okt 2007, 12:05 Rufname:
|
|
| |
|
@Willi:
| Zitat: | Was der Funktion noch fehlt waere ein Zugriff auf die 'Beschreibung' der Datei,
d.h. den Text der auch in der Liste (Menue: Extras -> Verweise) angezeigt wird.
Vielleicht hat ja einer von Euch einen Hinweis wie wir da unter VBA dran kommen? |
Wenn du statt der Access-Reference die VBE-Reference nimmst, dann kommst du auch an die Description, die dieses References-Objekt als Eigenschaft unterstützt:
| Code: | | ? Application.VBE.ActiveVBProject.References(1).Description |
Ciao, Sascha
|
|
Willi Wipp
Moderator

Verfasst am: 11. Okt 2007, 12:59 Rufname:
Wohnort: Raum Wiesbaden
|
| |
| |
|
Hi Sascha Trowitzsch,
danke fuer den sehr hilfreichen Hinweis. Habe das gleich mal umgesetzt
| Code: | Option Compare Database
Option Explicit
'** Auslesen der Verweise die in der aktuellen DB gesetzt sind ***************
Public Function FnstrGet_References(Optional blnAll As Boolean = False) _
As String
Dim strText As String
Dim objRef As Object
' Die References-Auflistung in einer Schleife durchlaufen.
For Each objRef In Application.VBE.ActiveVBProject.References
If strText <> "" Then 'Trennlinie
strText = strText & vbCrLf & "------------------------" & vbCrLf
End If
strText = strText & _
"- Name: '" & objRef.Name & "'" & vbCrLf & _
"- Bezeichnung: '" & objRef.Description & "'" & vbCrLf & _
"- Defekt: " & objRef.IsBroken
If blnAll Then
strText = strText & vbCrLf & _
"- Standard: " & objRef.BuiltIn & vbCrLf & _
"- Version: " & objRef.Major & "." & objRef.Minor
End If
strText = strText & vbCrLf & _
"- Pfad: '" & objRef.FullPath & "'"
Next objRef
FnstrGet_References = strText
End Function
' Zur Anzeige im Direktfenster
'?FnstrGet_References
' bzw.
'?FnstrGet_References(True) |
_________________ Eine kurze Rueckmeldung waere nett
SL Willi Wipp
(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
|
|
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 |
 |
Access Tabellen & Abfragen: Verweise in Tabellen variabel erstellen |
6 |
Yak |
242 |
26. Okt 2009, 18:31 Yak  |
 |
Access Programmierung / VBA: Fehler in SQL String mit ExcelVBA |
2 |
ExcelTüftler |
333 |
27. Aug 2009, 13:05 ExcelTüftler  |
 |
Access Programmierung / VBA: DAO.Recordset als rückgabe funktioniert nicht |
3 |
accessuser |
584 |
18. Mai 2009, 12:55 lleopard  |
 |
Access Programmierung / VBA: Fehler bei Find-First-Methode |
3 |
Twix22 |
867 |
26. Aug 2008, 10:24 steffen0815  |
 |
Access Programmierung / VBA: Fehler beim Login? |
4 |
HellsPit |
531 |
16. März 2008, 15:51 HellsPit  |
 |
Access Tabellen & Abfragen: Eliminierung #Fehler |
1 |
SteDo |
212 |
23. Jan 2007, 18:53 Nouba  |
 |
Access Programmierung / VBA: Fehler 3218 - Aktualisierung nicht möglich,momentan gesperrt |
2 |
Marja |
2764 |
11. Okt 2006, 12:05 Marja  |
 |
Access Formulare: Fehler 2448 |
1 |
Arkain |
310 |
29. Sep 2006, 11:21 Gast  |
 |
Access Formulare: Umgang mit Listenfeld, angezeigte Werte, Fehler umgehen |
2 |
gott50000 |
2063 |
02. Jun 2006, 06:35 gott50000  |
 |
Access Programmierung / VBA: Fehlende Verweise bei Start der DB herstellen möglich? |
16 |
SlamJam |
6331 |
04. Mai 2006, 17:53 Nouba  |
 |
Access Programmierung / VBA: Hilfe DB nach einem Fehler auf einmal 50 MB |
6 |
Henrik_ |
825 |
05. März 2006, 20:36 Gast  |
 |
Access Programmierung / VBA: Fehler beim Komplimieren |
1 |
Küsl |
417 |
01. März 2006, 11:03 Willi Wipp  |
| |
|