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
-
HOME
|
ABOUT
|
CONTACT US
Copyright © 2009 ASP-VBCode