Hallo alle miteinander,
manchesmal verzweifel ich an meinem Verstand
Ich habe in der Select-Anweisung Buchstabe für Buchstabe mit den Feldnamen im Access verglichen und komm nicht drauf,
wo der Fehler liegt.
Gebe ich einen einfachen Selectbefehl (SELECT * from Buecher), dann läuft es fehlerlos, sagt mir aber, dass keine Datensätze
vorhanden sind. Es stehen definitiv zwei Datensätze in der DB. *verzweifel
Vielleicht sieht ja einer von Euch mehr als ich.
Hier der Code:
Edit by ErfinderDesRades: (Thema verschoben) Bitte richtiges UnterForum wählen!
manchesmal verzweifel ich an meinem Verstand
Ich habe in der Select-Anweisung Buchstabe für Buchstabe mit den Feldnamen im Access verglichen und komm nicht drauf,
wo der Fehler liegt.
Gebe ich einen einfachen Selectbefehl (SELECT * from Buecher), dann läuft es fehlerlos, sagt mir aber, dass keine Datensätze
vorhanden sind. Es stehen definitiv zwei Datensätze in der DB. *verzweifel
Vielleicht sieht ja einer von Euch mehr als ich.
Hier der Code:
VB.NET-Quellcode
- Option Strict On
- Imports System.Data.OleDb
- Public Class FrmErfassen
- Public conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=C:\Daten\Buecher.accdb")
- Private Sub FrmErfassen_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- Me.BuecherTableAdapter.Fill(Me.BuecherDataSet.Buecher)
- Dim Zeile As String = ""
- Dim ZID As Integer = 0
- Dim LL1 As Integer = 0
- Dim cmdstr As String = "SELECT ID, [Autor], [Buchtitel], [ISBN], [Ausgeliehen], [Ausleiher] FROM Buecher order by Autor"
- 'Dim cmdstr As String = "SELECT * FROM Buecher" ' order by Autor"
- Me.TxtUeber.Text = "Author" & Space(19) & "Titel" & Space(20) &
- "ISBN" & Space(11) & "Aus" & Space(1) & "Ausleiher"
- LstBuch.Items.Clear()
- Debug.Print(cmdstr)
- Using cmd As New OleDbCommand(cmdstr, conn)
- conn.Open()
- Using rd As OleDbDataReader = cmd.ExecuteReader()
- If rd.HasRows Then
- Do While rd.Read()
- ZID = rd.GetInt32(0)
- Zeile = CStr(ZID.ToString) & Space(3)
- LL1 = Len(rd("Autor"))
- Zeile = Zeile & CStr(rd("Autor"))
- Zeile = Zeile & Space(25 - LL1)
- LL1 = Len(rd("Buchtitel"))
- Zeile = Zeile & CStr(rd("Buchtitel"))
- Zeile = Zeile & Space(25 - LL1)
- LL1 = Len(rd("ISBN"))
- Zeile = Zeile & CStr(rd("ISBN"))
- Zeile = Zeile & Space(15 - LL1)
- Zeile = Zeile & CStr(rd("Ausgeliehen"))
- Zeile = Zeile & Space(3)
- Zeile = Zeile & CStr(rd("Ausleiher"))
- LstBuch.Items.Add(Zeile)
- Loop
- Else
- MessageBox.Show("Keine Daten in DB vorhanden")
- conn.Close()
- Exit Sub
- End If
- rd.Close()
- End Using
- conn.Close()
- End Using
- End Sub
Edit by ErfinderDesRades: (Thema verschoben) Bitte richtiges UnterForum wählen!
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „ErfinderDesRades“ ()