Scripts - Tutorials - Forum - Downloads - Showcase - Contact

Artikels

VPN vergelijken

Algemeen

Beginpagina

FAQ

Grafische worm (243)

Links

Nieuwsartikels

Nieuwsarchief

Boeken programmeren

Overzicht

Samenwerken

Webhosting

Zoek op Sitemasters

Leden

Registreren

Ledenlijst

Ons team

Links

webhostingtop10.be

Sociale media

Follow @sitemasters

Sitemasters

Adverteren op Sitemasters?

Contacteer ons

RSS

Link naar ons

Donaties

Poll

Je moet ingelogd zijn om te stemmen.

Statistieken

Linkpartners

Forum

Categorieën > VB.NET

Foutmelding word steeds bij elkaar opgeteld (Opgelost)

rredspike1 - 01/11/2008 03:09 (laatste wijziging 01/11/2008 03:09)

Lid

Zie code

vbnet code - Bekijk de code zonder highlighting - Klap code in

                Private Sub btnNieuweKlantToevoegen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNieuweKlantToevoegen.Click
        Dim oConString2 As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|MSP.mdb;"
        Dim oCon2 As New OleDb.OleDbConnection(oConString2)

        Dim sqlBedrijfsnaam_Contactpersoon_bestaat As String = "SELECT COUNT(*) FROM Klanten WHERE Bedrijfsnaam = '" & Me.txtBedrijfsnaam_Klanten.Text & "' AND Contactpersoon = '" & Me.txtContactpersoon_Klanten.Text & "'"
        Dim oCmdBedrijfsnaam_Contactpersoon_bestaat As New OleDbCommand(sqlBedrijfsnaam_Contactpersoon_bestaat, oCon2)

        If String.IsNullOrEmpty(txtBedrijfsnaam_Klanten.Text) Then
            strErrors &= "- Er is geen bedrijfsnaam ingevuld!" & Environment.NewLine
            xErrors = xErrors + 1
        End If
        If String.IsNullOrEmpty(txtContactpersoon_Klanten.Text) Then
            strErrors &= "- Er is geen contactpersoon ingevuld!" & Environment.NewLine
            xErrors = xErrors + 1
        End If
        If String.IsNullOrEmpty(txtAdres_Klanten.Text) Then
            strErrors &= "- Er is geen adres ingevuld!" & Environment.NewLine
            xErrors = xErrors + 1
        End If
        If String.IsNullOrEmpty(txtPostcode_Klanten.Text) Then
            strErrors &= "- Er is geen postcode ingevuld!" & Environment.NewLine
            xErrors = xErrors + 1
        End If
        If String.IsNullOrEmpty(txtPlaats_Klanten.Text) Then
            strErrors &= "- Er is geen plaats ingevuld!" & Environment.NewLine
            xErrors = xErrors + 1
        End If
        If String.IsNullOrEmpty(txtTelefoonnummer_Klanten.Text) Then
            strErrors &= "- Er is geen telefoonnummer ingevuld!" & Environment.NewLine
            xErrors = xErrors + 1
        End If
        If String.IsNullOrEmpty(txtEmailadres_Klanten.Text) Then
            strErrors &= "- Er is geen emailadres ingevuld!" & Environment.NewLine
            xErrors = xErrors + 1
        End If

        Try
            oCon2.Open()
            Dim oReaderBedrijfsnaam_Contactpersoon_Bestaat As OleDbDataReader = oCmdBedrijfsnaam_Contactpersoon_bestaat.ExecuteReader
            oReaderBedrijfsnaam_Contactpersoon_Bestaat.Read()
            If (oReaderBedrijfsnaam_Contactpersoon_Bestaat(0) > 0) Then
                strErrors &= "- Bedrijfsnaam bestaat al!" & Environment.NewLine
                xErrors = xErrors + 1
            End If
            If (oReaderBedrijfsnaam_Contactpersoon_Bestaat(0) > 0) Then
                strErrors &= "- Contactpersoon bestaat al!" & Environment.NewLine
                xErrors = xErrors + 1
            End If

            'Alle errors bij elkaar optellen en weergeven'
            If xErrors > 0 Then
                MessageBox.Show(strErrors, "Fout", MessageBoxButtons.OK, MessageBoxIcon.Warning)
                If Windows.Forms.DialogResult.OK Then
                    xErrors = 0
                End If
            Else
                'insert into database
                Dim sSQL As String = "INSERT INTO Klanten(Bedrijfsnaam, Contactpersoon, Adres, Postcode, Plaats, Telefoonnummer, Faxnummer, Emailadres) VALUES('" & Me.txtBedrijfsnaam_Klanten.Text & "', '" & Me.txtContactpersoon_Klanten.Text & "', '" & Me.txtAdres_Klanten.Text & "', '" & Me.txtPostcode_Klanten.Text & "', '" & Me.txtPlaats_Klanten.Text & "', '" & Me.txtTelefoonnummer_Klanten.Text & "', '" & Me.txtFaxnummer_Klanten.Text & "', '" & Me.txtEmailadres_Klanten.Text & "')"
                Dim oCom As New OleDbCommand(sSQL, oCon2)

                Try
                    oCom.ExecuteNonQuery()
                Catch ex As Exception
                    MsgBox(ex.Message)
                Finally
                    oCom.Dispose()
                    oCon2.Dispose()
                    oCon2.Close()
                End Try
            End If

            oCmdBedrijfsnaam_Contactpersoon_bestaat.Dispose()
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        Finally
            oCon2.Close()
            oCon2.Dispose()
        End Try
    End Sub
End Class

            
Private Sub btnNieuweKlantToevoegen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNieuweKlantToevoegen.Click
        Dim oConString2 As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|MSP.mdb;"
        Dim oCon2 As New OleDb.OleDbConnection(oConString2)
 
        Dim sqlBedrijfsnaam_Contactpersoon_bestaat As String = "SELECT COUNT(*) FROM Klanten WHERE Bedrijfsnaam = '" & Me.txtBedrijfsnaam_Klanten.Text & "' AND Contactpersoon = '" & Me.txtContactpersoon_Klanten.Text & "'"
        Dim oCmdBedrijfsnaam_Contactpersoon_bestaat As New OleDbCommand(sqlBedrijfsnaam_Contactpersoon_bestaat, oCon2)
 
        If String.IsNullOrEmpty(txtBedrijfsnaam_Klanten.Text) Then
            strErrors &= "- Er is geen bedrijfsnaam ingevuld!" & Environment.NewLine
            xErrors = xErrors + 1
        End If
        If String.IsNullOrEmpty(txtContactpersoon_Klanten.Text) Then
            strErrors &= "- Er is geen contactpersoon ingevuld!" & Environment.NewLine
            xErrors = xErrors + 1
        End If
        If String.IsNullOrEmpty(txtAdres_Klanten.Text) Then
            strErrors &= "- Er is geen adres ingevuld!" & Environment.NewLine
            xErrors = xErrors + 1
        End If
        If String.IsNullOrEmpty(txtPostcode_Klanten.Text) Then
            strErrors &= "- Er is geen postcode ingevuld!" & Environment.NewLine
            xErrors = xErrors + 1
        End If
        If String.IsNullOrEmpty(txtPlaats_Klanten.Text) Then
            strErrors &= "- Er is geen plaats ingevuld!" & Environment.NewLine
            xErrors = xErrors + 1
        End If
        If String.IsNullOrEmpty(txtTelefoonnummer_Klanten.Text) Then
            strErrors &= "- Er is geen telefoonnummer ingevuld!" & Environment.NewLine
            xErrors = xErrors + 1
        End If
        If String.IsNullOrEmpty(txtEmailadres_Klanten.Text) Then
            strErrors &= "- Er is geen emailadres ingevuld!" & Environment.NewLine
            xErrors = xErrors + 1
        End If
 
        Try
            oCon2.Open()
            Dim oReaderBedrijfsnaam_Contactpersoon_Bestaat As OleDbDataReader = oCmdBedrijfsnaam_Contactpersoon_bestaat.ExecuteReader
            oReaderBedrijfsnaam_Contactpersoon_Bestaat.Read()
            If (oReaderBedrijfsnaam_Contactpersoon_Bestaat(0) > 0) Then
                strErrors &= "- Bedrijfsnaam bestaat al!" & Environment.NewLine
                xErrors = xErrors + 1
            End If
            If (oReaderBedrijfsnaam_Contactpersoon_Bestaat(0) > 0) Then
                strErrors &= "- Contactpersoon bestaat al!" & Environment.NewLine
                xErrors = xErrors + 1
            End If
 
            'Alle errors bij elkaar optellen en weergeven'
            If xErrors > 0 Then
                MessageBox.Show(strErrors, "Fout", MessageBoxButtons.OK, MessageBoxIcon.Warning)
                If Windows.Forms.DialogResult.OK Then
                    xErrors = 0
                End If
            Else
                'insert into database
                Dim sSQL As String = "INSERT INTO Klanten(Bedrijfsnaam, Contactpersoon, Adres, Postcode, Plaats, Telefoonnummer, Faxnummer, Emailadres) VALUES('" & Me.txtBedrijfsnaam_Klanten.Text & "', '" & Me.txtContactpersoon_Klanten.Text & "', '" & Me.txtAdres_Klanten.Text & "', '" & Me.txtPostcode_Klanten.Text & "', '" & Me.txtPlaats_Klanten.Text & "', '" & Me.txtTelefoonnummer_Klanten.Text & "', '" & Me.txtFaxnummer_Klanten.Text & "', '" & Me.txtEmailadres_Klanten.Text & "')"
                Dim oCom As New OleDbCommand(sSQL, oCon2)
 
                Try
                    oCom.ExecuteNonQuery()
                Catch ex As Exception
                    MsgBox(ex.Message)
                Finally
                    oCom.Dispose()
                    oCon2.Dispose()
                    oCon2.Close()
                End Try
            End If
 
            oCmdBedrijfsnaam_Contactpersoon_bestaat.Dispose()
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        Finally
            oCon2.Close()
            oCon2.Dispose()
        End Try
    End Sub
End Class
 

Telkens als ik een foutmelding krijg, dan de eerste keer zie ik bijvoorbeeld:
- fout nr 1
- fout nr 2
- etc..

Heb ik op OK gedrukt, en daarna op toevoegen, dat het weer een fout controle doet, krijg ik het volgende:
- fout nr 1
- fout nr 2
- fout nr 1
- fout nr 2

Zo gaat dat maar door...op een gegeven moment heb ik me een lijst...waarom zet dat ding...die integer niet op 0?
Staat er toch echt.

2 antwoorden

Gesponsorde links

Abbas - 01/11/2008 03:16 (laatste wijziging 01/11/2008 03:19)
Crew .NET		Nu is de structuur in je code al veel logischer! Zet die integer is op 0 en die string terug leeg elke keer als je op de knop klikt, en niet in een If-statement. Zoiets: vbnet code - Bekijk de code zonder highlighting - Klap code in 'Button Click ' xErrors = 0 ' strErrors = "" ' Controle ' DB Werk 'Einde Button Click 'Button Click ' xErrors = 0 ' strErrors = "" ' Controle ' DB Werk 'Einde Button Click

rredspike1 - 01/11/2008 03:25 (laatste wijziging 01/11/2008 04:18)

Lid

Yeah

Het is die strErrors = ""

Bedankt

Had eerst:

vbnet code - Bekijk de code zonder highlighting - Klap code in

                If xErrors > 0 Then
   MessageBox.Show(strErrors, "Fout", MessageBoxButtons.OK, MessageBoxIcon.Warning)
      If Windows.Forms.DialogResult.OK Then
      xErrors = 0
      End If
End If

            
If xErrors > 0 Then
   MessageBox.Show(strErrors, "Fout", MessageBoxButtons.OK, MessageBoxIcon.Warning)
      If Windows.Forms.DialogResult.OK Then
      xErrors = 0
      End If
End If
 

Heb nu:

vbnet code - Bekijk de code zonder highlighting - Klap code in

                If xErrors > 0 Then
   MessageBox.Show(strErrors, "Fout", MessageBoxButtons.OK, MessageBoxIcon.Warning)
   xErrors = 0
   strErrors = ""
End If

            
If xErrors > 0 Then
   MessageBox.Show(strErrors, "Fout", MessageBoxButtons.OK, MessageBoxIcon.Warning)
   xErrors = 0
   strErrors = ""
End If
 

Gesponsorde links

Dit onderwerp is gesloten.

Actiefste leden van de maand

Actieve forumberichten