Hallo
leider habe ich seit dem ich Office 2000 installiert habe
Probleme auf eine Access MDB zuzugreifen.
Mit Office 97 hatte ich bisher keine Probleme.
Welche Komponente muß ich jetzt bei VB6 nutzen?
Gruß Heiko
Greifst Du über DAO zu?
Dann müßtest Du für Access 2000 Datenbanken DAO 3.6 verwenden.
Alle anderen Versionen von DAO werden von Access 2000 lt. msdn.microsoft.com nicht unterstützt.
(Versions of DAO code prior to 3.6 are no longer supported in Access 2000. )
Es müßte eigentlich reichen die Referenz im VB-Projekt auf DAO 3.6 zu ändern.
Maria
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Existiert kein Path für dieses Problem, denn ich habe dieses Problem auch und arbeite jetzt über Textdateien, die ggf. verschlüsselt werden. Was für Lösungen gibt es da? Man möchte ja nur das Datensteuerelement verwenden!!!
Gruß [email protected]
Wieder aus der Knowledge Base
http://msdn.microsoft.com/library/devprods/vs6/vbasi…
Zusammenfassung:
Zur Designtime ist eine Access 2000 Datenbank nicht zuweisbar, zur Laufzeit schon:
Option Explicit
Private Sub Form\_Load()
Dim daoDB36 As Database
Dim rs As Recordset
Dim sPath As String
sPath = \_
"C:\Eigene Dateien\DatenbankSowieso.mdb"
Set daoDB36 = DBEngine.OpenDatabase(sPath)
Set rs = daoDB36.OpenRecordset("Album")
Set Data1.Recordset = rs
Text1.DataMember = "Tablename" 'oder SELECT Statement
Text1.DataField = "Album\_Title" 'Field-Name
End Sub
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Kleine Korrektur und Ergänzung
Mit dem Data-Control wird automatisch ein Verweis auf DAO 3.51 eingebunden. Dieser muß durch DAO 3.6 ersetzt werden.
Option Explicit
Private Sub Form\_Load()
Dim daoDB36 As Database
Dim rs As Recordset
Dim sPath As String
sPath = \_
"C:\Eigene Dateien\DatenbankSowieso.mdb"
Set daoDB36 = DBEngine.OpenDatabase(sPath)
Set rs = daoDB36.OpenRecordset("Tablename")
Set Data1.Recordset = rs
'\*ist nicht notwendig Text1.DataMember = "Tablename" 'oder SELECT Statement
' die DataSource Property des Textfeldes muß das Data1-Control sein
Text1.DataField = "FeldName" 'Field-Name
End Sub