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.


 
CPSRIAsked:
Who is Participating?

Improve company productivity with a Business Account.Sign Up

x
 
Brook BraswellConnect With a Mentor Application Development ManagerCommented:
Another way would be to just open a file, write your data, and then parse the file later as you need.

        Open App.Path & "\MyData.txt" For Append As #1
        Print #1, "Your data formatted the way you prefer"
        Close #1


If you have a large amount of data to read and write then I suggest neither of these methods.
0
 
Brook BraswellApplication Development ManagerCommented:
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...

0
 
Brook BraswellApplication Development ManagerCommented:
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
0
The 14th Annual Expert Award Winners

The results are in! Meet the top members of our 2017 Expert Awards. Congratulations to all who qualified!

 
CPSRIAuthor Commented:
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.
0
 
Brook BraswellApplication Development ManagerCommented:
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

0
 
Brook BraswellApplication Development ManagerCommented:
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

0
 
CPSRIAuthor Commented:
Thanks
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.