Eingangstabelle wird nicht gefunden

[wickedmc]

Hallo,

Ich habe folgendes Problem,

Mein Programm legt die tabelle nicht an, Ich bekomme immer die Fehlermeldung das die Eingangstabelle nicht gefunden wird..

Kann mir nicht erklären woran das liegen kann.

Public rst As DAO.Recordset

Private Sub Command1_Click()
  If Text1.Text = "" Then
    MsgBox ("Bitte einen Titel angeben!")
  Else
    Set db = OpenDatabase(App.Path & "\vids.mdb")
    Set rst = db.OpenRecordset("Videos", dbOpenDynaset)
    rst.AddNew
    With rst
      !Titel = Text1.Text
      !Pfad = videopath
      .Update
      db.Close
      Set rst = Nothing
    End With
  End If
End Sub


Private Sub Form_Load()
  Text2.Text = Form1.videopath
  Dim fileexists As Boolean
  Dim strfile As String
  strfile = "vids.mdb"
  On Error Resume Next
  fileexists = (Len(Dir(strfile)) > 0)
  If fileexists = False Then
    Dim db As DAO.Database
    Dim dbfile As String
    Dim feld As New DAO.Field
    
    
    
    dbfile = App.Path + "\vids.mdb"
    Set db = Workspaces(0).CreateDatabase(dbfile, dbLangGeneral, dbEncrypt + _
      dbVersion30)
    Dim tabelle As New DAO.TableDef
    Set tabelle = db.CreateTableDef("Videos")
    feld.Name = "Titel"
    feld.Type = Text
    tabelle.Fields.Append feld
    Set feld = Nothing
    feld.Name = "Pfad"
    feld.Type = dbLong
    tabelle.Fields.Append feld
    Set feld = Nothing
    db.TableDefs.Append tabelle
    db.Close
    Set tabelle = Nothing
    Set db = Nothing
  Else
    Set db = OpenDatabase("vids.mdb")
  End If
End Sub

Wäre echt super wenn ihr mir helfen könntet.

 

[Zvoni]

Existiert überhaupt eine Tabelle namens "Videos" in deiner Datenbank?

 

[wickedmc]

Wenn ich meine erstelle DB mit access öffne ist sie nicht da, aber eigentlich erstelle ich docg die Tabelle mit folgenden code oder nicht?

Dim tabelle As New DAO.TableDef
    Set tabelle = db.CreateTableDef("Videos")
   db.TableDefs.Append tabelle

Entweder ich hab ein riesen denkfehler oder irgendwas anderes stimmt nicht,
wäre super wenn ihr mir helfen könntet!

 

[Zvoni]

Denkfehler! Ja, du erstellst eine Tabelle mit dem Code, aber es ist eine leere Tabelle, ohne Felder.

Tip: Erstelle die Tabelle in Access komplett mit Feldern usw., und greife dann aus VB heraus drauf zu.