Herzlich Willkommen, lieber Gast!
  Sie befinden sich hier:

  Forum » Visual Basic 6.0 / VBA » Eigangstabelle wird nicht gefunden!

Forum | Hilfe | Team | Links | Impressum | > Suche < | Mitglieder | Registrieren | Einloggen
  Quicklinks: MSDN-Online || STL || clib Reference Grundlagen || Literatur || E-Books || Zubehör || > F.A.Q. < || Downloads   

Autor Thread - Seiten: > 1 <
000
07.09.2008, 19:35 Uhr
~wickedmc
Gast


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.

Hier mein Code:



Visual Basic:
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 super wenn ihr mir helfen könntet!!
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
Seiten: > 1 <     [ Visual Basic 6.0 / VBA ]  


ThWBoard 2.73 FloSoft-Edition
© by Paul Baecher & Felix Gonschorek (www.thwboard.de)

Anpassungen des Forums
© by Flo-Soft (www.flo-soft.de)

Sie sind Besucher: