Springen naar inhoud


- - - - -
DB .NET

Update In Access 2007

.NET

  • Log in a.u.b. om te beantwoorden
Er zijn 1 reacties in dit onderwerp

#1 Scheepers

Scheepers

    Senior Developer

  • Leden
  • PipPipPip
  • 225 berichten
    Laatst bezocht gisteren, 12:05

Geplaatst op 20 januari 2014 - 10:46

Ik ben bezig met een update naar een Access db 2007 met VB2010.
Wanneer ik de update rechtstreeks in Access zet gaat en goed, maar met onderstaande code gaat het fout.
Dus de kolomnaam en het vinden van het monsternummer is goed. De Uitslag is een integer.
Het openen van de DB gaat goed.
Het gaat fout bij de ExecuteNonQuery.


Code:
Private Function UpdateWijzingRecord(ByVal Monsternr As String, ByVal kolomnaam As String, ByVal Uitslag As Integer) As Boolean
		Dim cnUpdate As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Prenat 2012\Database\Prenat 2007\prenat.mdb")
		Dim cmdUpdate As New OleDbCommand
		Dim query As String
		Try
			UpdateWijzingRecord = False
			query = "UPDATE Screening SET " & kolomnaam & " = @" & kolomnaam & " WHERE MIN = @Monsternr"
			cmdUpdate.Parameters.Clear()
			HandleConnection(cnUpdate)
			With cmdUpdate
				.CommandText = query
				.CommandType = CommandType.Text
				.Parameters.AddWithValue("@" & kolomnaam, Uitslag)
				.Connection = cnUpdate
			End With
			cmdUpdate.ExecuteNonQuery()
			UpdateWijzingRecord = True
			cnUpdate.Close()
		Catch ex As Exception
			MsgBox(ex.Message, "Error")
		Finally
			cnUpdate.Close()
		End Try
	End Function



#2 Johnny

Johnny

    Senior Developer

  • Leden
  • PipPipPip
  • 192 berichten
    Laatst bezocht 16 nov 2018 14:19

Geplaatst op 20 januari 2014 - 11:31

Volgens mij mis je een parameter (@Monsternr):

Code:
query = "UPDATE Screening SET " & kolomnaam & " = @" & kolomnaam & " WHERE MIN = @Monsternr"


Je maakt alleen de parameter:

Code:
.Parameters.AddWithValue("@" & kolomnaam, Uitslag)







Ook met taq DB .NET, .NET voorzien

0 gebruiker(s) lezen dit onderwerp

0 lid(leden), 0 bezoeker(s), 0 anonieme gebruikers

Inloggen


[DB .NET] Untitled 1

Met dank aan J├╝rgen voor de jarenlange inzet van visualbasic.be (anno dec 2000)
Met dank aan Mike en Ronneke voor de jarenlange inzet van vbib.be (anno dec 2010)
Met dank aan PascalBianca voor de jarenlange inzet van vbib.be (anno dec 2016)