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 inserts into database

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


Public Sub WritemyDBAdminLog(Current_Module As String, Table_Name As String _
                                , Operation_Name As String, Changed_Values As String)

Dim myDate
Dim MyTime
Dim Add_String_SQL As String
Dim SQL_Resultset As rdoResultset
Dim DBEffect As String

DBEffect = Left(Changed_Values, 254)

myDate = Format(Date, "mm/dd/yyyy")
MyTime = Format(Time, "hh:mm:ss")
Add_String_SQL = "INSERT INTO adminlog " & _
    "(user_name, current_date, current_time, admin_module,table_name " & _
    ",operation_name,db_effect)" & _
    "VALUES(" & _
    InQuotes(Trim(CurrentUser)) & "," & _
    InQuotes(Trim(myDate)) & "," & _
    InQuotes(Trim(MyTime)) & "," & _
    InQuotes(Trim(Current_Module)) & "," & _
    InQuotes(Trim(Table_Name)) & "," & _
    InQuotes(Trim(Operation_Name)) & "," & _
    InQuotes(Trim(RemoveInvldChr(DBEffect))) & ")"
                                
                Set SQL_Resultset = myDB.OpenResultset _
                (Add_String_SQL, rdOpenForwardOnly, rdConcurReadOnly)
            
                SQL_Resultset.Close
                Set SQL_Resultset = Nothing
End Sub