Hallo,
ich habe ein Problem mit einer Datenbank Connection im Visual Studio 2015 Community Version. Die Verbindung funktioniert zwar, ich bekomme auch Daten die richtig verarbeitet werden. Allerdings wird die Darstellung meiner Windows Forms komplett zerstört (Schriften werden unleserlich klein, Datagridview wird nicht richtig dargestellt), sobald ich die Datenbankfunktion aufrufe. Sobald ich die Datenbankfunktion auskommentiere funktioniert alles wieder problemlos. Hier ist der VB Code dazu:
Imports System.Data.OleDb
Module Datenbank
Private Const Provider As String = "Provider=Microsoft.ACE.OLEDB.12.0;"
Public Sub InitDbParameter(ByRef Con As OleDbConnection, ByRef Cmd As OleDbCommand)
Con.ConnectionString = Provider & "Data Source =" & Db
Cmd.Connection = Con
End Sub
Public Sub FillDGVMitarbeiter(ByRef DGV As DataGridView)
Dim Con As New OleDbConnection
Dim Cmd As New OleDbCommand
Dim Reader As OleDbDataReader
Dim i As Integer
Dim ID As String
InitDbParameter(Con, Cmd)
Con.Open()
Cmd.CommandText = "SELECT * FROM Mitarbeiter WHERE gelöscht= false;"
Try
Reader = Cmd.ExecuteReader()
DGV.RowCount = 0
Do While Reader.Read = vbTrue
i = DGV.RowCount
With DGV
.RowCount = i + 1
.Item("MitarbeiterID", i).Value = Reader("ID").ToString
.Item("MAVorname", i).Value = Reader("Vorname").ToString
.Item("MANachname", i).Value = Reader("Nachname").ToString
.Item("MaKürzel", i).Value = Reader("MA_Kürzel").ToString
.Item("MaEintrittsdatum", i).Value = Mid(Reader("Eintrittsdatum").ToString, 1, 10)
.Item("MaAustrittsdatum", i).Value = Mid(Reader("Austrittsdatum").ToString, 1, 10)
End With
Loop
Reader.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Con.Close()
End SubWeis jemand wo der Fehler liegt?
Danke!
