Hey all, I'm trying to get the QuoteID displayed in a message box, what it is is that when the user clicks on button1, the data on the webform gets saved with a unique number issued (QuoteID) it is this number that I need to obtain, any suggestions. Note all the details get saved in a database.

As always all help is greatly appreciated

D

So how do you want to get the QuoteID. Do you want to pull it from the database or store it in a variable and grab it from there?

I would of thought pulling it straight out from the database would be better, by the way QuoteID is a column, and not linked with row.

Is QuoteID the primary key of the database? Is this Access, SQL Server, etc...? If it is SQL are you using Identitys??? These are a couple of things we need to know.

Or, if you are generating a unique key prior to inserting this into the database it seems to make more sense to set it equal to a variable because otherwise you would have to write more SQL to retrieve it after it is inserted.

J

Sorry J, no this is a MS Access Database, and the QuoteID is a autonumber generated when the user saves the quote to the Database. It is the Primary key for that table.

D

hi,

You can go for select max(Id) from yourTable
Immideatly after inserting , also put the both in a transction.

This will work in any back end DBMS

Prashant

How would I write the code for that

Sub QuoteID
    Code to connect to DB
    max(ID)' refering to the QuoteID
End Sub

and if I want to call that in my msgbox

msgbox("Quote=" &QuoteID& )

is that how I would approach it, of if I could see some sample code that would be great.

D

Okay just gave the following code a try and I got a compiler error, any suggestions,

Function Quote(ByVal quoteID As Integer) As System.Data.DataSet
        Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Ole DB Services=-4; Data Source=\\boston.co.uk\"& _
"storage\users\Dhwiren\quote.mdb"
        Dim dbConnection As System.Data.IDbConnection = New System.Data.OleDb.OleDbConnection(connectionString )

        Dim queryString As String = "SELECT MAX(QuoteID) FROM Quotes "
        Dim dbCommand As System.Data.IDbCommand = New System.Data.OleDb.OleDbCommand
        dbCommand.CommandText = queryString
        dbCommand.Connection = dbConnection

        Dim dbParam_quoteID As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
        dbParam_quoteID.ParameterName = "@QuoteID"
        dbParam_quoteID.Value = quoteID
        dbParam_quoteID.DbType = System.Data.DbType.Int32
        dbCommand.Parameters.Add(dbParam_quoteID)

        Dim dataAdapter As System.Data.IDbDataAdapter = New System.Data.OleDb.OleDbDataAdapter
        dataAdapter.SelectCommand = dbCommand
        Dim dataSet As System.Data.DataSet = New System.Data.DataSet
        dataAdapter.Fill(dataSet)

        Return dataSet
    End Function

 msgbox("Quote Saved Successfully, QuoteID =" & Quote &)

the compiler error is;

Compiler Error Message: BC30455: Argument not specified for parameter 'quoteID' of 'Public Function Quote(quoteID As Integer) As System.Data.DataSet'.

Source Error:



Line 401: (CType(DropDownList15.SelectedItem.Value, String)), _
Line 402: (CType(Additional.Text, String)))
Line 403: msgbox("Quote Saved Successfully, QuoteID =" & Quote &)
Line 404: End Sub
Line 405:

Line 403 is showing the error

Hi,

No parammerters, Use ExecuteScalar

Prashant

Thanks Prashant,
my code now looks like below
but why am I still getting a compiler error for the messagebox (see below)

Compiler Error Message: BC32017: Comma, ')', or a valid expression continuation expected.

Source Error:



Line 401: (CType(DropDownList15.SelectedItem.Value, String)), _
Line 402: (CType(Additional.Text, String)))
Line 403: msgbox("Quote Saved Successfully, QuoteID =" Quote)
Line 404: End Sub
Line 405:

Error on line 403