Mijn Database blijft leeg

[Januil]

Beste mensen,

Ik heb in visual studio 2012 een programma geschreven voor een clientenadministratie.
er zit een database in met 2 tabellen, basisgegevens client en een tabel met behandeldata, met een relatie op clientID.
als ik het programma run dan worden beide tabellen keurig gevuld.
echter als ik in de serverconnectie kijk en vraag om de data uit de tabellen te previewen staat er helemaal niets in!!!
alleen maar NULL.
Wat doe ik verkeerd?

Alvast dank voor de hulp


Groet

Jan

 

[Maximvdw]

Code zou hierbij gewenst zijn, anders kunnen we je niet helpen :S

- Maximvdw

 

[Januil]

Ja, dat was idd niet slim van me.
Maar na een dag puzzelen was de "pijp leeg"

Hierbij de code van het form waar ik info via binnen haal.
Zoals gezegd haalt hij de data goed binnen. Bij een volgende run van het programma zijn de data keurig beschikbaar.
Echter als ik via bijv. Crystal Reports een factuur in de vorm van een rapport wil maken kom ik erachter dat er geen data in de echte database komt.

Vervolgens heb ik om te testen maar eens een nieuw projectje aangemaakt met een simpele database met 2 velden.
vervolgens via een datagridview op een form en via de menubalk gevuld met hetzelfde resultaat.
ik denk dus dat het meer een instellingen verhaal is maar zou niet weten waar te moeten zoeken.

hier de code:

[I]Public Class overzicht

    ' accepteert enter als tab

    Private Sub tabnaarenter_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If e.KeyCode = Keys.Tab Then
            e.SuppressKeyPress = True
        ElseIf e.KeyCode = Keys.Enter Then
            SendKeys.Send(vbTab)
        End If
    End Sub

  Private Sub Overzicht_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        'Acties bij het openen van het formulier

        '    Me.BasisgegevensTableAdapter.Fill(Me.Database1DataSet.Basisgegevens) 'dit kan beter ergens anders staan
        Label1.Text = "de waarde van keuze is: " & keuze

        Select Case keuze

            Case 1
                'scherm instellen op toevoegen
                Me.Text = "Clienten toevoegen"
                Me.ZoekTextBox.Visible = False
                Me.Zoeklabel.Visible = False
                Me.Toevoegen.Text = "Nog een cliënt toevoegen"
                Me.BasisgegevensBindingSource.AddNew()
                Me.ManCheckBox.CheckState = False
                Me.VrouwCheckBox.CheckState = False


            Case 2
                'scherm instellen op wijzigen

                Me.ZoekTextBox.Focus()
                Me.Text = "Gegevens cliënt wijzigen"
                Me.Zoeklabel.Text = "Achternaam van de te wijzigen Cliënt"
                Me.Toevoegen.Text = "Nog een cliënt wijzigen"

            Case 3
                'scherm instellen op verwijderden

                blokkeren()   'Invoer is geblokkerd
                Me.ZoekTextBox.Focus()
                Me.Text = "Gegevens cliënt verwijderen"
                Me.Zoeklabel.Text = "Achternaam van de te verwijderen cliënt"
                Me.Toevoegen.Text = "Nog een cliënt verwijderen"

            Case 4
                'scherm instellen op raadplegen

                blokkeren() 'invoer is geblokkeerd
                Me.ZoekTextBox.Focus()
                Me.Text = "Gegevens cliënt raadplegen"
                Me.Zoeklabel.Text = "Achternaam van de cliënt?"
                Me.Toevoegen.Visible = False                           '|
                Me.Opslaan.Visible = False                             '| Overbodige knoppen weghalen
                Me.HoofdmenuTextbox.Text = "Terug naar Hoofdmenu"      '|

        End Select

    End Sub

 Private Sub Toevoegen_Click(sender As System.Object, e As System.EventArgs) Handles Toevoegen.Click

        Select Case keuze

            Case 1
                'Als keuze 1 is wordt er toegevoegd

                If Me.AchternaamTextBox.Text <> "" Then
                    Me.Validate()
                    Me.BasisgegevensBindingSource.EndEdit()
                    Me.TableAdapterManager.UpdateAll(Me.Database1DataSet)
                    MsgBox("Er is een nieuw record toegevoegd")
                    Me.ManCheckBox.CheckState = False
                    Me.VrouwCheckBox.CheckState = False
                    Me.AdresTextBox.Focus()
                Else
                    MsgBox("Er is geen achternaam ingevuld")
                    Me.AchternaamTextBox.Focus()

                End If

            Case 2
                'Als keuze 2 is wordt er gewijzigd

                If Me.AchternaamTextBox.Text <> "" Then
                    Me.Validate()
                    Me.BasisgegevensBindingSource.EndEdit()
                    Me.TableAdapterManager.UpdateAll(Me.Database1DataSet)
                    MsgBox("Gegevens gewijzigd")
                    Me.ZoekTextBox.Focus()
                Else
                    MsgBox("Er is geen achternaam ingevuld")
                    Me.AchternaamTextBox.Focus()
                End If

            Case 3
                'Als keuze 3 is wordt er verwijderd

                Select Case MsgBox("Record verwijderen?", MessageBoxButtons.YesNo, MessageBoxIcon.Warning)
                    Case MsgBoxResult.Yes
                        Me.Validate()
                        Me.BasisgegevensBindingSource.RemoveCurrent()
                        Me.TableAdapterManager.UpdateAll(Me.Database1DataSet)
                        MsgBox("Record verwijderd")
                        ZoekTextBox.Focus()

                    Case MsgBoxResult.No
                        MsgBox("Record niet verwijderd")
                        ZoekTextBox.Focus()
                End Select

        End Select

    End Sub

 Private Sub Hoofdmenu_Click(sender As System.Object, e As System.EventArgs) Handles HoofdmenuTextbox.Click

        Select Case keuze

            Case 4
                'Alle invoerboxen weer vrijgeven voor invoer en/of terug naar hoofdmenu
                vrijgeven()
                Me.Close()
                hoofdmenu.Show()

        End Select

        Me.Close()
        hoofdmenu.Show()

    End Sub

Private Sub Opslaan_Click(sender As System.Object, e As System.EventArgs) Handles Opslaan.Click

        Select Case keuze

            Case 3
                Select Case MsgBox("Record verwijderen?", MessageBoxButtons.YesNo, MessageBoxIcon.Warning)

                    Case MsgBoxResult.Yes
                        Me.Validate()
                        Me.BasisgegevensBindingSource.RemoveCurrent()
                        Me.TableAdapterManager.UpdateAll(Me.Database1DataSet)
                        MsgBox("Record verwijderd")
                        vrijgeven()
                        Me.Close()
                        hoofdmenu.Show()

                    Case MsgBoxResult.No
                        MsgBox("Record niet verwijderd")
                        vrijgeven()
                        Me.Close()
                        hoofdmenu.Show()

                End Select

        End Select

        If keuze <> 3 Then

            If Me.AchternaamTextBox.Text <> "" Then
                Me.Validate()
                Me.BasisgegevensBindingSource.EndEdit()
                Me.TableAdapterManager.UpdateAll(Me.Database1DataSet)
                MsgBox("Er is een nieuw record toegevoegd")
                Me.Close()
                hoofdmenu.Show()
            Else
                MsgBox("Er is geen acchternaam ingevuld")
                Me.AchternaamTextBox.Focus()

            End If

        End If

    End Sub

Private Sub vorige_Click(sender As System.Object, e As System.EventArgs) Handles Vorige.Click
        Me.BasisgegevensBindingSource.MovePrevious()
    End Sub

  Private Sub volgende_Click(sender As System.Object, e As System.EventArgs) Handles Volgende.Click
        Me.BasisgegevensBindingSource.MoveNext()
    End Sub

 Private Sub eerste_Click(sender As System.Object, e As System.EventArgs) Handles Eerste.Click
        Me.BasisgegevensBindingSource.MoveFirst()
    End Sub

   Private Sub laatste_Click(sender As System.Object, e As System.EventArgs) Handles Laatste.Click
        Me.BasisgegevensBindingSource.MoveLast()
    End Sub

Private Sub ZoekTextBox_TextChanged(sender As Object, e As EventArgs) Handles ZoekTextBox.TextChanged

        'Zoeken op achternaam

        Try
            Me.BasisgegevensTableAdapter.Achternaam(Me.Database1DataSet.Basisgegevens, ZoekTextBox.Text & "%")
        Catch ex As System.Exception
            System.Windows.Forms.MessageBox.Show(ex.Message)
        End Try

    End Sub

End Class[/I]

Hoop echt dat jullie me kunnen helpen

Jan

 

[huijb]

Januil voor je verder gaat lees dit even http://www.helpmij.nl/forum/showthread.php/321171-Lees-dit-eerst-voor-je-een-vraag-plaatst

 

[huijb]

Verplaatst, Visual Basic is iets anders dan VBA

 

[Januil]

oke begrepen
groet
Jan