Wrox Programmer Forums
|
Beginning VB 6 For coders who are new to Visual Basic, working in VB version 6 (not .NET).
Welcome to the p2p.wrox.com Forums.

You are currently viewing the Beginning VB 6 section of the Wrox Programmer to Programmer discussions. This is a community of software programmers and website developers including Wrox book authors and readers. New member registration was closed in 2019. New posts were shut off and the site was archived into this static format as of October 1, 2020. If you require technical support for a Wrox book please contact http://hub.wiley.com
 
Old February 7th, 2005, 09:57 AM
Registered User
 
Join Date: Jan 2005
Posts: 8
Thanks: 0
Thanked 0 Times in 0 Posts
Default 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()


 
Old February 7th, 2005, 10:18 AM
Friend of Wrox
 
Join Date: Jun 2003
Posts: 2,189
Thanks: 5
Thanked 59 Times in 57 Posts
Send a message via MSN to gbianchi
Default

hi there..

is this .net??? because this forum is vb beggining... for VB 6 or earlier...

also... why dont you have an error receiver for the executenonquery.. didn't it give you a numeric code to know if the query execute ok or not?? maybe it's a problem with the update...

HTH

Gonzalo





Similar Threads
Thread Thread Starter Forum Replies Last Post
Code for Update Casst Visual Studio 2005 0 May 23rd, 2007 09:29 AM
Trying to update to database Calibus Classic ASP Databases 20 July 23rd, 2004 03:28 PM
database update joshil Access ASP 2 May 24th, 2004 04:22 AM
ASP code to update database on submitting form? kkbigal Classic ASP Databases 3 July 14th, 2003 05:55 AM





Powered by vBulletin®
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
Copyright (c) 2020 John Wiley & Sons, Inc.