Keskustelu: Ohjelmointikysymykset: VB.NET: Tietokantaongelma: Cannot bind to the property

conn = New OleDbConnection
    Try
        conn.ConnectionString = connstr
        conn.Open()
    Catch ex As Exception
        MsgBox(ex.Message)
    End Try
    If conn.State = ConnectionState.Open Then
        Dim query As String = "SELECT * FROM TyövuoroAjat WHERE TyövuoroAikaID =" + TyövuoroAikaIDTextBox.Text
        TietoAdapter = New OleDbDataAdapter(query, connstr)
        TietoDataSet = New DataSet
        TietoAdapter.Fill(TietoDataSet, "TyövuoroAjat")
        If TietoDataSet.Tables("TyövuoroAjat").Rows.Count > 0 Then
            TyövuoroAjatBindingSource.DataSource = TietoDataSet ' TÄSSÄ KOHDASSA ILMOITTAA VIRHEESTÄ
            TyövuoroAjatBindingSource.DataMember = "Työvuoroajat"

        End If
    End If

Imports System
Imports System.Data
Imports System.Data.OleDb

Public Class frmTyövuorot
    Dim conn As OleDbConnection = Nothing
    Dim TietoDataSet As DataSet = Nothing
    Dim TietoAdapter As OleDbDataAdapter = Nothing
    '    Dim connstr As String = String.Empty  ' Määritetty ja arvo Modulissa
         ' tämä rivi modulessa: (  Public connstr As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Database\Tietokanta.accdb" ' String.Empty
  )

    Private Sub frmTyövuorot_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'TODO: This line of code loads data into the 'TietokantaDataSet.TyövuoroAjat' table. You can move, or remove it, as needed.
        Me.TyövuoroAjatTableAdapter.Fill(Me.TietokantaDataSet.TyövuoroAjat)

        'TODO: This line of code loads data into the 'TietokantaDataSet.TyöVuorot' table. You can move, or remove it, as needed.
        Me.TyöVuorotTableAdapter.Fill(Me.TietokantaDataSet.TyöVuorot)


    End Sub

Private Sub TyövuoroAikaIDTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TyövuoroAikaIDTextBox.TextChanged
        If TyövuoroAikaIDTextBox.Text = "" Then Exit Sub
        conn = New OleDbConnection
        Try
            conn.ConnectionString = connstr
            conn.Open()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        If conn.State = ConnectionState.Open Then
            Dim query As String = "SELECT * FROM TyövuoroAjat WHERE TyövuoroAikaID =" + TyövuoroAikaIDTextBox.Text
            TietoAdapter = New OleDbDataAdapter(query, connstr)
            TietoDataSet = New DataSet
            TietoAdapter.Fill(TietoDataSet, "TyövuoroAjat")
            If TietoDataSet.Tables("TyövuoroAjat").Rows.Count > 0 Then
                TyövuoroAjatBindingSource.DataSource = TietoDataSet
                TyövuoroAjatBindingSource.DataMember = "Työvuoroajat"

            End If
        End If
    End Sub

Private Sub TallennaTyöajat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TallennaTyöajat.Click
    conn = New OleDbConnection
    Dim rivi As Integer = 0

    Try
        conn.ConnectionString = connstr
        conn.Open()
    Catch ex As Exception
        MsgBox(ex.Message)
    End Try


    If conn.State = ConnectionState.Open Then

        '   RIVI on seuraava vapaa paikka taulussa


        Dim Rk As DataRow = TietokantaDataSet.Tables("TyövuoroAjat").NewRow()

        '    Rk("TyövuoroAikaID") = rivi
        Rk("TyövuoroAlkaaKlo") = FormatDateTime(TyövuoroAlkaaKloDateTimePicker.Value, DateFormat.ShortTime)
        Rk("TyövuoroLoppuuKlo") = FormatDateTime(TyövuoroLoppuuKloDateTimePicker.Value, DateFormat.ShortTime)


        Rk("RuokisAlkaaKlo") = FormatDateTime(RuokisKloDateTimePicker.Value, DateFormat.ShortTime)
        Rk("RuokisLoppuuKlo") = FormatDateTime(RuokisKloDateTimePicker.Value, DateFormat.ShortTime)

       TietokantaDataSet.Tables("TyöVuoroAjat").Rows.Add(Rk)


        Dim kUpdateB() As DataRow = Me.TietokantaDataSet.TyövuoroAjat.Select("", "", DataViewRowState.Added Or DataViewRowState.ModifiedCurrent)
        TyövuoroAjatTableAdapter.Update(kUpdateB)

        MsgBox("Lisätty")

        ' Haetaan seuraava vapaa rivi,
        Dim query As String = "SELECT MAX(TyövuoroAikaID) FROM TyövuoroAjat"


        TietoAdapter = New OleDbDataAdapter(query, connstr)
        TietoDataSet = New DataSet
        TietoAdapter.Fill(TietoDataSet, "TyövuoroAjat")

        If TietoDataSet.Tables("TyövuoroAjat").Rows.Count > 0 Then

            rivi = (TietoDataSet.Tables("TyövuoroAjat").Rows(0)(0))

            '    MsgBox(rivi.ToString)
        End If
        '

        ' Tallentaa TyövuoroaikaID:n TyövuorotDatasettiin

        TyövuoroAikaIDTextBox.Text = rivi.ToString
        Me.Validate()
        Me.TyöVuorotBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.TietokantaDataSet)






    End If
End Sub

Private Sub TyövuoroAikaIDTextBox_TextChanged...
'Mitä ihmettä? Joka kerta kun lyöt uuden kirjaimen niin...
'Siirrä nyt ihmeessä koodi täältä vaikkapa jonkun nappulan Click_Tapahtuman taakse!

'ja testaa sitten koko tämä osuus:

Dim IsExisting As Boolean = False
For Each dt As DataTable In TietoDataSet.Tables
        If dt.TableName = "Työvuoroajat" Then
                IsExisting = True: Exit For
        End If
Next
If IsExisting Then

        TyövuoroAjatBindingSource.Clear
        TyövuoroAjatBindingSource.DataSource = TietoDataSet

        Try
                TyövuoroAjatBindingSource.DataMember = "Työvuoroajat"
        Catch ex As Exception
                MsgBox(ex.Message)
        End Try
Else
        MsgBox("Niin että mitkä Työvuoroajat?")
End If
'...

'...
Dim IsExisting As Boolean = False
For Each dt As DataTable In TietoDataSet.Tables
        If dt.TableName = "Työvuoroajat" Then
                For Each dcol As DataColumn In dt.Columns
                        If dcol.ColumnName = "TyövuoroAlkaaKlo" Then
                             IsExisting = True: Exit For
                        End If
                Next  dcol
        End If
        If IsExisting Then Exit For
Next dt
If IsExisting Then

        TyövuoroAjatBindingSource.Clear
        TyövuoroAjatBindingSource.DataSource = TietoDataSet

        Try
                TyövuoroAjatBindingSource.DataMember = "Työvuoroajat"
        Catch ex As Exception
                MsgBox(ex.Message)
        End Try
Else
        MsgBox("Niin että mikä TyövuoroAlkaaKlo?")
End If
'...