Archief - ASP.NET: Probleem met gegevens wegschrijven in database

Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.
M

MenDaxx

Legacy Member
Ik moet dus voor een website een soort nieuws-systeem maken.
De gegevens zijn auteur, onderwerp, datum & omschrijving.
Ik heb dit als code :
Code: 
Dim myConnection As OleDbConnection
Dim cmdToevoegen As OleDbCommand
Dim OleDbString As String
myConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & Server.MapPath("herman.mdb"))
myConnection.Open()

Dim strDatum As DateTime = System.DateTime.Now

OleDbString = "INSERT INTO Nieuws (auteur, onderwerp, datum, omschrijving) " & _
"VALUES (@auteur, @onderwerp, @datum, @omschrijving)"

cmdToevoegen = new OleDbCommand (OleDbString, myConnection)
cmdToevoegen.Parameters.Add("@auteur", txtAuteur.Text)
cmdToevoegen.Parameters.Add("@onderwerp", txtOnderwerp.Text)
cmdToevoegen.Parameters.Add("@datum", strDatum)
cmdToevoegen.Parameters.Add("@omschrijving", txtBericht.Text)

cmdToevoegen.ExecuteNonQuery()
myConnection.Close()
response.redirect("welkom.aspx")

Maar hij wilt de gegevens dus niet in de database schrijven.
Ik krijg als fout ==> Gegevenstypen komen niet overeen in criteriumexpressie

Iemand enig idee wat er mis is met mijn code?

Dank op voorhand
b

borracho

Legacy Member
vervang datetime is met volgende
dim strDatum as string = now.toshortdatestring()
M

MenDaxx

Legacy Member
Jah, hier ben ik weer.
Heb nu een probleem met het verwijderen van een post.
Code: 
Dim myConnection As OleDbConnection
    Dim OleDbString As String
    Dim dtrNieuws As OleDbDataReader
    Dim cmdSelect As OleDbCommand
    Dim cmdUpdate As OleDbCommand

    Sub Page_Load()
    If Not Page.IsPostBack Then
        myConnection = new OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & Server.MapPath("herman.mdb"))
        OleDbString="SELECT Onderwerp, PostId FROM Nieuws"
        cmdSelect = New OleDbCommand (OleDbString, myConnection)
        myConnection.Open()
        dtrNieuws = cmdSelect.ExecuteReader()
        drpNieuws.DataSource=dtrNieuws
        drpNieuws.DataTextField="Onderwerp"
        drpNieuws.DataValueField="PostId"
        drpNieuws.DataBind()
        drpNieuws.Items.Insert(0, New ListItem("Maak een keuze...", -1))
        dtrNieuws.Close()
        myConnection.Close()
    End If
    End Sub

    Sub drpKlanten_SelectedIndexChanged(s As Object, e As EventArgs)
        Dim intPostId As Integer = drpNieuws.SelectedItem.Value
        If intPostId <> -1 Then
            OleDbString = "SELECT * FROM Nieuws WHERE PostId=" & intPostId
            myConnection = new OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & Server.MapPath("herman.mdb"))
            myConnection.Open()
            cmdSelect = New OleDbCommand(OleDbString, myConnection)
            dtrNieuws=cmdSelect.ExecuteReader()

            Do While dtrNieuws.Read()
                lblAuteur.Text = dtrNieuws("Auteur")
                lblOnderwerp.Text = dtrNieuws("Onderwerp")
                lblDatum.Text = dtrNieuws("Datum")
                lblBericht.Text = dtrNieuws("Omschrijving")
                txtPostId.Text = dtrNieuws("PostId")
            Loop
            dtrNieuws.Close()
            myConnection.Close()

            panel1.visible="false"
            panel2.visible="true"
        End If
    End Sub

    Sub Button1_Click(s As Object, e As EventArgs)
        OleDbString="DELETE Nieuws WHERE PostId=@PostId"
        myConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & Server.MapPath("herman.mdb"))
        cmdUpdate = New OleDbCommand (OleDbString, myConnection)
        cmdUpdate.Parameters.Add("@PostId", txtPostId.Text)
        myConnection.Open()
        cmdUpdate.ExecuteNonQuery()
        myConnection.Close
        response.redirect("welkom.aspx")
    End Sub

    Sub Button2_Click(s As Object, e As EventArgs)
        panel1.visible="true"
        panel2.visible="false"
    End Sub

Als fout geeft hij ==> Syntaxisfout (operator ontbreekt) in query-expressie Nieuws WHERE PostId=@PostId


Iemand een idee?
B

Boddah

Legacy Member
idd, het is DELETE FROM Nieuws ...

eigenlijk is het beter om met stored procedures te werken, oa omdat dan de syntax in de dbms steeds gecontroleerd wordt op zo'n foutjes.
M

MenDaxx

Legacy Member
Ahja... stupid me :doh:
Thanks both

Ma kga nu nog es iets moeten vragen... Heb ook een probleem bij het bijwerken van gegevens.
Ik krijg geen foutmeldingen, maar hij past nix aan in de database.

Code: 
    Dim myConnection As OleDbConnection
    Dim OleDbString As String
    Dim dtrNieuws As OleDbDataReader
    Dim cmdSelect As OleDbCommand
    Dim cmdUpdate As OleDbCommand
    Dim strDatum As String = now.toshortdatestring()
    
    Sub Page_Load()
    If Not Page.IsPostback Then
        myConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & Server.MapPath("herman.mdb"))
        OleDbString="SELECT PostId, Onderwerp FROM Nieuws"
        cmdSelect = New OleDbCommand (OleDbString, myConnection)
        myConnection.Open()
        dtrNieuws = cmdSelect.ExecuteReader()
        drpNieuws.DataSource=dtrNieuws
        drpNieuws.DataTextField="Onderwerp"
        drpNieuws.DataValueField="PostId"
        drpNieuws.DataBind()
        drpNieuws.Items.Insert(0, New ListItem("Maak een keuze...", -1))
        dtrNieuws.Close()
        myConnection.Close()
    End If
    End Sub
    
    Sub drpNieuws_SelectedIndexChanged(s As Object, e As EventArgs)
    Dim intPostId As Integer = drpNieuws.SelectedItem.Value
    If intPostId <> -1 Then
        OleDbString = "SELECT * FROM Nieuws WHERE PostId=" & intPostId
        myConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & Server.MapPath("herman.mdb"))
        myConnection.Open()
        cmdSelect = New OleDbCommand (OleDbString, myConnection)
        dtrNieuws = cmdSelect.ExecuteReader()
    
        Do While dtrNieuws.Read()
            txtAuteur.Text = dtrNieuws("Auteur")
            txtOnderwerp.Text = dtrNieuws("Onderwerp")
            txtBericht.Text = dtrNieuws("Omschrijving")
            txtPostId.Text = dtrNieuws("PostId")
        Loop
        dtrNieuws.Close()
        myConnection.Close()
    
        panel1.visible="false"
        panel2.Visible="true"
    End If
    End Sub
    
    Sub Button1_Click(s As Object, e As EventArgs)
        OleDbString="UPDATE Nieuws SET Auteur=@Auteur, Onderwerp=@Onderwerp, Omschrijving=@Omschrijving WHERE PostId=@PostId"
        myConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & Server.MapPath("herman.mdb"))
        cmdUpdate = New OleDbCommand (OleDbString, myConnection)
        cmdUpdate.Parameters.Add("@Auteur", txtAuteur.Text)
        cmdUpdate.Parameters.Add("@Onderwerp", txtOnderwerp.Text)
        cmdUpdate.Parameters.Add("@Datum", strDatum)
        cmdUpdate.Parameters.Add("@Omschrijving", txtBericht.Text)
        cmdUpdate.Parameters.Add("@PostId", txtPostId.Text)
        myConnection.Open()
        cmdUpdate.ExecuteNonQuery()
        myConnection.Close()
        response.redirect("welkom.aspx")
    End Sub
B

Breen

Legacy Member
Geef je nu postId niet mee als string, waardoor die where clause, dus nooit waar is...
B

Boddah

Legacy Member
idd.
ik werk steeds op de volgende manier met parameters:
PHP: 
SqlParameter pPostId = new SqlParameter("@postId", SqlDbType.Int, 4);
pPostId.Value = txtPostId.Text;
cmdUpdate.Parameters.Add(pPostId);
(is wel C#, maar lijkt mij duidelijk)
Dit is wel iets omslachtigers (3 regels code per parameter) maar nu kun je duidelijk in de code zien welk datatype de parameter moet zijn. als ik dit nu compileer zal er een foutmelding gegeven worden dat er een int wordt verwacht en geen string.
op jouw manier zal enkel at runtime duidelijk worden dat er iets mis is :)
Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.
Terug
Bovenaan