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".
Vielen Dank für die Hilfe und viele Grüße
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
-
- Imports System.Data.OleDb
- Public Class NeueSchicht
- Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
- Dim strVorname As String
- Dim strNachname As String
- Dim intMitarbeiterID As Integer
- strVorname = "Max"
- strNachname = "Mustermann"
- Dim MitarbeiterID As New DbAbfrage("SELECT MitarbeiterID FROM tblMitarbeiter WHERE Vorname = ? AND Nachname = ?")
- MitarbeiterID.command.Parameters.Add(New OleDbParameter("paramVorname", OleDb.OleDbType.VarChar)).Value = strVorname
- MitarbeiterID.command.Parameters.Add(New OleDbParameter("paramNachname", OleDb.OleDbType.VarChar)).Value = strNachname
- MitarbeiterID.ExecuteReader()
- End Sub
- End Class
VB.NET-Quellcode
-
- Imports System.Data.OleDb
- Public Class DbAbfrage
- Public connection As New OleDbConnection
- Public command As New OleDbCommand
- Public reader As OleDbDataReader
- Sub New(ByVal CommandText As String)
- connection.ConnectionString = "Provider=Microsoft.SQLSERVER.CE.OLEDB.3.5;Data Source=C:\Users\Home\Desktop\Thomas\Dienstplan\Dienstplan\DienstplanDatenbank.sdf"
- command.Connection = connection
- command.CommandText = CommandText
- End Sub
- Sub ExecuteReader()
- Try
- connection.Open()
- reader = command.ExecuteReader()
- Catch ex As Exception
- MessageBox.Show(ex.Message)
- End Try
- End Sub
- End Class
Vielen Dank für die Hilfe und viele Grüße