ASP-VBCode.Com - ASP.Net, VB.Net, PayPal IPN Solution, Web Design

Visual Basic 6 Code Functions/Procedures

InQuotes Function

PauseTime Proc.

Remove Invld Chr Function

Database Insert Proc.

Database Select Function

Database Delete Proc.

Database Update Function

Make Enter key to act as TAB

Time calculation

Change 1st char to Ucase

Populate MSFlxGrid with db data

How to use CASE

Save file

Open file

Populate TreeView w/database

Catch RDO Error

This procedure Deletes a record using PersonID

'******************************************************************
'*      Value(s)passed:                             .....                                           
'*      Value(s)returned:                          .....                                          
'*      Date:                                            10-12-2002
'*      Author:                                          Ahmad E. Ashparie                               
'*      ___________________________________________      
'*                                  Modification Log                            
'*      Date            Author              Description                         
'*      ------            --------              -------------                        
'*                                                                             
'*******************************************************************


Private Sub delPersonTable()
On Err GoTo ErrorHandler
Dim delResultSet As rdoResultset
Dim delStr As String
Dim delPersonID
delPersonID = Trim(txtPrsnIDFixed.Text) & ""
    delStr = "delete * from tb_db_person where person_id=" & (delPersonID)
    Set delResultSet = myDB.OpenResultset _
                    (delStr, rdOpenForwardOnly, rdConcurReadOnly)
    delResultSet.Close
    Set delResultSet = Nothing
Exit Sub
ErrorHandler:
    Err.Clear
    Resume Next
    
End Sub