MS Access and FileMaker...

BD remains open after SELECT

Please support our MS Access and FileMaker Pro advertiser: PostgreSQL or MySQL? Compare and contrast the two most popular open source databases

•

Join Date: Jun 2007

Posts: 28

Reputation: ViRiPuFF is an unknown quantity at this point

Solved Threads: 0

ViRiPuFF

Offline

Light Poster

BD remains open after SELECT

Apr 29th, 2009

I am using the following code to retrieve the last entered value from a table and insert it into a textbox called rf.

The code below works but the DB remains open until I restart my computer.

Help with Code Tags

(Toggle Plain Text)

Sub Page_Load()

If Request.QueryString("VesselName") Is Nothing Then
            VesselName.Text = "Blank Name" 'some default value
        Else
            VesselName.Text = Request.QueryString("VesselName")

        End If
		
		'construct the command object and open a connection to the Returns table
        Dim dbconn, sql, dbcomm, dbread
        dbconn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;data source=" & Server.MapPath("AnnexII.mdb"))

        dbconn.Open()
        sql = "SELECT Ref FROM Returns WHERE VesselName = '" & Trim(VesselName.Text) & "'"

       
        dbcomm = New OleDbCommand(sql, dbconn)
        dbread = dbcomm.ExecuteReader()


        If dbread.Read Then
            rf.Text = dbread(0)


            dbread.Close()

            dbconn.Close()
	
       End If

	   

End Sub
</script>

THanks ViRiPuFF