Why won't this commit to the local FoxPro Table?

Visual FoxPro General

Index ‹ Visual FoxPro

- Previous
  - 1
    - vfp9 error reading file 1104 on server 2003 You may need to check if users have same rights to access the vfp files... Tag: Why won't this commit to the local FoxPro Table?
  - 2
    - How to send email by using default email client installed on user's machine Thanks a lot to all of you. Thanks Again With Warm Regards Surinder singh Tag: Why won't this commit to the local FoxPro Table?
  - 3
    - adding carriage return and line feed through foxpro oledb provider Using ado.net with the foxpro ole db provider I am trying to insert a record in the database that has a memo field. In the memo field I am trying to add some data seperated by a carriage return and line feed. Unfortunately, when I run it I keep getting a "Command contains unrecognized phrase/keyword" oledb exception. I have tried using string concatenation to add my parameter values to my query string and added in parameters using the " " but I keep getting the error. Any ideas on how to get this to work This is really frustrating. Tag: Why won't this commit to the local FoxPro Table?
  - 4
    - MS Access importing visual foxpro tables Just so others reading here will know, the original question was about linking VFP tables to MS Access via ODBC. Cetin's suggestion of using OLE DB is correct but you can't link tables to Access using OLE DB. Tag: Why won't this commit to the local FoxPro Table?
  - 5
    - How to create a VFP program whose name should not be shown during runtime in task bar, task list, systray ? Hi, I need a VFP program whose name should not be shown in Windows Task Manager list, neither in Task Bar nor in System Tray during run-time. How can i achieve that Can it be done through VFP 6.0 Any example or idea plz With regds. nrpanda ----------------------------------------------------------- A VFP 6.0 Programmer Tag: Why won't this commit to the local FoxPro Table?
  - 6
    - Need help with report expression You are right. Thanks. Tag: Why won't this commit to the local FoxPro Table?
  - 7
    - Command Window in Vista Yes, that sounds like the issue to me. I bought parts and built a test PC back in late 2003 to test the pre-alpha versions of Vista (Longhorn at the time). I went cheap on most everything. I think the video card was about $129 at the time only because I wanted more RAM than usual on it. I got 256Mb RAM on that particular video card. I still use that same PC today for a Vista Ultimate installation and that 256Mb RAM AGP video card only manages a 2.6 rating. But, evidently it's enough to not get adverse/ugly video effects when dragging windows around. I recall reading or hearing about a guy with a laptop who had something similar to what you mention. And that was before Vista was released. Laptops are notorious for skimping on video where they use composite/built-in video where they "share" (more like rob) the RAM from youir normal machine working RAM. It's not unusual for them to steal 128Mb away from your 1Gb RAM leaving with a less than optimal sweet spot of RAM to run your machine. I just bought the same video card I mentioned above recently for a different older PC and it was somewhere just under $70 from TigerDirect, a company I usually avoid because their prices are usually based on rebates you may never see. YMMV... Tag: Why won't this commit to the local FoxPro Table?
  - 8
    - Assigning an array to an Activex property I've tried all of the things suggested, but keep getting errors. I think the problem is with the variant type in the control or with VFP9 passing values to a variant. There are a couple of other variants in the control and I cannot assign any value to them either. I've tried assigning integer values, strings, etc., but always get "data type mismatch" errors. For example, I've tried: o.RxNumbers = 1 o.RxNumbers = "" o.RxNumbers = "test string" All return the data type mismatch. And, as I've said, the same thing happens with any variant field in the control. By the way, the controal is an activex exe, not an ocx. Tag: Why won't this commit to the local FoxPro Table?
  - 9
    - importing from excel I've tried pretty much the same thing and found it truncates the contents of the memo field to 255 characters. I should have mentioned I'm using VFP 5, maybe it works differently in subsequent versions. I think I've got it to work by saving the xls as a tab delimited text files, then FOPEN, then chopping up the character string with ATC(chr(9)) and populating a table from that. It's a shame because this only works if I know what the required table structure is, but it's only a one-off job so I'm not too concerned that it's not very elegant. Thanks for your help. Tag: Why won't this commit to the local FoxPro Table?
  - 10
    - webbrowser newwindow event Dear All, in our application (VFP7) we are using MS WebBrowser control. it is working well, except in one case. we don't allow the new window action. according to the documentation the NewWindow2 event is fired when the user tries to open an url in a new window (right click - selecting Open Link in New Window menu, shift+click, etc). i can catch this event, and returns as cancel=.T. everything is nice. but when i press the CTRL+N in the browser control the system opens a new IE window in the same session (doesn't require any login). please give me some help, advise, how could i catch CTRL+N keypress (i don't see Keypress event in webbrowser activex) Ivan Tag: Why won't this commit to the local FoxPro Table?
  - 11
    - Importing data from Excel into a FoxPro Memo field Hi I'm trying to import data from an Excel spreadsheet into a Foxpro v8 memo field using the APPEND FROM command something like this, but the field is blank after I run the append. CREATE TABLE "C:\Blah\TESTMEMO.DBF" NAME "TESTMEMO" (TESTMEMO M NOT NULL) APPEND FROM "C:\Blah\TESTMEMO.xls" TYPE XL8 SHEET "SHEET1" Any ideas how I can do this Thanks Tag: Why won't this commit to the local FoxPro Table?
  - 12
    - Outlook 2003 won't open My outlook 2003 seems to have froze. When I click to open outlook it won't open it seems like it's trying but then times out. I have recieved no error messages it just seems like theres an icon to open it but no program. This is a new occurance, I have never had any problems before. Please advise. Thanks Dan Tag: Why won't this commit to the local FoxPro Table?
  - 13
    - How to fix grid headings? For a column it controls whether the order can be changed at run time by dragging a column to different position. Tag: Why won't this commit to the local FoxPro Table?
  - 14
    - How to Copy 2 worksheet from one excel sheet to to 2 Worksheet of another Excel Sheet var xlApp, xlWB, xlSheet,f2,fso,oBook,oSheet,oBook1,oSheet1,idTmr; xlApp = new ActiveXObject("Excel.Application"); fso = new ActiveXObject("Scripting.FileSystemObject"); if(fso.FileExists("c:\\Example.XLS")) { f2=fso.GetFile("c:\\Example.XLS"); f2.Delete(); } xlApp.Visible = true; xlApp.DisplayAlerts=false xlWB = xlApp.Workbooks.Add(); xlWB.Sheets.Add(null,xlWB.Sheets(xlWB.Sheets.Count)); xlWB.WorkSheets(1).Name="Redmond_Enabled"; xlWB.WorkSheets(2).Name="Redmond_Disabled"; xlWB.WorkSheets(3).Name="PHX_Enabled"; xlWB.WorkSheets(4).Name="PHX_Disabled"; xlSheet = xlWB.WorkSheets(1); xlSheet.Activate(); xlSheet.Cells(1,1).Value = "job name"; xlSheet.Cells(1,2).Value = "job ID"; xlSheet.Cells(2,1).Value = "a"; xlSheet.Cells(2,2).Value = "a1"; xlSheet.Cells(3,1).Value = "b"; xlSheet.Cells(3,2).Value = "b1"; xlSheet.Cells(4,1).Value = "c"; xlSheet.Cells(4,2).Value = "c1"; xlSheet = xlWB.WorkSheets(2); xlSheet.Activate(); xlSheet.Cells(1,1).Value = "job name"; xlSheet.Cells(1,2).Value = "job ID"; xlSheet.Cells(2,1).Value = "a"; xlSheet.Cells(2,2).Value = "a1"; xlSheet.Cells(3,1).Value = "b"; xlSheet.Cells(3,2).Value = "b1"; xlSheet.Cells(4,1).Value = "c"; xlSheet.Cells(4,2).Value = "c1"; var oExcelApp = new ActiveXObject("Excel.Application"); var oWkBks = oExcelApp.Workbooks; oWkBks.open("c:\\Example_PHX.xlsx"); oBook = oWkBks.Item(1); oSheet = oBook.Worksheets.Item(1); oSheet.Activate(); oSheet.Cells.Select(); oExcelApp.Selection.Copy(); xlSheet = xlWB.WorkSheets(3); xlSheet.Activate(); xlSheet.Paste(); oBook = oWkBks.Item(2); oSheet = oBook.Worksheets.Item(2); oSheet.Activate(); oSheet.Cells.Select(); oExcelApp.Selection.Copy(); xlSheet = xlWB.WorkSheets(4); xlSheet.Activate(); xlSheet.Paste(); xlSheet.SaveAS("C:\\Example.XLSx"); xlApp.Quit(); xlApp = null; CollectGarbage(1500); After copying 1st worksheet to the 3rd worksheet,it throws Exception..Please suggest where I am doing wrong...Is there any problmem of garbage collector Please reply me to adityamandlekar@yahoo.com or v-admand@microsoft.com if possible..its urgent!!! Tag: Why won't this commit to the local FoxPro Table?
  - 15
    - userprompt How to promt user to enter the date in prg file. once it is entered i would like to save it to variable. I am using vfp6.0 Tag: Why won't this commit to the local FoxPro Table?
  - 16
    - Some more Excel automation questions Thank you all. Anyone has an idea for the second part of my question AK. Tag: Why won't this commit to the local FoxPro Table?
- Next
  - 1
    - Historical FoxPro What version of Windows What version of Foxpro What dll is it asking for You haven't given any of this information. I personally have experience with Fox products going back to Foxbase in the early 1980's. There have been a LOT of releases since then. What on that continuum do you consider historical ;-) Tag: Why won't this commit to the local FoxPro Table?
  - 2
    - Validations on Textbox and if the value can be empty or NULL, you can use IF EMPTY(NVL(Thisform.myTextbox.Value,"")) Tag: Why won't this commit to the local FoxPro Table?
  - 3
    - File is in use by another Hi all, One of my client is using my inventory program (developed in FoxPro 2.6 for windows) for last 4 years without any problem. Two days before client's computer operator reported to me the following situation; "I just turned on pc. First thing I did after that is I started your program and suddenly got an error message 'FILE IS IN USE BY ANOTHER' and stopped on the line 'INDEX ON CO_NO TO COMPANY' from the .prg file." I approached the client's office and had a look on the code and made sure that the dbf is opened exclusively in that workarea. I tried to run the program and got th same error message as reported above. When I came out of foxpro by cancelling the program, System Tray ballooned up the message 'FILE COMPANY.IDX FILE IS CORRUPTED. RUN CHKDSK/F'. When I tried to run the CHSDSK /F from the DOS Prompt, It gave an error mssage; 'CANNOT LOCK CURRENT DRIVE. CHKDSK CANNOT RUN BECAUSE THE VOLUME IS IN USE BY ANOTHER PROCESS.' What should be wrong with it Please help me. Tag: Why won't this commit to the local FoxPro Table?
  - 4
    - Drag and Drop with Listbox >>What do you mean If you use the native methods you always know which is the source object Many thanks Andy, there's some very helpful stuff in those code snippets. However, the issue I have is not identifying the source or target object (i.e. listbox), it is identifying the listitem within the target listbox that the mouse is over. I want the user to be able to drag a listitem from the source listbox to the target listbox and insert it directly before the listitem in the target listbox that the mouse pointer is over. (And ideally, I would like this listitem to be highlighted as I drag the pointer over it). Tag: Why won't this commit to the local FoxPro Table?
  - 5
    - Memo file is missing or invalid Did he gave you the .FPT file also Tag: Why won't this commit to the local FoxPro Table?
  - 6
    - image from file thisform.image1.picture = myTable.Image But you still have to refresh the picture yourself, e.g. as far as I know, you can not simply bound the image to the memo field. Somebody correct me, please, if I'm wrong. Tag: Why won't this commit to the local FoxPro Table?
  - 7
    - Need better performance with FP Tables Tadaaa. So it was the way you handle updating not foxpro Try that with something like linking to another Access table (ADO) or SQL server. You wouldn't get better results. My advice, lock it for batch updates and UpdateBatch after the loop. Or send a single update SQL command with your expression. ie: oCon.Execute( "update myTable set myAmount = myAmount * 1.1 where myDateField > {^2006/12/31}" ) I had some other posts in VB,Access threads for similar problems, check them if you can find. It's not a problem of VFP, happens with any backends if you try to do updates one by one. Tag: Why won't this commit to the local FoxPro Table?
  - 8
    - Problem with Vista Windows mail Hi Phil, when I said Fetch I mean the program fetch all emails from the default email client's in-box. Here is a piece of code: IF MainApp.OpenMail(.T.) MainApp.CloseWindows() MainApp.Wait(MainApp.GetLocalString(1238, STRINGSOURCE_ID, .T.)) WITH MainApp.OLE .Messages.FetchUnreadOnly = .T. IF NOT MainApp.NoMessageTypes .Messages.FetchMsgType = MSG_CIECA ELSE .Messages.FetchMsgType = '' ENDIF .Messages.FetchSorted = .T. .Messages.Fetch() <-- - failed right here FOR i = 0 TO .Messages.MsgCount - 1 ... ... again this code work fine with Outlook Express, Outlook 2000, 2003, 2007 and only Windows Mail have problem with it. Any input will be appreciated, Thanks! Tag: Why won't this commit to the local FoxPro Table?
  - 9
    - DCT FILE If you remove tables and add them back into DBC, you have to modify their structure to put back the long field name. Tag: Why won't this commit to the local FoxPro Table?
  - 10
    - Visual FoxPro9 Report Designer BUG I forgot to specify: I also have vfp 6 (with sp 5 for vs) and vfp 7 with sp1. Tag: Why won't this commit to the local FoxPro Table?
  - 11
    - Sqlexec() command line maybe too long. Yes you're exceeding the 255 limit for a string literal. & is the culprit there hiding that you have a long string. I guess temp_time is something like: temp_time = "'"+ttoc(datetime())+"'" which would cause the whole string go above limits. Besides causing the limit problem using a datetime is itself is a problem. If you've used m.temp_time instead you wouldn't even have a problem with this one (but still you'd be near the limit). Passing datetime like that is another problem. It might work but with unintentional wrong values written to backend. When you pass a date or datetime like that then you need to sure it conforms a special format recognizable by the backend (culture invariant, ODBC canonical format - YYYY/MM/DD hh:mm s). For example if you pass '1/1/2007' it wouldn't pose much of a problem and would be treated as Jan 1st, 2007. However if 1/2/2007 is passed and frontend/backend are using different cultures then that value might be Jan 2nd or Feb 1st. In summary: -Do not use & but . With usage you can do these: temp_time = date() temp_time = datetime() and VFP makes the necessary conversions for you. -Do not write it all in one long literal. Either divide into multiple literals or use text...endtext. Tag: Why won't this commit to the local FoxPro Table?
  - 12
    - OLEDragDrop errors See also http://doughennig.blogspot.com/2006/04/dont-return-inside-with.html Tag: Why won't this commit to the local FoxPro Table?
  - 13
    - Display "Running query..." progress bar You may use control from: http://support.microsoft.com/kb/254478 It is working fine. Tag: Why won't this commit to the local FoxPro Table?
  - 14
    - Recursive function call stack cleanup Below is a program that calls two recursive functions. With the first one, I am able to watch as the call stack is built with each instance of the function one by one, and then am able to watch as each instance of the function is removed from the call stack, one by one. With the second function, I can watch the call stack grow as each instance of the function is added, but after the last instance of the function is added, and the call stack pointer is at the top of the stack, that function then returns, and it seems as if that instance of the call stack immediately returns to the next line in the program, after the line that initially called the function. It seems as if all of the parent instances of the function on the call stack are skipped. I know this is not what really happens, because the final value after the functions return to the main part of the program is correct. However, I would like to be able to use a breakpoint or a suspend, so that after the second function is called, as each instance of the call stack have all been added, and then start returning to the parent instances, I can stop the program each time and know that those instances are actually being removed one at a time, and not being cast off into memory as a leak. Any ideas All of my efforts with the second function have not been successful. Struggling with this led me to creating the first function, in which I was able to successfully watch the recursion step by step. However, I really would like to verify the same thing on the second function. Thanks. *------------------------------------------------------------------------------ *- Program Name..: recursiveFun.prg *------------------------------------------------------------------------------ *- Description: Visual Foxpro Recursive Factorial functions *------------------------------------------------------------------------------ *- Synopsis...: This program demonstrate two different versions *- of recursive functions that both determine the factorial *- value for a number. In this case, I've used 10 *- for simplicity. *- *- Source: http://fox.wikis.com/wc.dll Wiki~RecursionInVFP~VFP *- *------------------------------------------------------------------------------ Private ll_Cntr PRIVATE ll_funcCntr PRIVATE ll_stuff CLEAR ll_Cntr = 10 ll_funcCntr = 0 ll_stuff = 0 "Beginning program!" fact = Factorial1(ll_Cntr) STR(ll_Cntr) + "! = " + STR(fact) *!* fact = 0 *!* fact = recFun(ll_Cntr) *!* STR(ll_Cntr) + "! = " + STR(fact) "End of program!" FUNCTION Factorial1 LPARAMETER n IF (n < 1) IF ll_funcCntr < 10 && track function call instances ll_funcCntr = ll_funcCntr + 1 "In Factorial1 instace " + STR(ll_funcCntr) ENDIF ll_stuff = ll_stuff + 1 ELSE IF ll_funcCntr < 10 && track function call instances ll_funcCntr = ll_funcCntr + 1 "In Factorial1 instace " + STR(ll_funcCntr) ENDIF && recursive call ll_stuff = ll_stuff + n*Factorial1(n-1) ENDIF && program returns here after each recursive call IF (ll_funcCntr > 0) && track function call cleanup "Performing Cleanup on function instance " + ; STR(ll_funcCntr) ll_funcCntr = ll_funcCntr - 1 ENDIF RETURN ll_stuff && returns to next line after function call && in the main code above **-- End Function FUNCTION recFun LPARAMETERS n && After the last recursive call, does the instance && of the function on the top of the call stack && return to the line after 'fact = recFun(ll_Cntr)' && && Or does it return to the next parent instance of the && function on the call stack until the last instance && of the function has returned to the calling command && && Is there a way I can stop the program in this function && after each instance of the function on the call stack && returns RETURN IIF(n>1,n*recFUN(n-1),1) **-- End Function Tag: Why won't this commit to the local FoxPro Table?
  - 15
    - Little Doubt with Grids Tag: Why won't this commit to the local FoxPro Table?
  - 16
    - Catch "The uniqueness of primary or candidate key is violated." (Error 1884) in Browse window Hi Everybody, Help me, please I have problem with unique index. How to catch the message "The uniqueness of primary or candidate key is violated." (Error 1884) in Browse window (or Grid control). Because I want to display my message instead VFP's meassage. I use VFP9. Sorry because my english is not good! Thanks everybody Tag: Why won't this commit to the local FoxPro Table?

rpp

Each time I run this statement on the form I receive the following error:

Alias "txtdescription" is not found.

UPDATE adtype ;
SET adtype.description = ALLTRIM(Thisform.txtDescription.Value), ;
adtype.rate = ALLTRIM(Thisform.txtrate.Value), ;
adtype.priority = ALLTRIM(Thisform.txtpriority.Value), ;
adtype.headingnum = ALLTRIM(thisform.cbopageType.Value) ;
WHERE adtype.booktype = cAddEditAdtype.booktype AND ;
adtype.bookcode = cAddEditAdtype.bookcode AND ;
adtype.adtype = cAddEditAdtype.adtype

Thanks in advance, I think it is something very simple, but not obvious to me.

RPP

Top

Re: Why won't this commit to the local FoxPro Table?

Naomi Nosonovsky

It's better to not use thisform properties (objects) in UPDATE, SELECT, INSERT statements but rather local variables.

Code Snippet

local lcNewDescrip, lcNewRate, lcNewPriority, lcNewHeadingNum

lcNewDescrip = ALLTRIM(Thisform.txtDescription.Value)

lcNewRate = ALLTRIM(Thisform.txtrate.Value)

lcNewPriority = ALLTRIM(Thisform.txtpriority.Value)

lcNewHeadingNum = ALLTRIM(thisform.cbopageType.Value)

UPDATE adtype ;
SET adtype.description = m.lcNewDescrip, ;
adtype.rate = m.lcNewRate, ;
adtype.priority = m.lcNewPriority, ;
adtype.headingnum = m.lcNewheadingNum ;
WHERE adtype.booktype = cAddEditAdtype.booktype AND ;
adtype.bookcode = cAddEditAdtype.bookcode AND ;
adtype.adtype = cAddEditAdtype.adtype

Top