StrataFrame Forum » StrataFrame Application Framework - V1 » Business Objects and Data Access (How do I?) » Check record uniqueness (multi record uodate)

Check record uniqueness (multi record uodate)

Chan — Thu, 08 Feb 2007 09:46:20 GMT

Hi,

I allow user to add more than one record (let say order lineitems), then only press save button to in one batch.

I need to check for record uniqueness after new record added.

1. How to check uniquness before actually save to db?

2. If I loop thru the records to check for uniqueness, any impact if my "record pointer" moved?

Thank you

RE: Check record uniqueness (multi record uodate)

Trent L. Taylor — Thu, 08 Feb 2007 09:46:20 GMT

You can modify the source code to look through the BO as well. You can do this a lot of different ways. Save off the record pointer and scan through the BO. Or reference the CurrentDataTable and do a select.

[codesnippet]MyBO.CurrentDataTable.Select("MyTestField='TestVa'ue'").Length > 0[/codesnippet]

Combine the local and the server values to get your final result. Be sure to always exclude the current record otherwise this will return an incorrect value.

RE: Check record uniqueness (multi record uodate)

Chan — Thu, 08 Feb 2007 09:42:16 GMT

Hi,

Thank you for reply.

Your sample code is to check if any duplicate record already stored in DB.

How about still in memory? My form allow user to add multiple records then only save.

BTW, anything need to set for multi records update? I remember that is a property to set for multiple record update but I cant recall where exactly. I failed to get it back from doc.

Thank you

RE: Check record uniqueness (multi record uodate)

Trent L. Taylor — Thu, 08 Feb 2007 09:03:48 GMT

You need to just create a scalar method that checks to see if there is another record with this uniquness. It would look something like this:

[codesnippet]Public Function AreThereDuplicates(Byval MyTestValue As String) As Boolean
        '-- Establish Locals
        Dim loCommand As New SqlClient.SqlCommand
        Dim lnPK As Integer
        '-- Get the primary key
        If Me.Count = 0 Then
            lnPK = -1
        Else
            lnPK = Me.MyPrimaryKey
        End If
        '-- Build the SELECT string
        loCommand.CommandText = "SELECT Count(*) FROM MyTable WHERE MyPrimaryKey != @MyPrimaryKey"
        loCommand.CommandText &= " AND MyTestField = @MyTestField"
        '-- Create the parameters
        loCommand.Parameters.Add(New SqlClient.SqlParameter("@MyPrimaryKey", SqlDbType.Int))
        loCommand.Parameters.Add(New SqlClient.SqlParameter("@MyTestField", SqlDbType.VarChar))

        '-- Set the values
        loCommand.Parameters.Item("@MyPrimaryKey").Value = lnPK
        loCommand.Parameters.Item("@MyTestField").Value = MyTestValue
        '-- Return Results
        Return Me.ExecuteScalar(loCommand) > 0
End Function[/codesnippet]

Then just call this in your business rules when checking (or whenever you need to):

[codesnippet]If AreThereDuplicates("TestValue") Then
Me.AddBrokenRule(...)
End If[/codesnippet]