Solved

Log Files - VB6

Posted on 2003-11-14
14
925 Views
Last Modified: 2010-05-01
I want to be able to log events from my application, such as what information was typed into various text boxes. Is there a way I can do this? If so, where can I get the info on how it all works?
0
Comment
Question by:JFrye
14 Comments
 
LVL 85

Expert Comment

by:Mike Tomlinson
ID: 9750483
Which  "events" are you looking to log?  

Every time you move your mouse over a text box, hundreds of MouseMoved events fire.  Every time you press a key, the KeyDown, KeyUp, KeyPress events fire.  Get the idea?   =)

Are you actually asking how do you store the values of a text box in a file?

Idle_Mind
0
 

Author Comment

by:JFrye
ID: 9750637
Yeah, say I have 4 text boxes for instance. The user click a button, and stuff happens. Can I make it so that when the button is clicked, the data in those 4 tboxes also appends to a log file?
0
 
LVL 85

Accepted Solution

by:
Mike Tomlinson earned 30 total points
ID: 9750800
Sure, in the simplest of cases you would do something like this:

Private Sub Command1_Click()
    Open "c:\log.txt" For Append As #1
    Print #1, Text1.Text
    Print #1, Text2.Text
    Print #1, Text3.Text
    Print #1, Text4.Text
    Close #1
End Sub
0
Free Tool: Postgres Monitoring System

A PHP and Perl based system to collect and display usage statistics from PostgreSQL databases.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

 
LVL 14

Expert Comment

by:Tommy Kinard
ID: 9751283
another way:
Private sub command1_click
    Dim oContr As Control
    Dim Control As Control
    Open "c:\log.txt" For Append As #1 '< copied from Idle_Mind's comment
    For Each Control In Me.Controls
        Set oContr = Control
        On Error Resume Next
        If InStr(1, oContr.Name, "Text") > 0 Then
             Print #1, oContr.name, ",", oContr.text
        End If
        Err.Clear
        On Error GoTo 0
    Next Control
    Close #1
    Set oContr = Nothing
    Set Control = Nothing
End Sub

The only real diff between mine and Idle_Mind is you don't have to know how many textboxes are in the form, it also prints the name of the control so you can debug and you can add to it for other options.

HTH
dragontooth

0
 

Author Comment

by:JFrye
ID: 9751562
What about creating a new log file for each day? Is there some code to create a new file and name it the current date? Extra 40 pts for this!
0
 
LVL 85

Expert Comment

by:Mike Tomlinson
ID: 9751595
Private Sub Form_Load()
    Dim fileName As String
   
    fileName = App.Path & "\" & Format(Now(), "ddmmmyyyy") & ".txt"
    Debug.Print fileName
    Open fileName For Append As #1
    Print #1, Text1.Text
    Print #1, Text2.Text
    Print #1, Text3.Text
    Print #1, Text4.Text
    Close #1
End Sub
0
 

Author Comment

by:JFrye
ID: 9751645
Run-time error '52':

Bad file name or number

What now?
0
 
LVL 85

Expert Comment

by:Mike Tomlinson
ID: 9751765
Works great on my system.  Can you post it as you used it on your code?
0
 
LVL 75

Expert Comment

by:Aneesh Retnakaran
ID: 9753268
Mate,
Do one thing. Write a generalise routine with two parameters
for example

public function WriteToLog(controlName as string, sValue as string)as boolean
 'open the log file and write the detaills like this
on error goto errhandler
dim fn as integer
fn=freefile()
open app.path & "\log.txt" for append as fn
    Print #fn, controlName & Vbtab & "=" & vbtab & svalue
close #fn
WriteToLog = true
ErrEx:
exit function
ErrHandler:
WriteToLog=false
resume errex
End function

'Call this function in a button click or some other event. Loop through the control's collection of the form and call this subroutine to store the values of the needed controls in your form.

With regars
Team Accent
0
 

Author Comment

by:JFrye
ID: 9753870
That just lost me... I'm still new to the game, so I might get lost easily...
0
 

Author Comment

by:JFrye
ID: 9753918
Private Function AddToLog()

    Dim fileName As String
   
    fileName = App.Path & "G:\COMMON\DCS Manual\Northlite SuperCenter\Jonathan's Briefcase\Log Files\" & Format(Now(), "ddmmmyyyy") & ".txt"
    Debug.Print fileName
    Open fileName For Append As #1
    Print #1, Date & " @ " & Time & ":"
    Print #1, "SAM:  " & txtSAM2M.Text & ",  SA1:  " & txtSA1.Text & ",  SA2:  " & txtSA2.Text
    Print #1, "UP1:  " & txtUP1.Text & ",  UP2:  " & txtUP2.Text & ",  PG: " & txtPG.Text
    Print #1, "D768: " & txtDSLM768.Text & ",  D256: " & txtDSLM256.Text & ",  DU23: " & txtDialUp2.Text & ",  DU19: " & txtDialUp1.Text
    Print #1, "PP:   " & txtPC.Text & ",  PG$:  " & txtPGMoney.Text & ",  AC:   " & txtAC.Text & ",  Aux:  " & txtAux.Text
    Print #1,
    Close #1
End Function
0
 

Author Comment

by:JFrye
ID: 9753922
This is what I have... Before we did the 'name the log file as the current date' thing, it wrote properly to the single log file.
0
 

Author Comment

by:JFrye
ID: 9753944
Wow... I feel stupid now... I just realized the "AppPath & " in there... Took that out and it worked fine...
0
 

Author Comment

by:JFrye
ID: 9754013
0

Featured Post

Active Directory Webinar

We all know we need to protect and secure our privileges, but where to start? Join Experts Exchange and ManageEngine on Tuesday, April 11, 2017 10:00 AM PDT to learn how to track and secure privileged users in Active Directory.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Introduction While answering a recent question about filtering a custom class collection, I realized that this could be accomplished with very little code by using the ScriptControl (SC) library.  This article will introduce you to the SC library a…
Background What I'm presenting in this article is the result of 2 conditions in my work area: We have a SQL Server production environment but no development or test environment; andWe have an MS Access front end using tables in SQL Server but we a…
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…

821 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question