Hallo wie kann ich den Fehler effizent abfangen, Datenbank hatr keine Daten ist also leer und soll neu befüllt werden
VB.NET-Quellcode
- Try
- Dim ConnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
- "Data Source=D:\ETMSW\ETM_Daten\ETM_TBE.mdb"
- Dim myConnection As OleDbConnection = New OleDbConnection
- myConnection.ConnectionString = ConnString
- myConnection.Open()
- '---------------------------------
- '//Tab Lagerbestand
- '---------------------------------
- Dim da As OleDbDataAdapter = New OleDbDataAdapter("SELECT tblArtikel.ArtID, " & _
- "tblArtikel.ArtNummer,tblArtikel.ArtBezeichnung, " & _
- "tblArtikel.ArtZusatz,tblLagerbestaende.LaBesMenge AS Bestand, " & _
- "tblLagerbestaende.LaPlaID AS Lager,tblArtikel.ArtAngelegt, tblArtikel.Menge," & _
- "tblArtikel.ArtMindestbestand AS [Min]," & _
- "tblArtikel.ArtMaxbestand AS [Max], " & _
- "tblArtikel.ArtMeldebestand AS Meldebestand, tblArtikel.ArtAbbildungPfad,tblArtikel.StandID " & _
- "FROM tblArtikel LEFT JOIN tblLagerbestaende " & _
- "ON tblArtikel.ArtID = tblLagerbestaende.ArtID;", ConnString)
- dS = New DataSet
- da.Fill(dS, "tempLagerbestand")
- dBind.DataSource = dS
- DataGridView1.DataSource = dS
- dBind.DataMember = dS.Tables(0).ToString()
- DataGridView1.DataSource = dBind
- Me.Cursor = Cursors.Default
- Catch ex As Exception
- 'Fehlermeldung ''An der Position 0 befindet sich keine Zeile
- End Try
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VaporiZed“ ()