code doesn't update database
I have a piece of code on a button to update the database everything runs through fine but the database doesn't change....
Any suggestions........
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & Server.MapPath("\Copy_of_SiteDoc\SiteDoc\SiteDocum entation.mdb")
sql = "Update SiteDocNew Set [Site Activation Date] = @activation, LatDeg = @LatDeg, LatMin = @LatMin, LatSec = @LatSec, LongDeg = @LongMin, LongSec = @LongSec, [Site Elevation] = @Elevation, [Map Sheet#] = @mapNum, [Sampling Frequency] = @frequency, Northing = @Northing, Easting = @Easting, Scale = @Scale WHERE Envirodat = @Envirodat"
Dim UpdCmdTxt As OleDbCommand
UpdCmdTxt = New OleDbCommand(sql, New OleDbConnection(connstr))
UpdCmdTxt.Parameters.Add(New OleDbParameter("@activation", OleDbType.Date, 25))
UpdCmdTxt.Parameters.Add(New OleDbParameter("@LatDeg", OleDbType.Integer, 4))
UpdCmdTxt.Parameters.Add(New OleDbParameter("@LatMin", OleDbType.Integer, 4))
UpdCmdTxt.Parameters.Add(New OleDbParameter("@LatSec", OleDbType.Numeric, 5))
UpdCmdTxt.Parameters.Add(New OleDbParameter("@LongDeg", OleDbType.Integer, 4))
UpdCmdTxt.Parameters.Add(New OleDbParameter("@LongMin", OleDbType.Integer, 4))
UpdCmdTxt.Parameters.Add(New OleDbParameter("@LongSec", OleDbType.Numeric, 5))
UpdCmdTxt.Parameters.Add(New OleDbParameter("@Elevation", OleDbType.Numeric, 10))
UpdCmdTxt.Parameters.Add(New OleDbParameter("@mapNum", OleDbType.VarWChar, 30))
UpdCmdTxt.Parameters.Add(New OleDbParameter("@frequency", OleDbType.VarWChar, 15))
UpdCmdTxt.Parameters.Add(New OleDbParameter("@northing", OleDbType.Double, 20))
UpdCmdTxt.Parameters.Add(New OleDbParameter("@Easting", OleDbType.Double, 20))
UpdCmdTxt.Parameters.Add(New OleDbParameter("@scale", OleDbType.VarWChar, 15))
UpdCmdTxt.Parameters.Add(New OleDbParameter("@Envirodat", OleDbType.VarWChar, 12))
UpdCmdTxt.Parameters("@activation").Value = txtActivationDate.Text
UpdCmdTxt.Parameters("@LatDeg").Value = txtLatDeg.Text
UpdCmdTxt.Parameters("@LatMin").Value = txtLatMin.Text
UpdCmdTxt.Parameters("@LatSec").Value = txtLatSec.Text
UpdCmdTxt.Parameters("@LongDeg").Value = txtLongDeg.Text
UpdCmdTxt.Parameters("@LongMin").Value = txtLongMin.Text
UpdCmdTxt.Parameters("@LongSec").Value = txtLongSec.Text
UpdCmdTxt.Parameters("@elevation").Value = txtSiteElevation.Text
UpdCmdTxt.Parameters("@mapNum").Value = txtMapSheetNumber.Text
UpdCmdTxt.Parameters("@frequency").Value = txtSamplingFreq.Text
UpdCmdTxt.Parameters("@northing").Value = txtNorthing.Text
UpdCmdTxt.Parameters("@easting").Value = txtEasting.Text
UpdCmdTxt.Parameters("@scale").Value = txtScale.Text
UpdCmdTxt.Parameters("@Envirodat").Value = txtEnvirodat.Text
UpdCmdTxt.Connection.Open()
UpdCmdTxt.ExecuteNonQuery()
UpdCmdTxt.Connection.Close()
|