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

[vb.net 2005] insert into database (Opgelost)

gerits - 22/11/2007 12:51

Lid

ik ben bezig met een programma waar ik gegevens in een database zou moeten wegschrijven. Nu heb ik hier onderstaande code voor:

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

                Dim oConString2 As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|schoolagenda.mdb;"
        Dim oCon2 As New OleDb.OleDbConnection(oConString2)

        Dim sqlVakBestaat As String = "SELECT COUNT(*) FROM tblVakken WHERE Naam = '" & Me.txtVakAdd.Text & "'"
        Dim oCmdVakBestaat As New OleDbCommand(sqlVakBestaat, oCon2)

        Try
            oCon2.Open()
            Dim oReaderVakBestaat As OleDbDataReader = oCmdVakBestaat.ExecuteReader
            oReaderVakBestaat.Read()
            If (Me.txtVakAdd.Text.Equals("")) Then
                MessageBox.Show("Vul een vaknaam in!", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            ElseIf (oReaderVakBestaat(0) > 0) Then
                MessageBox.Show("Het ingevoerde vak bestaat reeds!", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Else
                'insert into database
                Dim sSQL As String = "INSERT INTO tblVakken(naam) VALUES('" & Me.txtVakAdd.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
            oCmdVakBestaat.Dispose()
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        Finally
            oCon2.Close()
            oCon2.Dispose()
        End Try
            
Dim oConString2 As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|schoolagenda.mdb;"
        Dim oCon2 As New OleDb.OleDbConnection(oConString2)
 
        Dim sqlVakBestaat As String = "SELECT COUNT(*) FROM tblVakken WHERE Naam = '" & Me.txtVakAdd.Text & "'"
        Dim oCmdVakBestaat As New OleDbCommand(sqlVakBestaat, oCon2)
 
        Try
            oCon2.Open()
            Dim oReaderVakBestaat As OleDbDataReader = oCmdVakBestaat.ExecuteReader
            oReaderVakBestaat.Read()
            If (Me.txtVakAdd.Text.Equals("")) Then
                MessageBox.Show("Vul een vaknaam in!", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            ElseIf (oReaderVakBestaat(0) > 0) Then
                MessageBox.Show("Het ingevoerde vak bestaat reeds!", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Else
                'insert into database
                Dim sSQL As String = "INSERT INTO tblVakken(naam) VALUES('" & Me.txtVakAdd.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
            oCmdVakBestaat.Dispose()
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        Finally
            oCon2.Close()
            oCon2.Dispose()
        End Try
 

Zolang het programma draait lijkt hij de gegevens wel in de database te zetten, maar als ik het afsluit zijn de ingevoerde gegevens weer weg. Wat ontbreekt er nog?

5 antwoorden

Gesponsorde links

Abbas - 22/11/2007 13:54

Crew .NET

Waarom 2x een verbinding sluiten als je ze maar een keer open doet. Op regel 27 sluit je de verbinding en daarna nog eens op regel 34. Dat is zeker niet in orde. Declareer voor de duidelijkheid eens je variabelen op voorhand en niet apart allemaal in een codeblok. Wat nog niet logisch is, is dat je al een query maakt gebaseerd op de waarde van een tekstvak en pas daarna gaat controleren of er wel iets ingevuld is. Het is een beetje rommelige code, vind je zelf niet?

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

                Dim oConString2 As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|schoolagenda.mdb;"
Dim oCon2 As New OleDb.OleDbConnection(oConString2)
Dim sqlVakBestaat As String
Dim sSQL As String
Dim oCmdVakBestaat As OleDbCommand()
Dim oCom As OleDbCommand()
Dim oReaderVakBestaat As OleDbDataReader

If (Me.txtVakAdd.Text.Equals("")) Then
    MessageBox.Show("Vul een vaknaam in!", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Else
    Try
        oCon2.Open()
        sqlVakBestaat = "SELECT COUNT(*) FROM tblVakken WHERE Naam = '" & Me.txtVakAdd.Text & "'"
        oCmdVakBestaat = New OleDbCommand(sqlVakBestaat, oCon2)
        oReaderVakBestaat = oCmdVakBestaat.ExecuteReader
        oReaderVakBestaat.Read()
        
        If (oReaderVakBestaat(0) > 0) Then
            MessageBox.Show("Het ingevoerde vak bestaat reeds!", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        Else
            'insert into database
            sSQL = "INSERT INTO tblVakken(naam) VALUES('" & Me.txtVakAdd.Text & "')"
            oCom = New OleDbCommand(sSQL, oCon2)

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

            
Dim oConString2 As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|schoolagenda.mdb;"
Dim oCon2 As New OleDb.OleDbConnection(oConString2)
Dim sqlVakBestaat As String
Dim sSQL As String
Dim oCmdVakBestaat As OleDbCommand()
Dim oCom As OleDbCommand()
Dim oReaderVakBestaat As OleDbDataReader
 
If (Me.txtVakAdd.Text.Equals("")) Then
    MessageBox.Show("Vul een vaknaam in!", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Else
    Try
        oCon2.Open()
        sqlVakBestaat = "SELECT COUNT(*) FROM tblVakken WHERE Naam = '" & Me.txtVakAdd.Text & "'"
        oCmdVakBestaat = New OleDbCommand(sqlVakBestaat, oCon2)
        oReaderVakBestaat = oCmdVakBestaat.ExecuteReader
        oReaderVakBestaat.Read()
 
        If (oReaderVakBestaat(0) > 0) Then
            MessageBox.Show("Het ingevoerde vak bestaat reeds!", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        Else
            'insert into database
            sSQL = "INSERT INTO tblVakken(naam) VALUES('" & Me.txtVakAdd.Text & "')"
            oCom = New OleDbCommand(sSQL, oCon2)
 
            Try
                oCom.ExecuteNonQuery()
            Catch ex As Exception
                MsgBox(ex.Message)
            Finally
                oCom.Dispose()           
            End Try
        End If
 
        oCmdVakBestaat.Dispose()
    Catch ex As Exception
        MessageBox.Show(ex.ToString)
    Finally
        oCon2.Close()
        oCon2.Dispose()
    End Try
End If
 

Probeer dit eens, misschien heb ik per ongeluk met het op voorhand definieren van variabelen een klein foutje gemaakt maar normaal is deze code al veel beter. Verder heb ik niet direct een fout gevonden in je code.

gerits - 22/11/2007 14:20
Lid		ben nog maar pas terug begonnen met programmeren, en door al het opzoeken is mijn code nogal rommelig geworden.. maar met bovenstaande code doet hij nog altijd hetzelfde. Hij voegt het wel toe enzo, maar als ik mijn programma sluit is het weer weg.

Abbas - 22/11/2007 14:30
Crew .NET		Hm dan zal ik er straks nog eens verder naar zoeken, maar de code is nu in ieder geval al logischer en duidelijker!

gerits - 22/11/2007 15:34 (laatste wijziging 22/11/2007 15:44)
Lid		dat is al een feit merci alvast edit: ik heb zojuist iets ontdenkt. Als ik het programma build zet hij wel alles gewoon in de database zoals het hoord, maar als ik debug schrijft hij niks weg. Maar het werkt dus wel in princiepe

Abbas - 22/11/2007 16:30
Crew .NET		Wat wil je eigenlijk zeggen met dat het wel werkt als je build maar niet als je debugt? Probeer eerst het programma te ontwikkelen en debuggen zonder rekening te houden met het feit of er al dan niets weggeschreven wordt. Daarna test je het programma vanuit de .exe en niet vanuit Visual Studio. Als de .exe werkt is er niets aan de hand!

Gesponsorde links

Dit onderwerp is gesloten.

Actiefste leden van de maand

Actieve forumberichten