Let's see how you're using using. I've got a busy week, if I can, I'll find time to write a sample, but in the meanwhile, please show what you've tried with using.
∞ Andy Badera ∞ +1 518-641-1280 ∞ This email is: [ ] bloggable [x] ask first [ ] private ∞ Google me: http://www.google.com/search?q=andrew%20badera On Mon, Sep 14, 2009 at 12:01 PM, id10t error <[email protected]> wrote: > > Do you have an example of how this would work? I tried it with my code > and that did not seem to fix the problem. > > > On Sep 14, 11:11 am, Andrew Badera <[email protected]> wrote: >> No need to explicitly close. Use a "using" statement and wrap up the >> code in the using codeblock. IDisposable is your friend. Don't use a >> mutex, I think you can just use lock. Lock + the implicit disposal >> when the object goes out of context in a using block, you should be >> all set. >> >> ∞ Andy Badera >> ∞ +1 518-641-1280 >> ∞ This email is: [ ] bloggable [x] ask first [ ] private >> ∞ Google me:http://www.google.com/search?q=andrew%20badera >> >> >> >> On Mon, Sep 14, 2009 at 10:07 AM, id10t error <[email protected]> wrote: >> >> > I have the code below. I am running an Rf application and trying to >> > get multiple scanners to work at the same time. I put in a mutex >> > before this class is called. The problem is the first time the second >> > scan that goes through the following code gets an error. I even tried >> > to put in a 10 second wait to mutex to give the first scan plenty of >> > time to clear the class. Is there a way to clear the connection string >> > that I am not doing? >> >> > Public Function Firstrecord(ByVal userid As String, ByVal >> > programid As String) >> > Dim test As String = 0 >> > 'This will be used to store the date in number format >> > Dim todaynumber As String >> > ' If works delete >> > 'Dim b As String = DateTime.Now.ToString("yyyy/MM/dd >> > hh:mm:ss") >> > 'Gets current time >> > Dim currenttime As String = DateTime.Now.ToString("HHmmss") >> > 'sets number scan to 000 so for reports we know this is a >> > starting record >> > Dim numberscan As String = "000" >> > 'This calls the get today number function and gets todays date >> > in number format >> > todaynumber = gettodaynumberfunc() >> > 'Gets the store number from the Web Config file >> > Dim storenumber As String = >> > ConfigurationManager.AppSettings.Get("storenumber") >> > 'This is used to setup the connection string to write the >> > record >> > Dim TPSupdate As New Data.Odbc.OdbcConnection() >> > TPSupdate.ConnectionString = >> > ConfigurationManager.AppSettings.Get("DSNEMPMST") >> > TPSupdate.ConnectionString = >> > ConfigurationManager.AppSettings.Get("EMPMSTconnection") >> > 'Opens the connection to get data from TPS file >> > TPSupdate.Open() >> > 'Declares an object of OdbcCommand Object to execute the >> > select statement >> > Dim insertCmd As New Data.Odbc.OdbcCommand() >> > 'Sets the propertirs of the command object >> > insertCmd.Connection = TPSupdate >> > insertCmd.CommandTimeout = 1000 >> > 'This will setup the record to be inserted into the table >> > insertCmd.CommandText = "Insert into RFPRD >> > (Numberscan,storenum,programid,usernumber,datescanned,timescanned) >> > Values ('" & numberscan & "','" & storenumber & "','" & programid & >> > "'," & userid & "," & todaynumber & "," & currenttime & ")" >> > 'This is the command that will insert the record into >> > RFPRD.tps >> > insertCmd.ExecuteNonQuery() >> > TPSupdate.Close() >> > Return test >> > End Function- Hide quoted text - >> >> - Show quoted text - >
