http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Fri, 29 May 2026 20:10:29 +0000 Fri, 02 Jan 2009 00:46:44 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=12988 http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ http://forum.codejock.com/forum_posts.asp?TID=12988&PID=44071&title=save-data-in-visual-fox-how-to#44071 Author: Auge_Ohr
Subject: 12988
Posted: 02 January 2009 at 12:46am

hi,

roka wrote: how could i do to save calendar data  in a table or cursor in visual fox9?

https://forum.codejock.com/forum_posts.asp?TID=11514&KW=GetEvent&PID=38651#38651

i found the Answer in that Thread here in Newsgroup : you have to use a DataProvider as "Custom".

*** snip ***
METHOD Calender:OpenData()
LOCAL Retvar := .T.
LOCAL cConnectionString

   USE (ZPATH+"CALENDAR.DBF") VIA "DBFNTX"
   SET INDEX TO (ZPATH+"CALDATE1.NTX")

   //
   // this is "the" String
   //
   cConnectionString := "Provider=Custom;"

   //
   // do not forget to "set" Provider
   //
   ::oCalcon:setdataProvider(cConnectionString)

   //
   // open connetion, if fail try create (do not work with DBF )
   //
   IF .NOT. ::oCalcon:DataProvider:Open()
      //
      // IMHO this does not work with "Custom" ... 16 byte is what you get
      //
      ::oCalcon:DataProvider:Create()
      Retvar := .F.
   ENDIF

   IF Retvar = .T.
      //
      // fill Calender with all Records
      //
      ::DoFromDBF("ALLRECORD")
   ENDIF

RETURN Retvar
*** eof ***
now also "Problem" of "lost" ALIAS() are gone and you can use all DoXXXX Method (search in help for "DoXXXX").

for more Information you may want to join XCodeJock Project.
it will use Xbase++ and Express++ but Source Code as "native" Xbase++ is also include.
we want to write "Wrapper" for almost all CodeJock OCX and did most allready

hope it is allowed to post URL ? i do it (not my Site):
http://www.donnay-software.com/

greetings by OHR
Jimmy


]]> Fri, 02 Jan 2009 00:46:44 +0000 http://forum.codejock.com/forum_posts.asp?TID=12988&PID=44071&title=save-data-in-visual-fox-how-to#44071 http://forum.codejock.com/forum_posts.asp?TID=12988&PID=43909&title=save-data-in-visual-fox-how-to#43909 Author: Auge_Ohr
Subject: 12988
Posted: 25 December 2008 at 2:45pm

hi,

roka wrote: how could i do to save calendar data  in a table or cursor in visual fox9?

good Question ... i´m working with Xbase++ on same.

Information you will get from CalenderHitInfo
*** snip ***
METHOD Calender:EditCell(oHitInfo)

   CalendarViewEvent := oHitInfo:ViewEvent

   IF CalendarViewEvent == NIL
*      MSGBOX("do you want to create a new Entry ?")
      nAction := ID_FILE_NEW

   ELSE
      nAction := ID_FILE_EDIT

      CalendarEvent     := CalendarViewEvent:GetProperty("Event")
      CalendarEventRecurrenceState := CalendarEvent:GetProperty("RecurrenceState")

      DO CASE
         CASE CalendarEventRecurrenceState = xtpCalendarRecurrenceNotRecurring
         CASE CalendarEventRecurrenceState = xtpCalendarRecurrenceMaster
         CASE CalendarEventRecurrenceState = xtpCalendarRecurrenceOccurrence
         CASE CalendarEventRecurrenceState = xtpCalendarRecurrenceException
      ENDCASE

      cBody                       := CalendarEvent:Body
      cCreationTime               := CalendarEvent:treatDateAsString(.T.):GetProperty("CreationTime")
      cEndTime                    := CalendarEvent:treatDateAsString(.T.):GetProperty("EndTime")
      cLastModificationTime       := CalendarEvent:treatDateAsString(.T.):GetProperty("LastModificationTime")
      nLabel                      := CalendarEvent:Label
      cLocation                   := CalendarEvent:Location
      lMeetingFlag                := CalendarEvent:MeetingFlag
      lPrivateFlag                := CalendarEvent:PrivateFlag
      lReminder                   := CalendarEvent:Reminder
      nReminderMinutesBeforeStart := CalendarEvent:ReminderMinutesBeforeStart
      cReminderSoundFile          := CalendarEvent:ReminderSoundFile
      nScheduleID                 := CalendarEvent:ScheduleID
      cStartTime                  := CalendarEvent:treatDateAsString(.T.):GetProperty("StartTime")
      cSubject                    := CalendarEvent:Subject
      nImportance                 := CalendarEvent:Importance

      MSGBOX("Body             "+Trim(cBody)             +CRLF+;
             "CreationTime     "+cCreationTime           +CRLF+;
             "EndTime          "+cEndTime                +CRLF+;
             "LastModification "+cLastModificationTime   +CRLF+;
             "Label            "+STR(nLabel)             +CRLF+;
             "Location         "+cLocation               +CRLF+;
             "MeetingFlag      "+IF(lMeetingFlag,"Y","N")+CRLF+;
             "PrivateFlag      "+IF(lPrivateFlag,"Y","N")+CRLF+;
             "Reminder            "+IF(lReminder   ,"Y","N")+CRLF+;
             "ReminderMinutes  "+STR(nReminderMinutesBeforeStart)+CRLF+;
             "ReminderSoundFile"+cReminderSoundFile      +CRLF+;
             "ScheduleID       "+STR(nScheduleID)        +CRLF+;
             "StartTime        "+cStartTime              +CRLF+;
             "Subject          "+cSubject                +CRLF+;
             "Importance       "+STR(nImportance) )

    DoMore(oHitInfo,nAction)

*** eof ***
so far so good, BUT ...

with Xbase++ we have WorkSpaceArea for each Thread
i do open a DBF in MAIN.

*** snip ***
PROCEDURE DoMore(oHitInfo,nAction)
 
 MsgBox("Alias is "+ALIAS() )

*** eof ***
Xbase++ does say NO ALIAS(), no open DBF ... ? where is it ?

While CJ Calender is a activeX ... does CJ Calender run as seperate Thread ?
... and to :open DataProvider is use a ConnectionString ... does CJ use a own Workspace(Area) so that i can not use it together with Xbase++ DBF ?

in DataProvider there are "buildin" datalink to Access
*** snip ***
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\events.mdb"
*** eof ***
while DBF can also used by "Microsoft.Jet.OLEDB.4.0" i like to ask if someone know Syntax and Structure to use a DBF ?

have a nice Xmas



]]> Thu, 25 Dec 2008 14:45:28 +0000 http://forum.codejock.com/forum_posts.asp?TID=12988&PID=43909&title=save-data-in-visual-fox-how-to#43909 http://forum.codejock.com/forum_posts.asp?TID=12988&PID=43822&title=save-data-in-visual-fox-how-to#43822 Author: roka
Subject: 12988
Posted: 20 December 2008 at 12:52pm

how could i do to save calendar data  in a table or cursor in visual fox9?

]]> Sat, 20 Dec 2008 12:52:11 +0000 http://forum.codejock.com/forum_posts.asp?TID=12988&PID=43822&title=save-data-in-visual-fox-how-to#43822