asked on

Clint Data Maintenance

Hi,
This is My Procedure To Develop The Project,
I have Clients ,I will make them Call 's and Visit them. I am Doing These Two Tasks Regularly. Now i want to Generate the Application using these Two Tasks.
Call:
if i Select the Member ID that Generate the all the list of called data , at what date i made call them what i spoke them. If i want to enter newly called data ,that data enter in Text Area and i press post button that data will go to the database with respect to the date and add that data to the list what i am viewing like 'youtube' comments at bottom of the list .

Appointment:
This Functionality as same as the call what i mention above.

i maintaining this data at Database side. It is Not Necessary to Maintain data on database.Is it Possible Maintain the data using XML or Word Document? OR any Technology To maintain?
If It so Give me the suggestions Please.
Thank You.

Brook Braswell

There are so many different ways to keep this data but if you already have a way of keeping the data in a good database, WTP - What's the point in "downgrading" where you store your data and read your data if what you have works fine ?
If you are attempting to make this a web type application and do not want to pay for web data fee's then you can use XML or a simple Text file that you read and write to in your own way.

How to do it?
That would depend on what your Project/Application is written in...

Brook Braswell

For ASP.Net there are many tutorials on storing and reading data with XML files...

http://www.stardeveloper.com/articles/display.html?article=2000072801&page=1

CPSRI

ASKER

hi Brook1966,
is their any way other than xml and Textfile. If so please explain about it. If not could you explain about the textFile. How Read and Insert. Thank you.

Brook Braswell

There are multiple ways to write data to a text file.
A way to write to a file similar to using a registry would be
By using the kernel32 lib you can make calls to the GerProfileString and WriteProfileString.

Declare Function GetPrivateProfileStringA Lib "kernel32" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
Declare Function WritePrivateProfileStringA Lib "kernel32" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpSet$, ByVal lpFileName$) As Integer

Public Function GetIni(FileName As String, Section As String, KeyWord As String)
                 Dim iErr As Integer
                 Dim Msg, success, X As String
                 Dim Result As String * 128
10               iErr = 0
20               On Error GoTo PROC_ERR
30               success = GetPrivateProfileStringA(Section, KeyWord, "", Result, Len(Result), FileName)
40               If Left$(Result, 1) <> Chr$(0) Then
50                  X = Left$(Result, InStr(Result, Chr$(0)) - 1)
60               Else
70                  X = ""
80               End If
90               GetIni = UCase(X)
PROC_EXIT:
100              Exit Function
PROC_ERR:
110              If iErr > 3 Then
120                 ' YOUR ERROR LOGGING HERE
130                 Resume PROC_EXIT
140              Else
150                 iErr = iErr + 1
160                 Resume
170              End If

End Function

Public Function WriteINI(FileName As String, Section As String, KeyWord As String, SetWord As String)
                 Dim iErr As Integer
                 Dim Msg, success, X As String
                 Dim Result As String * 128
10               iErr = 0
20               On Error GoTo PROC_ERR
30               success = WritePrivateProfileStringA(Section, KeyWord, SetWord, FileName)
40               If Left$(Result, 1) <> Chr$(0) Then
50                  X = Left$(Result, InStr(Result, Chr$(0)) - 1)
60               Else
70                  X = ""
80               End If
90               WriteINI = UCase(X)
PROC_EXIT:
100              Exit Function
PROC_ERR:
110              If iErr > 3 Then
120                 ' YOUR ERROR LOGGING HERE
130                 Resume PROC_EXIT
140              Else
150                 iErr = iErr + 1
160                 Resume
170              End If

End Function

Open in new window

ASKER CERTIFIED SOLUTION

Brook Braswell

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

Brook Braswell

Outputting an ADO RecordSet to s text file

Dim OutStr as String
        Dim i as Single
        Open App.Path & "\MyData.txt" For Append As #1
        OutStr = ""
        For i = 0 to myRS.Fields.Count - 1
            OutStr = OutStr  & iif(OutStr = "","",",") & myRS.Fields(i).Name
        Next
        Do while not myRS.EOF
           OutStr = ""
           For i = 0 to myRS.Fields.Count - 1
               OutStr = OutStr & iif(OutStr = "","",",") & myRS.Fields(i)
           Next
           Print #1, OutStr
           myRS.MoveNext
        Loop
        Close #1

Open in new window

CPSRI

ASKER

Thanks