Hallo zusammen
ich habe mir aus dem Galileo-Buch, "Einstieg in Visual Basic 2010, das Beispiel zu Dantenbank-Anwendungen mit ADO.NET angesehen und mir aufgrund dieses Beispiels eine Access 2010-Datenbank angelegt. Wenn ich nun das Formular öffne, erhalte ich (nur manchmal) folgdende Fehlermeldung: "Die ConnectionString-Eigenschaft wurde nicht initialisiert". Danach funktioniert aber alles einwandfrei (alle Daten werden angeigt, erfassen neuer Daten funktioniert auch).
Hat das irgendetwas mit dem Inhalt der zugrundeliegenden Tabelle der Datenbank zu tun? Wie kann ich diesen Fehler ausschalten?
Hier der Code vom Form:
ich habe mir aus dem Galileo-Buch, "Einstieg in Visual Basic 2010, das Beispiel zu Dantenbank-Anwendungen mit ADO.NET angesehen und mir aufgrund dieses Beispiels eine Access 2010-Datenbank angelegt. Wenn ich nun das Formular öffne, erhalte ich (nur manchmal) folgdende Fehlermeldung: "Die ConnectionString-Eigenschaft wurde nicht initialisiert". Danach funktioniert aber alles einwandfrei (alle Daten werden angeigt, erfassen neuer Daten funktioniert auch).
Hat das irgendetwas mit dem Inhalt der zugrundeliegenden Tabelle der Datenbank zu tun? Wie kann ich diesen Fehler ausschalten?
Hier der Code vom Form:
Quellcode
- Imports System.Data.OleDb
- Dim con As New OleDbConnection
- Dim cmd As New OleDbCommand
- Dim reader As OleDbDataReader
- Dim pnummer As New ArrayList
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=|DataDirectory|\proj.accdb"
- cmd.Connection = con
- End Sub
- Private Sub AlleSehen()
- Dim krit As String = GeraetComboBox.Text
- Try
- con.Open()
- cmd.CommandText = "select * from geraete where geraet like '" & krit & "'"
- Ausgabe()
- Catch ex As ExceptionMessageBox.Show(ex.Message)
- End Try
- con.Close()
- End Sub
- Private Sub Ausgabe()
- reader = cmd.ExecuteReader()
- ZustTextBox.Clear()
- pnummer.Clear()Do While reader.Read()
- ZustTextBox.Text = (reader("zustaendig"))
- Loop
- reader.Close()
- End Sub
- Private Sub GeraetComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GeraetComboBox.SelectedIndexChanged
- AlleSehen()
- End Sub