|
DAO/ADO: Fehler bei Recordset / Database ab A00 (Verweise)
|
| Autor |
Nachricht |
lothi
c#, .Net
Verfasst am:
12. Mai 2004, 14: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: |
8388 mal |
|
|
|
Willi Wipp
Moderator
Verfasst am:
02. Jul 2004, 23: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, 13: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, 13: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, 13: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 Formulare: DS aus Listfeld -- Übergabe in neues Formluar -- Fehler :-( |
13 |
MichaelB. |
200 |
15. Jun 2010, 08:10
MichaelB.  |
|
Access Programmierung / VBA: geöffnetes ADO Recordset bearbeiten ? |
14 |
Gast |
403 |
15. März 2010, 16:49
Gast |
|
Access Formulare: Recordset Programmierproblem |
2 |
Tom_hh |
99 |
09. Sep 2009, 06:26
Willi Wipp |
|
Access Programmierung / VBA: CurrentDb.Execute löst keinen Fehler aus |
4 |
wolfi_b |
99 |
21. Aug 2009, 10:19
Gast |
|
Access Programmierung / VBA: Fehler 3077 in Access Anwendung, durch Hochkomma (') |
4 |
Wanderer1991 |
705 |
08. März 2009, 22:58
Wanderer1991 |
|
Access Programmierung / VBA: Fehler: Überlauf beim Excelimport nach Aufteilung in FE/BE |
10 |
Freezer |
200 |
13. Feb 2009, 14:51
steffen0815 |
|
Access Hilfe: Access MDB, Vista, DAO und Excel 2003 |
0 |
maninweb |
1312 |
23. Jun 2008, 20:34
maninweb |
|
Access Hilfe: Access 97 Makro Start Fehler Datenbank/Objekt schreibgeschü |
14 |
corny |
1513 |
17. März 2008, 15:57
corny |
|
Access Formulare: Nach import von DB Fehler Meldung beim öffnen des Formulars |
1 |
Gast |
200 |
12. März 2008, 17:47
Gast |
|
Access Hilfe: Wie verweise ich wav-Dateien in Access auf einen Player? |
3 |
3Mathias |
604 |
04. Feb 2008, 23:06
jens05 |
|
Access Formulare: ADO: Keine Änderung in Formular möglich |
23 |
Gschaftlhuaba |
1009 |
20. Jan 2008, 02:03
Gschaftlhuaba |
|
Access Hilfe: Access 97 Datei Fehler nach Öffnen mit Access 2007 |
2 |
madclaudi |
2825 |
29. Aug 2007, 08:14
Gast |
| |
|
