Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 192
  • Last Modified:

Record Restriction

I am using Visual Basic 6 with MS Access 97 at the back end.  I am trying to set up a demo program and would like to restrict, to 25, the number of records that on can be added to any table in the database.

Any assistance would be appreciated.
0
perezm
Asked:
perezm
1 Solution
 
BahnassCommented:
if u r using recordset  (ADO OR DAO) U will have a property called recordcount

check it before saving prevent saving if demo count exceeded

if U use adodc also in willmove  check if update record and record count axceeded ....
hope this helps
0
 
talluri_28Commented:
hi

i am giving some code. i think it will be useful to u
if u r using ado tech
Public Sub RecCount()
    dim recCnt as new adodb.recordset
    if recCnt.state = adstateopen then recCnt.close
    recCnt.CursorLocation = adUseClient
    recCnt.Open "Select * from   TableName",cn,adOpenDynamic,adLockOptimistic
    if recCnt.RecordCount <> 25 then
    else
      Msgbox " Your Demo Version "
      End 'Close The Application
    end if
End Sub
0
 
talluri_28Commented:
hi


in place of RecordCount Condition please modify this
if recCnt.RecordCount > 25 then

  End 'Close the Application
end if  
0
 
MELeBlancCommented:
Given that you're using ADO (if not then the code would need to be tweaked a bit ;)

Private Function DemoExceeded() As Boolean

    Dim strSQL As String
    Dim rsCount As ADODB.Recordset
   
    strSQL = "Select COUNT(*) From YourTableName"
   
    Set rsCount = objConn.Execute(strSQL)
   
    If rsCount(0) > 25 Then
        DemoExceeded = True
    Else
        DemoExceeded = False
    End If
   
    rsCount.Close
    Set rsCount = Nothing
   
End Function

Then just call this function before every insert into the dB and that will help you restrict it.

Hope it helped.

-M
0
 
perezmAuthor Commented:
I had already accepted this answer and graded it a long time ago.  I don't know why it wasn't processed.

Thanks for the help.  I should have figured this out,
but I guess I my logic was in limbo.

The answer is so obvious that I missed it.  

Again, thanks for the help.
0

Featured Post

What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now