Questions in VFP7OLEDBExampleVB sample
Hi all,
I try to run VFP7OLEDBExampleVB sample application on accessing VFP7 data
using OLE DB from ASP.NET app, and I have a problem.
Retriving data works OK, but the code give an error when try to update.
The error is in the line
Dim VFP7UpdateCommand As New OleDbCommand(strUpdateSelect, VFP7Connection)
' Execute the command
VFP7UpdateCommand.ExecuteNonQuery() ' <-------- Line with error
' Close the connection
VFP7Connection.Close()
And the error is "Cannot update cursor"
I checked the Update SQL statement, and it seems OK.
Does anyone have a clue about what is happening?
Thank you.
Bogdan Tag: CDOEX with VFP Tag: 181194
'No parameter statement is found' error with VFP3
Hi,
Recently, I was doing some enhancement for a VFP3 written old application.
When my menu call one of the form.
The form will check whether one of the table is open exclusive for packing,
if not, will prompt a message and return.
However, I keep getting this message 'No parameter statement is found' on my
return statment, with my messagebox not working.
My menu is calling this form using a procedure which I had added
a dummy parameter list, but it does not help as shown below
DoBackup procedure called by menu option
========================================
PARAMETERS pvAns
DO FORM frmBackup
------------------------------------------------
Part of FORM code that causing the above message
------------------------------------------------
SELECT backup
IF NOT ISEXCLUSIVE("backup")
=Messagebox("File not in exclusive mode")
RETURN
ENDIF
Please advise how do I solve this simple problem.
Thank you Tag: CDOEX with VFP Tag: 181192
Need some lost dll's
I was given a stand alone EXE of a Foxpro App sometime
ago. I've since moved computers, as has the developer. I
kept the EXE but have lost the associated DLL's.
Where can I find them?
I think I need..
vfpole50.dll (or greater)
vfp500.dll
vfp5enu.dll
vfpodbc.dll
Can anyone help? Please email if possible since I don't
check these boards often.
Thanks much in advance! Tag: CDOEX with VFP Tag: 181180
[Microsoft][ODBC Visual FoxPro Driver]Cannot update the cursor.
Microsoft OLE DB Provider for ODBC Drivers
error '80004005'
[Microsoft][ODBC Visual FoxPro Driver]Cannot update the
cursor.
/_asp/test.asp, line 11
It's been a week now figuring out how to solve this
problem ("cannot update the cursor"). I am using IIS 5.1
in Windows XP Professional and Visual FoxPro ODBC Driver
(6.01.8629.01). System DSN is configured properly. I
never have this problem before when I was using IIS
4.0/5.0 in NT 4.0 and Windows 2000 Professional OS.
Any suggestions? Thanks in advance.
Here's the code for reference:
<% language="VBScript"%>
<!-- #include file=../_inc/adovbs.inc -->
<html>
<head><title></title>
</head>
<body>
<%
Dim oConn
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DSN=UNR;UID=sa;PWD=pwd")
oConn.Execute("UPDATE nursegen SET FNAME = 'XXXX' WHERE
imgcode = '0000000001'")
oConn.Close
Set oConn = Nothing
%> Tag: CDOEX with VFP Tag: 181179
Minimize Window
Hello All,
I want to minimize a non-FoxPro window in a FoxPro
program. I've been told I can do this with Win API
calls, but this is uncharted territory for me. Can
someone tell me 1) if this is possible and 2) where I
might be able to find some examples?
Thanks,
Brad Tag: CDOEX with VFP Tag: 181175
how to modify the method on run time?
Hi,
I have a form with a GRID to wicj I have to change the ColumnCount property
on user´s demand, however I need all columns have some specific code on the
Resize method .
First thing I tried was to use the WriteMethod method but it seems it will
be not useful because it works only at design time (I don't understand what
is called design time on this context, but it seems it will be not a
solution)
Second try was to crete a custom GRID class based on the normal VFP GRID
class, however I found that I would also need to create a custom COLUMN
class. at least because I am creating the custom class visually instead of
using code.
It seem to me there is some way to create the custom GRID class without
having to create also a Column custom class, but I don't know how
Thanks in advance for your comments
Oscar Taboada Tag: CDOEX with VFP Tag: 181169
- How can I SELECT triplets of records as a single record within the same query?
I have a table which looks like this:
iId | cName |
--------------
001 | aaa
002 | bbb
003 | ccc
004 | ddd
005 | eee
006 | fff
007 | ggg
008 | hhh
... | ...
What I need to do is this:
iId1| cName1| iId2| cName2| iId3| cName3
----------------------------------------
001 | aaa | 002 | bbb | 003 | ccc
004 | ddd | 005 | eee | 006 | fff
007 | ggg | 008 | hhh | ... | ...
Can this be done as a single SELECT statement? Tag: CDOEX with VFP Tag: 181164
HELP! How to wait until a form is released (after a DO FORM) to run next code?
Hi all,
I've been banging my head over this problem for two hours by now:
I have a modeless form which called another Modal form with a click of a
button:
DO FORM form_b
Messagebox ("This should only appear AFTER form_b is released!")
Is there any way that I could force VFP not to run the messagebox BEFORE
form_b is being released? The messagebox keep on appearing on top of form_b
regardless what I do. In a desperation I tried:
- Change the value of form_b's WindowType Property from Modal to
Modeless
- Put DOEVENT [FORCE] before the 'DO FORM... ' command
- Alter AutoYield property (yes.. I know it has nothing to do with this)
- Put the form in a base class and create an instances instead of 'DO
FORM' it
- Put a bag of ice in my forehead
- Eat a Mars bar
- Drink two cup of coffee
None solve the problem! And this is my last effort: yell for a help in this
ng!
Ideas anyone???
TIA,
Willianto Tag: CDOEX with VFP Tag: 181162
Source is out of date
Hello,
When I'm in "Modi Poject" stage, and I make changes to a
PRG file. The changes will not take effect until I
completely out of "Visual FoxPro" and come back. In
the "Command Box", I tried to delete the FXP file, It will
tell me "file is in used" and not allow me to delete.
Especially when I tried to debug a program using "Set step
on", If I don't exist out of "VFP", it will give me
the "Source is out of Date" message. How can I get around
this problem??
Thanks a million in advance!
Nancy Tag: CDOEX with VFP Tag: 181145
call of a function of web browser activeX
Hi
In VFP6 SP5, I use the WebBrowser control (same as IE)
How to call the copy or print function that you can find in the right click menu
?
Thanks--
Olivier (enlever les 3X pour la réponse) Tag: CDOEX with VFP Tag: 181142
How to use blat.dll to send attach file ?
Hi,
with VFP6 SP5
In a form, I have a button "mail to the autor this file"
1. What is the right syntax of the string passed to the send function of the
blat.dll (I dont know the adress of the sender, le recipient adress is my own
adress BlackSabbath@hell)
2. Is it necessary to register the blat.dll during the installation by the
client ?
Thanks--
Olivier (enlever les 3X pour la réponse) Tag: CDOEX with VFP Tag: 181139
VFP 8.0 and Windows
It says in the online documentation that VFP 8 requires
Windows 98 or later for runtime programs. Does anyone
know if this is completely and absolutely true? i.e. will
runtime programs actually run under Windows 95? And if
so, are there any particular problems? (I have a small
user community of W95 users!) Tag: CDOEX with VFP Tag: 181135
How to list all open Window in a menu?
Hi all,
The main window of My_apps is a top-level form, and other 'child' windows
are 'In-top-level'.
Problem: I want to add an ability to list all open window in my_apps in a
menu. Just like the one we have when we click on Window in VFP IDE.
Can anybody show me the how-to?
TIA,
Willianto Tag: CDOEX with VFP Tag: 181117
Ejecting a CD using foxpro code?
Hi,
Does anybody know how I can eject a CD/DVD from foxpro. Is there any
examples or API calls?
Thanks,
Tristan McElhinney
BackPack Product Manager
www.backpackpro.com [Zip Backup Software, Internet Enabled, Free 30 day
Trial] Tag: CDOEX with VFP Tag: 181104
Insert Picture into Word
I have the book " Microsoft Office Automation with Visual FoxPro" and
have been trying to open a Word application and then inserting a
picture into it using the following code:
GOODAPP = 'TRUE'
ON ERROR GOODAPP = 'FALSE'
oWord = CREATEOBJECT("WORD.APPLICATION")
IF GOODAPP = 'TRUE'
oWord.Documents.ADD()
oWord.visible = .t.
oRange = oWord.Paragraphs[1].Range()
oWord.InLineShapes.AddPicture("C:\elks\artwork\elk1.jpg", .F., .T.
,oRange)
ELSE
WAIT 'AFTER ELSE STATEMNET IT DID NOT OPEN' WINDOW
ENDIF
The word application opens up and I have a blank screen but I cannot
get it to insert the picture. The picture is located at
C:\elks\artwork\elk1.jpg
Of course elk1.jpg is the picture and it is at that location. I must
just be reading or writing something wrong that I can't see. Any help
would be nice.
Tony Tag: CDOEX with VFP Tag: 181102
How to put line feeds into email sent by VFP?
How does one add line feeds to the body section of email prepared in VFP?
I'm using the ShellExecute method, as in:
ShellExecute(0,"open",lcMail,"","",1)
where lcMail is built from vars holding adddress, subject, CC, body, etc.
data. All the sections work fine except for the body...it comes out as a
single long line of text. For example, if I define two line items I want
to put in the body, such as:
lcLine1 = 'hello world'
lcLine2 = 'goodbye'
lcBody = lcLine1 + lcLine2
I want it to appear in the email body as:
hello world
goodbye
Instead, it ends up on a single line as:
hello worldgoodbye
I've tried adding CR/LF's to it, as in:
lcLine1 = 'hello world' + chr(13) + chr(10)
lcLine2 = 'goodbye' + chr(13) + chr(10)
I've tried various combinations of chr(13) and chr(10), to no avail...the
body lines always just run together. This is VFP6(SP5) and Outlook
Express. What's the secret line feed character for email? I assume it's
the same for all email apps. Any suggestions? Thanks :) Tag: CDOEX with VFP Tag: 181101
Address formats for English speaking countries
Anybody have a list of these or a reference to one (or even some of them)?
tia
anthony shipley
-
Military Intelligence..... still an oxymoron! Tag: CDOEX with VFP Tag: 181099
How do I store and retrieve double byte characters in a foxpro table?
VFP 6.0 SP5
I have an existing application that stores U.S. and European HTML documents
and now I have been asked to include the Pacific Rim.
I need to store html files, with double-byte characters, in a table's memo
field, then retrieve them and
display in IE.
Do my tables have to be in a specific code page?
Does anyone know the exact steps to store double-byte characters and then
retrieve them so that they will display correctly in Unicode compatible
controls?
Thanks in advance,
Craig Tag: CDOEX with VFP Tag: 181098
A matter of style
I'm writing a visual foxpro based application for sale, and I have a
question regarding style.
There are two forms in question: the main data entry form, and the
form that handles printing. The main form has a print button that can
call up the print form. The print form has two buttons: Print and
Print Preview.
My question is this: should I (1) - leave the print preview button
where it is and leave the main form alone, (2) - create a new button
on the main form for print preview and retain the print preview button
on the print form, or (3) - move the print preview button to the main
form from the print form.
It's a little thing, the coding is no problem either way, but I would
like to know.
Thanks for your help! Tag: CDOEX with VFP Tag: 181091
help
Hello:
I am new with Visual Studio FoxPro 6.0. I am encountering
an error message "Source code out of date". The FoxPro
help file indicates this means the .FXP is not matching
with the source code. But no where in the help files was
I able to find how to fix it. I have compiled the program
multiple times. I selected Build Application and Build
Project. What am I doing wrong?
Emily Tag: CDOEX with VFP Tag: 181081
Com+
Hi All
I need Example to How Send and Retrieve data From busines rule Com+ Server
With ADO
Conncted With SQL Server 2000
Tankes Tag: CDOEX with VFP Tag: 181076
Comm already open?
Hello
I am using a form with MSCOMM to comunicate with A MICR
Reader connected to it on com1. I have the com port set
on the ININ Event thru passed variables from the calling
procedure. I then wait for input from the MICR reader and
simply write each line to a .dbf. The form works fine in
development under foxpro but when I compile the project i
consistantly get an error "OLE IDispatch exception code 0"
from the forms "MICRREAD.CPORT.INIT" Procedure which
contains
this.commport = micrcom && 1
this.settings = micrset && "9600,N,8,1"
THIS.PortOpen = .T.
What would cause it not to run compiled as an exe but to
run ok under foxpro?
Thanks
Glen Tag: CDOEX with VFP Tag: 181072
Printing DBF structure
Hello,
I have a strange printing problem! When "list struture"
to the printer, it always take up 2 or more lines because
of the spaces between columns. I tried everthing I could
think of. I know is not the printer, because, it used to
print fine. I tried different printer, differnt printer
fonts, still didn't make any differnt. I tried the "Shift-
Format", but that only changes the display on the screen.
Can some one please help me. Is difficult to read the way
it prints.
Thanks a bunch in advance
Nancy Tag: CDOEX with VFP Tag: 181056
COM object string
We have purchased a third party com object that requires the sending of a
userkey to initialize it. I am having problems with it and I am trying to
pinpoint why I am having problems. One of my problems is that the user key
that was given to us is 256 characters. I read in VFP help that strings can
only be 255 characters. I was wondering if this could be my problem. Can I
send 256 characters as a parameter to a method of a COM object?
--
Altman
VFP7 SP1
"No matter how foolproof you make a system, 'fools' can be remarkably
ingenious." Tag: CDOEX with VFP Tag: 181051
MS Web Browser in a form
Hi All (again),
I've got a Web Browser control on a form that gives an error, OLE error code
0x80004005, on startup but functions just fine from that point on. I know
I've seen a workaround that involved something like adding a dummy line of
code (like m.Dummy = .T. in the Init) but can't recall. Any ideas?
TIA,
John Tag: CDOEX with VFP Tag: 181045
Vfp7r.dll is missing or damaged
When I install my VFP7 application on some W95 and W98
machines, I get the message 'Vfp7r.dll is missing or
damaged' when running the application.
Any ideas?
James McKelvie Tag: CDOEX with VFP Tag: 181042
VFP7 weird problem with buffered added records
This is the most bizarre behaviour I've seen yet in VFP7.
I have a form that allows add/edit of 2 related files, a
header with detail records. When I click the Add button,
it adds a record to the header( recno -1) and the detail
(recno -1) automatically. If I click revert, I issue
TABLEREVERT on both tables and everything is fine.
When I click Add again, it again adds a record to the
header( recno -1) and the detail but this time recno is -2
even though there is no recno -1 on the file (I checked
this at the command box with GO -1).
This I don't understand but what's more, if during this
add I go off to a totally unrelated form and do and Add on
it and then Save which does a TABLEUPDATE on a completely
different table, when I hit the END TRANSACTION of this
table's Save code, the record number on the totally
unrelated file changes from -2 to -1, so my code that
tries to position on the correct record number on the
details file when returning to the screen crashes with EOF
encountered.
Help!!! I can't see any way of fixing this behaviour.
Bernie Tag: CDOEX with VFP Tag: 181030
primary and candidate index
Primary and candidate index best to avoid double data,
but unfortunately in share environment We ecounter problem.
Because we cannot pack the deleted record, meanwhile index
ignore the state of delete so it still exists in index.
When we add a record with key that has been deleted but
not packed yet, it will violate the unique.
Is there any way to solve this ?
Thanks in advance Tag: CDOEX with VFP Tag: 181025
sending email via lotus notes more than one recipient
Why Lotus Notes does not sending email if the recipient
more than one. It does save to sent folder but it does not
automaticlly send. If the recipient only one it work
perfeclly.
I have other code too from friends here, using
cusNotesAutomation class, but it work like my code below,
does not automaticlly send if more than one recipient.
Can someone help ?
Sen
Here are the code:
SES = CREATEOBJECT("Notes.NotesSession")
m.MailFile = ses.GetEnvironmentString("MailFile", .t.)
m.MailServer = ses.GetEnvironmentString("MailServer", .t.)
DB = SES.GetDatabase(M.MAILSERVER,M.MAILFILE)
DOC = DB.CreateDocument()
RTITEM = DOC.CreateRichTextItem("FileToAppend")
DOC.form = "Memo"
DOC.subject = "pls iqnore this"
DOC.body = ""
DOC.SaveMessageOnSend=.t.
lcsendto="aaa@aaa.com,bbb@aaa.com"
DOC.sendto=lcsendto
lcret=doc.send(.t.,lcsendto) Tag: CDOEX with VFP Tag: 181024
Capture en print signature
Hi,
I had a question from a client that wants to capture a
signature from their clients in real time, and print it on
a confirmation report. I thought of putting a MS Paint
object in a form and letting the client sign via a graphic
tablet. Also I saw an article in Foxpro Advisor about
tablet PC's, where you can use a pen to draw on the
screen. However, I don't want to use a Tablet PC, but the
idea of a pen seems intresting for this project. Does
anybody have experience with this kind application, or can
you advice me on what best to use ?
thanks in advance
Xavier Tag: CDOEX with VFP Tag: 181019
Label Design
Hi,
Is there a way to design Label files (Label Definition Files)
programmatically?
I would like to create labels on the fly through a program (define margins,
no of columns etc)?
Demetrios, Greece Tag: CDOEX with VFP Tag: 181015
Display Problem, Probably OS-Related
This question is about using VFP 8.0 in the development environment under
Windows/2000.
When I bring up certain OS dialogs that permit the user to select a file or
subdirectory, the files are not in alphabetical order.
For example, if you issue the command "CREATE CLASS" and click on the "Store
In" button, you get the "Save As" dialog which permits you to select a file
or a subdirectory.
Another example: issue the command "CREATE CLASS" and click on the "Based
On" command button. You get the same dialog but it is labeled "Open".
On my last development machine, which ran Win/NT 4.0, the files and
subdirectories were displayed in this dialog in alphabetical order. On the
Win/2000 machine, they are not in alphabetical order. It's not clear what
order they are in, maybe most recently accessed.
Is there some way to get them to be displayed in alphabetical order?
Thanks, Chaim Tag: CDOEX with VFP Tag: 181012
need to access VFP8 tables from VC++ ?
I need to access VFP8 tables from VC++; I can see that
there is a Visual Fox Pro ODBC Driver for Database and
Tables that comes with Microsoft Data Access Components
2.8 but when I try to use the driver through Microsoft
Access (link the tables) I get the following error
Could not execute query;could not find linked table.
[Microsoft][ODBC Visual FoxPro Driver]Not a table (#123).
Is the driver that comes with MDAC 2.8 reliable or should
I use something else (any other commercial or shareware
product)?
THANKS! Tag: CDOEX with VFP Tag: 181011
What is the purpose of the ` key in VFP?
This is character below the ~. It seems like this key
does something, but I can't find anything that says
what. I am curios because I hit it accidently once in a
while, and the next character displayed is unprintable -
just a box. Is it the first key in the god-mode
sequence?! :) Thanks for the info.
Ben Tag: CDOEX with VFP Tag: 181005
MSComm and Windows XP
Has anyone had success running the MSComm32 ActiveX control with VFP on
Windows XP? I have an app which runs fine with Windows 2000, but gives no
serial input with XP Pro. Same application, same computer, both running in a
development environment with VFP7 SP1, and the MSComm32 OCX definitely
installed and registered.
I can get serial input no problem with HyperTerminal on XP, and the MSComm
CommEvent property seems to be stuck on 3 - not sure what that means. Sorry
I can't give more information, but I had to roll it back to Windows 2000
quickly because of time constraints. Any pointers for the future would be
appreciated.
Regards,
Neil
---
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.516 / Virus Database: 313 - Release Date: 01/09/2003 Tag: CDOEX with VFP Tag: 181002
Strange Behavoir in Grid in VFP8
I have a form that contains a page frame consisting of 5 pages. On page 1 I
have a grid that is linked to the child data.
On page 2 I have a command button that calls a form method that positions
the cursor back to the first text box on page 1. When page 1 gets the
focus, the grid still shows the child data, however, the scroll bar is
disabled and the row highlight bar will not move. When I click on different
cells in the grid, they will change to another color. It is like the record
pointer is not being moved or the relationship in the grid is lost.
The code in the command button is:
SELECT posinvoice
thisform.pfPOS.pgItems.setfocus()
thisform.pfPOS.pgItems.cntItem.getsku.setfocus()
There is no code in the setfocus methods of each control.
Has anyone experienced this or do you know what may be happening.
Thanks in advance.
John. Tag: CDOEX with VFP Tag: 180991
Word Automation Problem
Hello - my application uses ole Automation to integrate the Word spell check
with certain things in my program. I have some users who say it gives errors
and Word does not start. I do not understand why. One user said that it
worked on all their workstations except one. All of the configurations were
the same. I had them try to uninstall and reinstall Word as well as my
application and it still did not work. As an experiment I had them try and
downgrade their Word 2000 to Word 97 and it worked on that one workstation that
was causing the problem. What would cause this? Why does it work fine on all
the other workstations with Word 2000 but not that one? I have another client
who has the same problem - it's working on all their workstations except one
and they too have Word 2000. I have this feeling that it is some registry
problem but if so how would they go about fixing it?
Thanks for any help,
Mike Tag: CDOEX with VFP Tag: 180990
decompiler
I am a foxpro 2.6 developer and have an application, which has a
version that my predicessor lost the source code. Beings that I have
the .app file, is there a decompiler out there, that could be used to
get the source code back. Any help would be appriciated. Tag: CDOEX with VFP Tag: 180988
Grid order by
I have a grid that shows data from a table and I have in the data
environment to have the table that is uses to be ordered by a certain field.
When it shows up in the grid it is not ordered by this field though. Is
there a way to get this to be ordered??? What am I doing wrong?
--
Altman
VFP7 SP1
"No matter how foolproof you make a system, 'fools' can be remarkably
ingenious." Tag: CDOEX with VFP Tag: 180980
How to get rid of lastkey() value
We have some old code in our system that checks whether
lastkey()=27 before exiting screens etc. It appears that
whenever a Cancel button (terminateread=.T., cancel=.T.)
is pressed, lastkey() equates to 27 even though the user
hasn't pressed the Escape key. I am trying to clear
lastkey to minimise the code needing changed, but I can't
get it to work. Here's what I've tried -
KEYBOARD "{Enter}" CLEAR && to stop lastkey() being equal
to 27!
CLEAR TYPEAHEAD
This seems only to work every second time for some
reason???
Any ideas?
Bernie Tag: CDOEX with VFP Tag: 180967
Filer.dll question
This is a multi-part message in MIME format.
------=_NextPart_000_0010_01C377B5.9255FA80
Content-Type: text/plain;
charset="Windows-1252"
Content-Transfer-Encoding: quoted-printable
In the following code sample, I could not get the file collection =
(Directory and subdirectory names in this case) sorted properly:
************************************************
close all
clear all
clear
set talk off
oMyFiler =3D createobject('Filer.FileUtil')
oMyFiler.SearchPath =3D getdir()
oMyFiler.Subfolder=3D1
oMyFiler.FileExpression =3D '*.'
oMyFiler.Find(0)
oMyFiler.Sortby=3D1 && Path and file name
for nFileCount =3D 1 to oMyFiler.Files.Count
if left(oMyFiler.Files.Item(nFileCount).name,1)=3D'.' or =
oMyFiler.Files.Item(nFileCount).attr#2064
loop
else
=
?oMyFiler.Files.Item(nFileCount).path+oMyFiler.Files.Item(nFileCount).nam=
e
endi
endfor
close all
clear all
set talk on
************************************************
Any suggestions?
sp
------=_NextPart_000_0010_01C377B5.9255FA80
Content-Type: text/html;
charset="Windows-1252"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Dwindows-1252">
<META content=3D"MSHTML 6.00.2800.1226" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>In the following code sample, I could =
not get the=20
file collection (Directory and subdirectory names in this case) sorted=20
properly:</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial=20
size=3D2>************************************************</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>close all</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>clear all</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>clear</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>set talk off</FONT></DIV>
<DIV><FONT face=3DArial size=3D2> </DIV></FONT><FONT face=3DArial =
size=3D2></FONT>
<DIV><FONT face=3DArial size=3D2>oMyFiler =3D=20
createobject('Filer.FileUtil')<BR>oMyFiler.SearchPath =3D=20
getdir()<BR>oMyFiler.Subfolder=3D1<BR>oMyFiler.FileExpression =3D=20
'*.'<BR>oMyFiler.Find(0)<BR>oMyFiler.Sortby=3D1 && Path and file =
name</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>for nFileCount =3D 1 to=20
oMyFiler.Files.Count<BR> if=20
left(oMyFiler.Files.Item(nFileCount).name,1)=3D'.' or=20
oMyFiler.Files.Item(nFileCount).attr#2064<BR> loop<BR> el=
se<BR> ?oMyFiler.Files.Item(nFileCount).path+oMyFiler.Files.It=
em(nFileCount).name<BR> endi<BR>endfor</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>close all</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>clear all</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>set talk on</FONT></DIV><FONT =
face=3DArial size=3D2>
<DIV><BR>************************************************</DIV>
<DIV> </DIV>
<DIV>Any suggestions?</DIV>
<DIV> </DIV>
<DIV>sp</FONT></DIV></BODY></HTML>
------=_NextPart_000_0010_01C377B5.9255FA80-- Tag: CDOEX with VFP Tag: 180951
Visual FoxPro News for September
Hello, All!
I didn't see an announcement in the group so here goes.
KL's latest letter in which he talks about VFP8 SP1
http://msdn.microsoft.com/vfoxpro/letters/
--
Eric den Doop
www.foxite.com - The Home Of The Visual FoxPro Experts - Powered By VFP8 Tag: CDOEX with VFP Tag: 180939
Keep focus on same control
Hi all, I'm having a tetbox on my form I want the users should type (or scan
from barcode) a value then in VALID event process some code then clear the
value and keep focus on same textbox to type in new values but I can't call
Setfocus event from Valid or LostFocus events.
Any help will be greatly appriciated.
Thanks
Simon Tag: CDOEX with VFP Tag: 180929
foxpro tables on PocketPc
Dono anymore who was looking for something similar
(it was more appdev) but this can be a start
Foxpro with index compatible
tables on a pocketPc !
I didn't try it (later maybe)
but maybe others now something more about it
http://www.pylin.com/docs/doc_xbase.asp
christophe
belgium Tag: CDOEX with VFP Tag: 180924
New MSGraph
FoxPro user group,
Can we -fox developers- reditribute the new version of
MSGraph?
Thanks in advance...
Bastian V. Tag: CDOEX with VFP Tag: 180910
Divid by Zero Error
hi;
I'm working in foxpro. Program, but whenever i tried to
print it gives me zero error.
so i will be grateful, by find a solution for this errore
from from any one. Tag: CDOEX with VFP Tag: 180904
Is Nothing $ Nothing?
Check the following:
STORE "" TO nada
STORE "" TO zilch
? nada $ zilch && Returns .F.
STORE SPACE(10) TO nada
STORE "" TO zilch
? LEN(nada) && Returns 10
? zilch $ nada && Returns .F.
Is this appropriate behavior?
Okay, so it sort of makes sense that if something doesn't contain
anything, then it can't even contain nothing.
But it sure kabolixes things up when you want to do a "contains"
comparision where an empty string or an empty character field are just
as valid values for comparison as any other.
My particular case is a system where "jobs" are set up by one
department and "invoices" are assembled from those jobs by another
department. An invoice can contain many jobs, done over a period of
time. The idea is to automatically pull all jobs being billed to the
same organization into one invoice. Since the same organization can be
represented by different strings (ie., "Lourdes Hospital", "Our Lady
of Lourdes Hospital", "Our Lady of Lourdes", or just "Lourdes"), I
need to start with some job (preferably the shortest name), and look
for all other jobs that contain the organization name from the current
job. IE,
temporgan = "Lourdes"
SELECT..... ;
WHERE UPPER(ALLTRIM(temporgan)) $ UPPER(ALLTRIM(organ))...
My workaround is to create two separate WHERE clauses--one to use if
"temporgan" turns up empty and one if it doesn't.
Not difficult, but this did bite me when, after the system had been in
use for several months, it finally stumbled on a billing contact with
no organization name.
It seems to me that $ would be even more useful if it would return .T.
when it compares two variables that, in the end, both evaluate to
EMPTY().
Thanks for your thoughts.
Ken Dibble
Southern Tier Independence Center, Inc. Tag: CDOEX with VFP Tag: 180892
Using a Dll With an Event in a VFP Form.
I have a client that is adding a barcode card reader to a turn style access
gate. The reader vendor provided a dll with examples for VB. I have used
3rd party dll's before but never to respond to an event initiated by the
dll.
I can connect to the reader and send data.
When I use there connection string I connect and can send data but return
.Null. as the return value instead of the 0 or 1
nRetval = 0
nGateNumber = 1
nIp = 10.10.1.2
nMyRetval = oreader.SendConnection(nGateNumber, nIp, nRetVal)
It requires the 3rd parameter but always returns .Null. (I have played with
various values of nRetVal although this is actually the retval. and the
value of nRetVal is always the value that I set it to after I call the
method.)
My other issue is I am not sure how to respond to the DataFromGate event
generated when a user scans there card.
I need to take the card number and look it up to see if they are paid up and
open or close the gate.
This will be called from form open on the front desk used to see details if
the account is past due or to manually open the gate. But for 98% of the
people the form will function without any user input other than the scan of
the card triggering the DataFromGate Event which sends the form the card
number.
I believe i need to create a wrapper for the DataFromGate method but and not
sure how to do that or add it to my existing form.
Thanks for your help.
Larry Oliver
All the documentation I have is included below.
dll Reference
Methods
CloseConnection ()
Description:
Closes the connection with the card reader or IPC.
SendData (short validEntry, short sound, short light, variant
textLine1,variant textLine2, variant textLine3, short time)
Description: Controls the connected gate. Can be used to open the gate, keep
it closed and display messages.
Parameters:
validEntry - The action to be taken by the gate. 0 Keep the gate closed, 1
open the gate.
sound - The type of sound to be made by the gate. 0 sound off, 1 valid, 2
not valid, 3 error
light - type of flashing for the light. 0 light off, 1 solid on, 2-13
various flashing speeds.
textLine1 - First line of text to be displayed on card reader.
textLine2 - Second line of text to be displayed on card reader.
textLine3 - Third line of text to be displayed on card reader if available.
time - Length of time in seconds for the gate to flash or display a message
before being reset.
SetConnection (long gateNumber, variant IPAddress, long returnValue)
Description: Connects to an IPC or individual card reader. Must be called
first in order to receive gate events and send data.
Parameters:
gateNumber - The number of the card reader, either 1 or 2, used for
compatibility with systems using an IPC.
IPAddress - A string containing the IP address of the individual card reader
or IPC.
returnValue - The result of the connection attempt. 1 successful, 0 failed.
Events
DataFromGate (String cardNumber)
Description: Called when the gate has received a card number scanned by a
member.
Parameters:
cardNumber - The number on the card scanned by the card reader. Tag: CDOEX with VFP Tag: 180885
Dragging classes on to form...
There is probably a very simple answer, but how do I drag an object in the
class browser onto a form? Or how do I place the object such as a command
button onto a form? Tag: CDOEX with VFP Tag: 180881
HI
There is somewhere a example for CDOEX with VFP ? I need to change a
solution based on MAPI to a solution based on Exchange Server