Office: (Office 2003) Access 97 Datenbank zu Access 2003 konvertieren

ChaosMarc · 16. April 2009

so, da bin ich wieder *Smilie (ich hoffe der doppelpost ist jetzt berechtigt, ich weis nicht ob das forum bei edits den thread wieder als ungelesen markiert)
ich hab jetzt noch mal von vorn begonnen und habe jetzt per hand die ganzen dynaset einträge durch recordset ersetzt (habe auch geguckt ob ich eine ähnliche struktur im code erkennen konnte)
interessanterweise stand da tatsächlich von anfang an das hier:
Code:

Sub of_AnalyzeObject(Objektname As String, Objekttyp As Integer)
On Error GoTo of_AnalyzeObject_Err
Select Case Objekttyp
Case A_recordset: of_AnalyzeTabelle Objektname
Case A_QUERY: of_AnalyzeAbfrage Objektname
Case A_FORM: of_AnalyzeFormular Objektname
Case A_REPORT: of_AnalyzeBericht Objektname
Case A_MACRO: of_AnalyzeMakro Objektname
End Select
Exit Sub
of_AnalyzeObject_Err:
of_Fehler ("Objekt '" & Objektname & "' konnte nicht analysiert werden!")
Exit Sub
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

dieser eintrag erscheint auch im restlichen code noch ein paar mal, wird aber nie definiert (was auch die fehlermeldung dazu ist) wenn ich jetzt richtig interpretierte das dieses "dim" das definieren ist"
ich habe jetzt aber mal die 4 vorkommnisse durch A_TABLE ersetzt, womit es auch funktioniert. es sieht ja auch zumindest so aus ob da table hinsoll...

naja jetzt zu meinem aktuellen problem:
ich habe ja schon erwähnt das eine ähnliche codestelle wie die, die ihr mir oben schon umgeschrieben habt, gefunden habe, sie ist aber nur ähnlich...
der orginal-code sieht so aus:
Code:

Sub of_AnalyzeTabelle(Tabellenname As String)
On Error Resume Next
Dim db As DAO.Database
Dim T As DAO.Recordset
Dim S As DAO.Recordset
Dim I As Integer
Set db = CurrentDb()
Set T = db.OpenRecordset(Tabellenname)
Set S = T.ListFields()
T.Close
db.Close
S.MoveLast
AnzahlListeB = S.RecordCount
S.MoveFirst
For I = 0 To AnzahlListeB - 1
ListeB(I).S1 = S.Name
ListeB(I).S2 = "(" & of_Felddatentyp(CInt(S.Type)) & ", " & CStr(S.Size) & ")"
S.MoveNext
Next I
of_SortListeB
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

und ich habe mir gedacht es so abzuändern und ich wollte nur wissen, ob das jetzt noch immer das gleiche macht O:-) weil funktionieren tuts:
Code:

Sub of_AnalyzeTabelle(Tabellenname As String)
On Error Resume Next
Dim db As DAO.Database
Dim T As DAO.Recordset
Dim fld As DAO.Field
Dim I As Integer
Set db = CurrentDb()
Set T = db.OpenRecordset(Tabellenname)
AnzahlListeB = T.Fields.Count
For I = 0 To AnzahlListeB - 1
Set fld = T.Fields(I)
ListeB(I).S1 = fld.Name
ListeB(I).S2 = "(" & of_Felddatentyp(CInt(fld.Type)) & ", " & CStr(fld.Size) & ")"
Next I
of_SortListeB
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

und eine weitere frage hab ich noch *Smilie
ich hab die codestelle
- "Dim tdf As DAO.DynasetDef"
gefunden die ja nicht funktioniert, nur funktioniert auch
- "Dim tdf As DAO.recordsetDef"
nicht. bei google und unter F2 hab ich keine ähnlichen einträge gefunden. kann das ein fehler sein und da soll einfach nur
- "Dim tdf As DAO.recordset"
hin?
ein wenig später wird auch noch mal draufzugegriffen mit:
- "For Each tdf In dbs.DynasetDefs"

Anne Berg · 16. April 2009

Hallo,

das sieht soweit gut aus, abgesehen davon, dass du die benutzten Objekte nicht wieder freigibst (set db = nothing, set t = nothing etc.).

Zu deiner 2. Frage: DynasetDef ist mir nicht bekannt und da kann ich auch schlecht sagen, wodurch du es ersetzen kannst. Die Bedeutung kann man höchstens aus dem Kontext entnehmen, in dem dieses Objekt benutzt wird. Also: Code zeigen.

ChaosMarc · 16. April 2009

der code ist:
Code:

Private Function RefreshLinks(strFileName As String) As Boolean
' Verknüpfungen mit der angegebenen Datenbank aktualisieren. Bei Erfolg True zurückgeben.

Dim dbs As DAO.Database
Dim tdf As DAO.DynasetDef

' Alle Tabellen in der Datenbank durchlaufen.
Set dbs = CurrentDb
For Each tdf In dbs.DynasetDefs
' Wenn die Tabelle eine Connect-Zeichenfolge enthält, ist sie verknüpft.
If Len(tdf.Connect) > 0 Then
tdf.Connect = ";DATABASE=" & strFileName
Err = 0
On Error Resume Next
tdf.RefreshLink ' Tabelle neu verknüpfen.
If Err 0 Then
RefreshLinks = False
Exit Function
End If
End If
Next tdf

RefreshLinks = True ' Neuverknüpfen abgeschlossen.

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ist das variablenfreigeben zwingend notwenig? das wird ja sonst auch nirgendwo gemacht (zumindest hab ich nix gesehn)
und soll ich wenn ichs mache wirklich "= nothing" schreiben? das sieht komisch aus :P ich kenn bei sowas nur "null"

Josef P. · 16. April 2009

' Alle Tabellen in der Datenbank durchlaufen.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

=> TableDef *wink.gif*
Code:

Dim tdf As DAO.TableDef
...
for each tdf in dbs.TableDefs
...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ist das variablenfreigeben zwingend notwenig?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nein das ist nicht zwingend notwendig - aber guter Stil *wink.gif*. Beim Verlassen der Prozedur wird automatisch die Referenz entfernt. (aber nur, wenn innerhalb der Prozedur deklariert wurde ... also das Dinges mit "Dim")
Was allerdings wichtig ist: Recordsets schließen, wenn Sie nicht mehr benötigt werden. Wenn das nämlich nicht gemacht wird, kann es zu Problemen kommen, da dann möglicherweise die Instanz offen bleibt.

BTW: Du erwähntest, dass du andere Sprachen kennst. Welche wären das? Dann könnte ich vielleicht in Zukunft die VBA-Zeilen besser erklären, wenn es Analogien zu den dir bekannten Sprachen gibt.

Anne Berg · 16. April 2009

Aha, da ist also die TabeleDefs-Auflistung gemeint, d.h. du brauchst ein DAO.TableDef-Objekt!
(hätte man drauf kommen können...)

PS: das deutet aber immer mehr darauf hin, dass das Ding schon unter A97 nicht gelaufen ist!

ChaosMarc · 16. April 2009

okey das läuft soweit *Smilie
andere sprachen die ich lesen/kann wären java,python,c++ aber alles nicht wirklich überragend. auf ner "normalen" uni die keine TH ist lernt man nich so wirklich was an praktischer programmierung *frown.gif* (bin aber dabei das nachzuholen)

jetzt hab ich noch was komisches gefunden:
Dim sqlcmd$, qdf As DAO.Table, cdb As DAO.Database, beding$

sind ja ganz normale definitionen, aber er meckert bei "qdf As DAO.Table" obwohl es das laut Objektexplorer gibt
die meldung:
---------------------------
Fehler beim Kompilieren:

Benutzerdefinierter Typ nicht definiert
---------------------------

hier auch der ganze code falls interesse besteht
Code:

Private Sub pbSavePath_Click()
On Error GoTo pbSavePath_Click_Err
Dim sqlcmd$, qdf As DAO.Table, cdb As DAO.Database, beding$
Dim externtable As DAO.TableDef
If Not CheckDataPath(Me!dfDataPath) Then
Exit Sub
End If

sqlcmd$ = "SELECT Externtables_Q.Database, Externtables_Q.ForeignName FROM Externtables_Q"
sqlcmd$ = sqlcmd$ & " WHEHE Externtables_Q.Database = '" & Glob_OldPath$ & "'"
sqlcmd$ = sqlcmd$ & " AND Externtables_Q.Type=6"

beding$ = "Pfad = '" & Glob_OldPath$ & "'"
' Database-Variable zurückgeben, die auf aktuelle Datenbank verweist.
Set cdb = CurrentDb
Set qdf = cdb.OpenRecordset("Externtables_Q", dbOpenSnapshot, dbReadOnly)
If qdf.EOF Then
MsgBox "Keine eingebundenen Tabellen notwendig!", vbOKOnly, _
"Pfad der Datenbankdatei"
Exit Sub
End If
qdf.FindFirst beding$
Do While Not qdf.NoMatch
ConnectOutput cdb, qdf!ForeignName, ";DATABASE=" & _
Forms("DataPath_F")("dfDataPath"), qdf!ForeignName
qdf.FindNext beding$
Loop
MsgBox "Pfad der Datenbank wurde angepasst!"

Exit Sub
pbSavePath_Click_Err:
MsgBox "Fehler " & Err.Number & ": " & Err.Description
Exit Sub
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Josef P. · 16. April 2009

Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Set qdf = cdb.OpenRecordset("Externtables_Q", dbOpenSnapshot, dbReadOnly)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

=> qdf ist ein DAO.Recordset.

Auszug aus Objektkatalog und DAO2535.dll:

Class Table
Element von DAO
(obsolete) Table Object - Use Recordset object instead
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ChaosMarc · 16. April 2009

WOW *Smilie
es gibt keine kompilierfehler mehr beim debuggen *Smilie *Smilie *Smilie
danke danke danke
*rumtanz*

eine sache noch *Smilie
in der konvertierungsfehler tabelle steht folgendes 8x drin:
Code:

Objekttyp Objektname Fehlerbeschreibung
Tabelle MSysModules -1611: Feld 'Description' wurde nicht gefunden.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

hier wurde erwähnt das das evtl eine versteckte tabelle ist oder sowas...
ich habe mal unter optionen "systemobjekte" eingeblednet
da tauchen auch ähnliche tabellen auf, aber keine MSysModules
oder sind damit die alle gemeint?
die hier sehe ich:
MSysAccessObjects
MSysACEs
MSysCmdbars
MSysIMEXColumns
MSysIMEXSpecs
MSysObjects
MSysQueries
MSysRelationships

das sind ja genau 8 stück. ich kann die teilweise aber gar nich öffnen weil ich keine lese und schreibrechte hätte sagt er (zB bei der ACEs)

Josef P. · 16. April 2009

"MSys.." sind alles Systemtabellen von Access. Die können sich schon mal von Version zu Version etwas ändern.

Tipp: Da die Anwendung nun läuft, würde ich eine neue mdb erstellen und alle Elemente (bis auf die Systemtabellen) importieren. Damit sollte der ganze Mist, der eventuell beim Konvertieren entstanden ist, weg sein.

ChaosMarc · 16. April 2009

okey hab ich gemacht *Smilie
alles klappt und ich bin glücklich *Smilie
vielen vielen dank für die ganze mühe und zeit die hier jetzt investiert wurde *Smilie

viele liebe grüße
marc *Smilie

Office: (Office 2003) Access 97 Datenbank zu Access 2003 konvertieren

Access 97 Datenbank zu Access 2003 konvertieren

Access 97 Datenbank zu Access 2003 konvertieren

Access 97 Datenbank zu Access 2003 konvertieren

Access 97 Datenbank zu Access 2003 konvertieren

Access 97 Datenbank zu Access 2003 konvertieren - Similar Threads - Access Datenbank Access

Auslesen Windowsbenutzer in einer Datenbank

Access-Datenbank von ander Acc-DB fernbedienen?

Datenbank erstellung

MS ACCESS Insert into Foto in Datenbank

Microsoft Access 97 Datenbanken zusammenführen

Access 2007 Datenbanken lassen sich nicht mehr öffnen

Access-Datenbank nur lesend öffnen?