Fehlermeldung bei parametrisierter DB-Abfrage

  • VB.NET
  • .NET (FX) 3.0–3.5

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von TheProfessor.

    Fehlermeldung bei parametrisierter DB-Abfrage

    Hallo alle miteinander,

    im folgenden Codefragment versuche ich meiner Abfrage zwei Parameter zuzuweisen. Beim ausführen der Zeile 20. springt der Code in die Klasse DBAbfrage in Zeile 16. Beim Ausführen von "reader = command.ExecuteReader()" in Zeile 19. löst der try/catch-Block aus und gibt folgenden Fehler zurück: "Der angegebene Typname wurde nicht erkannt. [,,,,,]". Was ist hier das Problem?

    Als Datenquelle nutze ich eine "lokale Datenbank".

    VB.NET-Quellcode

    1. ​
    2. Imports System.Data.OleDb
    4. Public Class NeueSchicht
    6. Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
    8. Dim strVorname As String
    9. Dim strNachname As String
    10. Dim intMitarbeiterID As Integer
    12. strVorname = "Max"
    13. strNachname = "Mustermann"
    15. Dim MitarbeiterID As New DbAbfrage("SELECT MitarbeiterID FROM tblMitarbeiter WHERE Vorname = ? AND Nachname = ?")
    17. MitarbeiterID.command.Parameters.Add(New OleDbParameter("paramVorname", OleDb.OleDbType.VarChar)).Value = strVorname
    18. MitarbeiterID.command.Parameters.Add(New OleDbParameter("paramNachname", OleDb.OleDbType.VarChar)).Value = strNachname
    20. MitarbeiterID.ExecuteReader()
    22. End Sub
    23. End Class

    VB.NET-Quellcode

    1. ​
    2. Imports System.Data.OleDb
    4. Public Class DbAbfrage
    6. Public connection As New OleDbConnection
    7. Public command As New OleDbCommand
    8. Public reader As OleDbDataReader
    10. Sub New(ByVal CommandText As String)
    11. connection.ConnectionString = "Provider=Microsoft.SQLSERVER.CE.OLEDB.3.5;Data Source=C:\Users\Home\Desktop\Thomas\Dienstplan\Dienstplan\DienstplanDatenbank.sdf"
    12. command.Connection = connection
    13. command.CommandText = CommandText
    14. End Sub
    16. Sub ExecuteReader()
    17. Try
    18. connection.Open()
    19. reader = command.ExecuteReader()
    20. Catch ex As Exception
    21. MessageBox.Show(ex.Message)
    22. End Try
    23. End Sub
    25. End Class


    Vielen Dank für die Hilfe und viele Grüße

Facebook
Telefonspende