An der Position 0 befindet sich keine Zeile

  • VB.NET

SSL ist deaktiviert! Aktivieren Sie SSL für diese Sitzung, um eine sichere Verbindung herzustellen.

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von tulla.

    An der Position 0 befindet sich keine Zeile

    Hallo wie kann ich den Fehler effizent abfangen, Datenbank hatr keine Daten ist also leer und soll neu befüllt werden

    Brainfuck-Quellcode

    1. Try
    2. Dim ConnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    3. "Data Source=D:\ETMSW\ETM_Daten\ETM_TBE.mdb"
    4. Dim myConnection As OleDbConnection = New OleDbConnection
    5. myConnection.ConnectionString = ConnString
    6. myConnection.Open()
    7. '---------------------------------
    8. '//Tab Lagerbestand
    9. '---------------------------------
    10. Dim da As OleDbDataAdapter = New OleDbDataAdapter("SELECT tblArtikel.ArtID, " & _
    11. "tblArtikel.ArtNummer,tblArtikel.ArtBezeichnung, " & _
    12. "tblArtikel.ArtZusatz,tblLagerbestaende.LaBesMenge AS Bestand, " & _
    13. "tblLagerbestaende.LaPlaID AS Lager,tblArtikel.ArtAngelegt, tblArtikel.Menge," & _
    14. "tblArtikel.ArtMindestbestand AS [Min]," & _
    15. "tblArtikel.ArtMaxbestand AS [Max], " & _
    16. "tblArtikel.ArtMeldebestand AS Meldebestand, tblArtikel.ArtAbbildungPfad,tblArtikel.StandID " & _
    17. "FROM tblArtikel LEFT JOIN tblLagerbestaende " & _
    18. "ON tblArtikel.ArtID = tblLagerbestaende.ArtID;", ConnString)
    19. dS = New DataSet
    20. da.Fill(dS, "tempLagerbestand")
    21. dBind.DataSource = dS
    22. DataGridView1.DataSource = dS
    23. dBind.DataMember = dS.Tables(0).ToString()
    24. DataGridView1.DataSource = dBind
    25. Me.Cursor = Cursors.Default
    26. Catch ex As Exception
    27. 'Fehlermeldung ''An der Position 0 befindet sich keine Zeile
    28. End Try
    MFG
    Menorca 8o ;)
    Nimm das Try-Catch raus und stell fest, in welcher Zeile der Fehler kommt.
    Wenn Du das weißt, mach davor eine geeignete Abfrage.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    VB-Fragen über PN / Konversation werden ignoriert!
    Hi Rod,

    Danke, glaube hatte es gefunden, doch auch mir meiner Abfrage Fehler:

    Quellcode

    1. If Not IsDBNull(dS.Tables(0).Rows(a).Item(0)) Then ''''Hier springt er in den Fehler
    2. txtArtID.Text = dS.Tables(0).Rows(a).Item(0)
    3. Else
    4. MsgBox("Keine Daten in dieser Datebank vorhanden!", MsgBoxStyle.Information, "Artikelstamm")
    5. End If
    6. txtArtNummer.Text = dS.Tables(0).Rows(a).Item(1)
    7. txtArtBezeichnung.Text = dS.Tables(0).Rows(a).Item(2)
    8. txtArtZusatz.Text = dS.Tables(0).Rows(a).Item(3)
    9. txtLagerbestand.Text = dS.Tables(0).Rows(a).Item(4)
    10. txtMIN.Text = dS.Tables(0).Rows(a).Item(8)
    11. txtMAX.Text = dS.Tables(0).Rows(a).Item(9)
    12. dtpeingelagert.Text = dS.Tables(0).Rows(a).Item(6)
    13. txtMenge.Text = dS.Tables(0).Rows(a).Item(7)
    14. txtMeldebestand.Text = dS.Tables(0).Rows(a).Item(10)
    15. 'Bildmaterial laden
    16. If Not IsDBNull(dS.Tables(0).Rows(a).Item(11)) AndAlso IO.File.Exists(CStr(dS.Tables(0).Rows(a).Item(11))) Then
    17. lblBildpfad.Text = dS.Tables(0).Rows(a).Item(11)
    18. BildPictureBox.Image = Resize_Image(New Bitmap(Image.FromFile(dS.Tables(0).Rows(a).Item(11))))
    19. Else
    20. BildPictureBox.Image = Resize_Image(New Bitmap(Image.FromFile(Application.StartupPath & "\KB.png")))
    21. End If
    22. StandID.Text = dS.Tables(0).Rows(a).Item(12)
    MFG
    Menorca 8o ;)

    menorca schrieb:

    VB.NET-Quellcode

    1. dS.Tables(0).Rows(a).Item(0)
    Das Item wird wohl nicht existieren.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    VB-Fragen über PN / Konversation werden ignoriert!