VFP6: Retrieving of data from VPF table (.dbf) through website

Visual FoxPro General

Index ‹ Visual FoxPro

- Previous
  - 1
    - how to direct the output of the report form object type 5 to a specific location. Yes this worked! Thank You! Is there someway to turn the message off that ask if you want to paste the link to the clipboard Tag: VFP6: Retrieving of data from VPF table (.dbf) through website
  - 2
    - Any way to introduce spelling check into VFP? You may check http://www.sweetpotatosoftware.com/SPSBlog/SearchView.aspx q=spellcheck Another way would be using Word automation and its build in Spell Check. I also think there are classes for Spell check on for-profit web site in Downloads section. Tag: VFP6: Retrieving of data from VPF table (.dbf) through website
  - 3
    - Data deleted with ZAP Hi, Check this out http://support.microsoft.com/kb/135905 Tag: VFP6: Retrieving of data from VPF table (.dbf) through website
  - 4
    - Feature Not Available - OleDb Provider Error Like I mentioned in the comments in the attached code, the stored procedure runs fine until that point. I have the same version with hardcoded SELECT CASE in the last step. I went one step further and commented the LAST UPDATE statement and ran the exact same procedure from windows application (including the index command) and there are no errors. The update statement " UPDATE H201_CGN SET &bdtCol = gTotal WHERE H201_CGN.loc = locName " is throwing this error. This table contains columns that are in the format "TYYYYMM" where T is a prefix and YYYY is year and MM is month. In an effort to ensure this procedure runs for months going forward, I replaced the Update statement in SELECT CASE to the construct above. This syntax works flawlessly in the MS Visual FoxPro program but not through the OLE DB provider. I am dynamically setting bdtCol = "T200506" (for example) and trying to reference the ColumnName by using & symbol and update the data. I COMMENTED this single line in previous code snippet and I dont get the "Feature Not Available" message at all. I understand there are some limitations in the driver, but there isnt much help I can find online or in the documentation. Is there an equivalent code snippet that will run for the same function Thanks much Tag: VFP6: Retrieving of data from VPF table (.dbf) through website
  - 5
    - Know of any graphics libraries for VFP 6? You can also use GDI+ with VFP6. The class GPIMAGE2 brings a wrapper class to gdiplus.dll that allows to use most of the GDI+ functions. Visit the link below, download the source, and run the samples available in the "EXAMPLES" folder. There you'll find a simple class that permits to create some interesting charts, drawings, reports with vertical labels, etc. http://cchalom.sites.uol.com.br/GPIMAGE/index.htm If you're not using Windows XP, you'll need to download the distributable version. There's a good explanation on GPIMAGE's website. Here you'll find some other samples, at the "FAQS" page. http://cchalom.sites.uol.com.br/GPIMAGE/faqs.htm Hope this helps Cesar Tag: VFP6: Retrieving of data from VPF table (.dbf) through website
  - 6
    - How to determine time elapsed between 2 DATETIME()'s abs(m.tValue1 - m.tValue2) gives the difference between two datetime values in seconds. Adding a numeric to a datetime value means to add N seconds to that datetime value. In other words, for datetime + and - operators are overloaded. Code Block ltIn = datetime(2007,10,8,8,52,47) ltOut = datetime(2007,10,8,12,11,33) lnSecondsElapsed = abs(m.ltOut - m.ltIn) If it doesn't span a day then you can also get a time string like: Code Block set hours to 24 ttoc( ctot("0") + abs(m.ltOut - m.ltIn), 2 ) Or in case it spans days: Code Block lcResult = ; Transform ( Padl ( Floor ( Abs ( Round ( m. ltOut -m. ltIn , 0 ) / 86400 ) ) , 4 ,' 0 ' ) +; Right ( Ttoc ( Ctot ( ' 0 ' ) + Abs ( m. ltOut -m. ltIn ) , 1 ) , 6 ) ,"@R 9999 99 : 99 : 99 " ) * or lcResult = ; Transform ( Padl ( Floor ( Abs ( Round ( m. ltOut -m. ltIn , 0 ) / 3600 ) ) , 5 ,' 0 ' ) +; Right ( Ttoc ( Ctot ( ' 0 ' ) + Abs ( m. ltOut -m. ltIn ) , 1 ) , 4 ) ,"@R 99999 : 99 : 99 " ) Tag: VFP6: Retrieving of data from VPF table (.dbf) through website
  - 7
    - Set focus on the record of my grid when i type it Hi, i just want to know how to set the focus (highlight) on record within my grid when i type the first 3 to 5 letters of data i want to search instead of using the vertical grids. Tag: VFP6: Retrieving of data from VPF table (.dbf) through website
  - 8
    - VFP PopUp Menu Vista In http://forums.microsoft.com/MSDN/ShowPost.aspx PostID=1881570&SiteID=1 the problem is not solved. Peter Tag: VFP6: Retrieving of data from VPF table (.dbf) through website
  - 9
    - Fax using Visual Foxpro Dear Dave M., Thank you very much for your quick reply. I will try this now. The Lord will bless you for helping others. Cheers Rolly Militar Tag: VFP6: Retrieving of data from VPF table (.dbf) through website
  - 10
    - Filtering records in grids Filters are not reliable and never has been. If you'd still use a filter then instead of a local or private variable use a variable that grid (where filter expression is needed) can see too. ie: A form property: thisform.Addproperty('gridFilterData', this.value) select tmpProjData set filter to tmpProjData.ProjType == thisform.gridFilterData But a key would be much more powerfull: m.cProjType = this.Value select tmpProjData set key to m.cProjType provided it has an index ProjType and it's the current index. Yet another alternative is using SQL as recordsource of the grid. ie: with this.myGrid .recordsourcetype = 4 .recordsource = "select myField1, myField2 from myProjTable"+; " where projType = thisform.myCombo.Value into cursor tmpProjData" endwith * refresh - combo.IAC with thisform.myGrid .recordsource = .recourdsource endwith Yet another alternative is using relations or childorder, linkmaster, relationalexpr properties. Yet others exist like view, ca ... Tag: VFP6: Retrieving of data from VPF table (.dbf) through website
  - 11
    - do form and wait READ EVENT doesn't work, and the CLEAR EVENT will shut down the main program that calls the form. Is this how it's usually done Tag: VFP6: Retrieving of data from VPF table (.dbf) through website
  - 12
    - CONFIG in top-level application Hi Naomi, Thanks for the answer. 1) I think it is in the right place. I have a main directory in the root of the disc called C:\FOODAPP I have created this specifically for this application as i find it a pain to navigate around in the VisualStudio/vpf directory structure. The application builder seems to create a series of subdirectories called PROGS, REPORTS, LIBS, etc. In the root directory C:\FOODAPP is a file called config.fpw which was created by the app builder and this is the one i am editing. I then build.. an application called FOODAPP which creates a file in the directory which i can run inside Foxpro or I can build an executable which replaces the app with an exe and i can run that. I think i might have a path problem, as I am forever having to use 'set default to' and 'set path to' to get everything in the right place. But anyway, this is where the config is, but i don't know of the builder is including it when it is generating the .app or the .exe I know when i used to use fpw 2.6 that you had to add a call to the config on the desktop shortcut - and they still refer to that on the MSDN files but i can't see where you might do that with the application being built for you. 2) The user thing - i was just wondering if there was a data base created which stored the user names and passwords and security levels or something - or is just so that you can code for particular users. When i set up my user name it said something about being a 'basic user' whihc imples there are different security levels which can have different access rights and can be coded into the app. Thanks again. Tag: VFP6: Retrieving of data from VPF table (.dbf) through website
  - 13
    - New Word breaks old DDE code Yes. Our new SQL Server based product does exactly that. Our older generation product does not. Still in search of actual facts. Tag: VFP6: Retrieving of data from VPF table (.dbf) through website
  - 14
    - Load child form on Activate??? Thank you , that was a good tip. But when i added the property i saw something...why the new property name (and other elements) change to lower-case , i used a "Sentence case" or Upper case, and still returns to lower-case....is this normal ..can i change it jeje Tag: VFP6: Retrieving of data from VPF table (.dbf) through website
  - 15
    - seeking in an IF Standard way: Code Snippet * open tables and index tags use table1 tag mytag in 0 use table2 tag mytag in 0 select table1 if not seek(condition) select table2 if not seek(condition) * not found in either table endif endif You can have variations by using INDEXSEEK() instead, or the older SEEK command which I wouldn't use here. Tag: VFP6: Retrieving of data from VPF table (.dbf) through website
  - 16
    - Excluisve access It's already set off. And all my database access is made through ODBC. Tag: VFP6: Retrieving of data from VPF table (.dbf) through website
- Next
  - 1
    - Any way to introduce spelling check into VFP? You may check http://www.sweetpotatosoftware.com/SPSBlog/SearchView.aspx q=spellcheck Another way would be using Word automation and its build in Spell Check. I also think there are classes for Spell check on for-profit web site in Downloads section. Tag: VFP6: Retrieving of data from VPF table (.dbf) through website
  - 2
    - replace image with own name thanks for ur reply but i have another question. i am using EZTwain program to take the image and once i take an image it is stored in a folder "photo" and i use the replace command and save the path in my field.now the problem is when i take another picture it gets stored in the same image instead of creating another image. thanks Tag: VFP6: Retrieving of data from VPF table (.dbf) through website
  - 3
    - wsdl client I would start by making sure you have MSXML4 (the one used at the time of your version) installed: http://www.microsoft.com/downloads/details.aspx familyid=3144b72b-b4f2-46da-b4b6-c5d7485f2b42&languageid=f49e8428-7071-4979-8a67-3cffcb0c2524&displaylang=en Or you may get v6, the latest and try: http://www.microsoft.com/downloads/details.aspx FamilyID=993c0bcf-3bcf-4009-be21-27e85e1857b1&DisplayLang=en Tag: VFP6: Retrieving of data from VPF table (.dbf) through website
  - 4
    - how to escape from valid event on forms keypress or textbox's keypress event write this code IF nkeycode = 27 THISFORM . Release ENDIF Tag: VFP6: Retrieving of data from VPF table (.dbf) through website
  - 5
    - Copying a numeric value with decimals from a cursor into excel without rounding up .Value = ... is not a good style to fill in excel values and would be slow but it would work with small amount of transfers. Second with numeric values you shouln't pass them as strings but numbers. Third, assuming passing as strings was a good way, your conversion expression is the one making the roundation. See str() in help. str(123.655) str(123.655,10,2) str(123.655,10,5) Tag: VFP6: Retrieving of data from VPF table (.dbf) through website
  - 6
    - Microsoft is going open-source the core portions of the Visual FoxPro DBMS! Yes, the last Vfp core will be in the next versions of vb and c++....but never free or open. Tag: VFP6: Retrieving of data from VPF table (.dbf) through website
  - 7
    - Field names from excel import I'm using the following program for the similar purpose (assuming the fields names are in the first (or close to the first) row of the sheet: function fSplitIntoDBF lparameters tcInputFile, tnStartFromRow, tcDbfFile, tlCreateStructure, tcPassword if empty (m.tcInputFile) tcInputFile = getfile ( 'xls' , 'Select XLS' , 'Select' , 0 , 'Select XLS to create DBF from' ) if empty (m.tcInputFile) return "Input file is not passed" endif endif if empty (m.tcPassword) tcPassword = "" else tcPassword = upper (m.tcPassword) endif local loExcel, lcMsg, lcCellValue, lcStr, lcRange, ; lnRow, lnCol, lnNumSheets, lnDoneSheets, lnI, loSheet, ; lnRows, lnCols, llValFound, loErr, ; lnSameField, lnK, lnSheet, lnFinalRows, ; lnFinalCols, lcStructureDBF, lnFldLen, lcColLetter, lnK, loRange local array laFieldNames [1,3] , laTestNames [1] lcMsg = "" lcCellValue = "" lnDoneSheets = 0 if empty (m.tnStartFromRow) tnStartFromRow = 1 endif try loExcel = createobject ( "Excel.Application" ) *-- Open XLS File loExcel.DisplayAlerts = .f. loExcel. application .WorkBooks. open (m.tcInputFile,,,,m.tcPassword) lnNumSheets = loExcel. application . application .WorkBooks( 1 ).Sheets. count for lnSheet = 1 to m.lnNumSheets *-- Select individual sheet from opened XLS File loSheet = loExcel. application . application .WorkBooks( 1 ).Sheets(m.lnSheet) with loSheet . select lcStr = loExcel. application .ActiveSheet. name ** Do this only for non-SUMMARY sheets in the spreadsheet if !( "SUMMARY" $ upper (m.lcStr)) lnDoneSheets = m.lnDoneSheets + 1 ** Delete first N unused rows (help by Sergey Berezniker) if m.tnStartFromRow > 1 . range ( "A1" , "A" + transform (m.tnStartFromRow)).EntireRow. delete () endif *-- Find total # of columns and rows lnCols = .UsedRange. columns . count lnFinalCols = m.lnCols lnRows = .UsedRange. rows . count lnFinalRows = m.lnRows *-- Find total # of really used rows for lnRow = m.lnRows to 1 step - 1 llValFound = .f. for lnCol = m.lnCols to 1 step - 1 lcCellValue = .Cells(m.lnRow,m.lnCol). value if not ( empty (m.lcCellValue) or isnull (m.lcCellValue)) llValFound = .t. exit endif next if !m.llValFound . rows (m.lnRow). delete () lnFinalRows = m.lnFinalRows - 1 endif next lnRows = m.lnFinalRows &&.UsedRange.rows.count *-- Find total # of really used columns for lnCol = m.lnCols to 1 step - 1 llValFound = .f. for lnRow = m.lnRows to 1 step - 1 lcCellValue = .Cells(m.lnRow,m.lnCol). value if not ( empty (m.lcCellValue) or isnull (m.lcCellValue)) llValFound = .t. exit endif next if not m.llValFound . columns (m.lnCols). delete () lnFinalCols = m.lnFinalCols - 1 endif next lnRows = m.lnFinalRows lnCols = min (m.lnFinalCols, 254 ) && table limitation lcRange = "A1:" ** Code from Sergey Berezniker lcColLetter = iif (m.lnCols > 26 , chr ( int ((m.lnCols - 1 ) / 26 ) + 64 ), "" ) + ; chr (((m.lnCols - 1 ) % 26 ) + 65 ) lcRange = m.lcRange + m.lcColLetter + alltrim ( str (m.lnRows)) . range (m.lcRange). select loExcel. selection .EntireColumn. hidden = .f. && Unhide all hidden columns dimension laFieldNames [m.lnCols, 3] lnK = 0 *-- Create column name array for lnI = 1 to m.lnCols lcCellValue = .Cells( 1 ,m.lnI). value if vartype (m.lcCellValue) <> "C" if vartype (m.lcCellValue) = "N" lcCellValue = "_" + alltrim ( str (m.lcCellValue)) else lcCellValue = "Not Valid" endif else lcCellValue = proper ( strtran (m.lcCellValue, chr ( 10 ), " " )) endif laFieldNames [m.lnI,1] = fGetFieldName(m.lcCellValue) if vartype (laTestNames [1] ) = "C" && array was already populated if ascan (laTestNames, laFieldNames [m.lnI,1] ) > 0 * This field already exists, lets add a number at the end lnK = m.lnK + 1 laFieldNames [m.lnI,1] = laFieldNames [m.lnI,1] + transform (m.lnK) lnFldLen = len (laFieldNames [m.lnI,1] ) if m.lnFldLen > 10 laFieldNames [m.lnI,1] = right (laFieldNames [m.lnI,1] , 10 ) endif endif endif dimension laTestNames [m.lnI] laTestNames [m.lnI] = laFieldNames [m.lnI,1] laFieldNames [m.lnI,2] = alltrim (m.lcCellValue) laFieldNames [m.lnI,3] = m.lnI next if empty (m.tcDbfFile) lcStr = strtran (m.lcStr, space ( 1 ), "_" ) lcStr = strtran (m.lcStr, "." , "_" ) lcStr = upper ( strtran ( upper ( justfname (m.tcInputFile)), ".XLS" , "" ) + ; "(" + m.lcStr + ")" ) tcDbfFile = sys ( 5 ) - curdir ()- m.lcStr endif if m.tlCreateStructure lcStructureDBF = addbs ( justpath (m.tcDbfFile)) + 'XLSStructure' select 0 create table (m.lcStructureDBF) free ; (cShortName C( 10 ), cLongName C( 100 ), iSeq I) index on upper (cLongName) tag cLongName append from array laFieldNames use && Close the structure table endif ** Assign new column names to the first row for lnI = 1 to m.lnCols .Cells( 1 ,laFieldNames [m.lnI,3] ). value = laFieldNames [m.lnI,1] . columns [m.lnI] .EntireColumn.autofit() *!* if ' date ' $ " " + lower(laFieldNames[m.lnI,2]) + " " && date field *!* loRange = .UsedRange.Offset(2) && we don't want to apply format for header row *!* loRange.columns[m.lnI].NumberFormat = "mm/dd/yyyy" *!* endif try ** To make sure long descriptions fit if . columns [m.lnI] . columnwidth > 15 . columns [m.lnI] . columnwidth = 240 else . columns [m.lnI] . columnwidth = 15 endif catch to loRangeProblem * Let's ignore this error with the range and column width lcMsg = Log_Error(m.loRangeProblem) endtry next *#DEFINE xlDBF3 8 *#DEFINE xlDBF4 11 loExcel.ActiveWorkbook. saveas (m.tcDbfFile, 11 ) endif endwith next if (m.lnDoneSheets = 0 ) lcMsg = "There are no non-summary sheets in the " + ; justfname (m.tcInputFile) + " file - cannot process." else if (m.lnDoneSheets > 1 ) lcMsg = "There are too many sheets in the " + ; justfname (m.tcInputFile) + " file - cannot determine which one to use." endif endif catch to loErr lcMsg = Log_Error(m.loErr) finally if vartype (m.loExcel) = 'O' loExcel. quit loExcel = null endif endtry return m.lcMsg endfunc ************************************************************ * FUNCTION fGetFieldName() ************************************************************ function fGetFieldName lparameters tcName local lcStr, lcAllowedChars, lcFind lcStr = alltrim (m.tcName) lcAllowedChars = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' + lower ( 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' ) + "_0123456789" lcFind = chrtran (m.lcStr, m.lcAllowedChars, space ( 7 )) if len (m.lcFind) > 0 lcStr = chrtran (m.lcStr, m.lcFind, replicate ( "_" , len (m.lcFind))) endif lcStr = left ( alltrim (m.lcStr), 8 ) if asc ( left (m.lcStr, 1 )) >= asc ( "0" ) and asc ( left (m.lcStr, 1 )) <= asc ( "9" ) lcStr = "_" + m.lcStr endif return m.lcStr endfunc Tag: VFP6: Retrieving of data from VPF table (.dbf) through website
  - 8
    - Expecting Advise on A Graphics Problem If you're in VFP 9, consider using the GDI+ stuff rather than the Line method. Check out the GDIPLUS.VCX in the FFC directory, as well as the GDIPlusX project in VFPX. Tamar Tag: VFP6: Retrieving of data from VPF table (.dbf) through website
  - 9
    - DotDotDot I've noticed when I use reportbehavior 90, fields must have a certain size, otherwhise VFP shortens them and adds DotDotDot at the end. I've also noticed that there is some padding to the required size. In other words its not easy to put 2 fields very close together on a report form. For ecample, if I want to put a date range on a report with a dash in between... I'm sure I'm doing something dumb here, and any input would be apreciated. Thanks. Tag: VFP6: Retrieving of data from VPF table (.dbf) through website
  - 10
    - ComboBox Control thisform.COMBO.DisplayValue = "Please Select" thisform.ControlSource = FieldName Tag: VFP6: Retrieving of data from VPF table (.dbf) through website
  - 11
    - vfp9 error reading file 1104 on server 2003 Make sure to put config.fpw file with your application (or compile it to exe) and put something like TMPFILES = "c:\TEMP" there. In other words, make sure to specify local drive for temp files location. Tag: VFP6: Retrieving of data from VPF table (.dbf) through website
  - 12
    - How to send email by using default email client installed on user's machine http://fox.wikis.com/wc.dll Wiki~AutomatedEmail~VFP Tag: VFP6: Retrieving of data from VPF table (.dbf) through website
  - 13
    - adding carriage return and line feed through foxpro oledb provider http://www.universalthread.com/wconnect/wc.dll 2,15,1212087 http://forums.microsoft.com/MSDN/ShowPost.aspx PostID=634904&SiteID=1 http://forums.microsoft.com/MSDN/ShowPost.aspx PostID=751302&SiteID=1 Tag: VFP6: Retrieving of data from VPF table (.dbf) through website
  - 14
    - MS Access importing visual foxpro tables Thank you. This is along the lines of my suspicions. I will try importing the data into SS2005 and report back for others to see as well. Tag: VFP6: Retrieving of data from VPF table (.dbf) through website
  - 15
    - How to create a VFP program whose name should not be shown during runtime in task bar, task list, systray ? It is a virus or spy You may change some registry keys after you launch it, but that is possible to affect os and virus software..... Tag: VFP6: Retrieving of data from VPF table (.dbf) through website
  - 16
    - Need help with report expression So, where is the difference What is doing &&&, please... Tag: VFP6: Retrieving of data from VPF table (.dbf) through website

MillBear

Do I have to write asp scripts to achieve this
Is there any tutorials for the beginner

Thank you.

Top

Re: VFP6: Retrieving of data from VPF table (.dbf) through website

Lightening

www.foxweb.com

Top

Re: VFP6: Retrieving of data from VPF table (.dbf) through website

Alex Feldstein

See "Internet Enabling Visual FoxPro Applications" by Rick Strahl

http://www.west-wind.com/presentations/internetenabling/InternetEnabling.htm

Top

Re: VFP6: Retrieving of data from VPF table (.dbf) through website

Claude Fox

No, you can definitely stick with fox coding for this. Activevfp (www.codeplex.com/activevfp) is a free and open source vfp tool that lets you easily create multi-threaded vfp web apps to do just about anything. Multi-threaded is key for any web app since multiple web browsers could be hitting the application at any one time. If it is not multi-threaded (or simulated multi-threaded as many of the commercial vfp web products are) then clients will have to wait one after the other.

Top