Tuesday, May 3, 2011

VFP memo field - MySQL longtext field

Finally I found the solution for this problem.
Make Sure that the field at MySQL is more than 255 characters(longtext field)
see sample script below:
lcDSNLess="DRIVER={MySQL ODBC 5.1 Driver};UID=root;PWD=sa;Database=bill;Server=localhost;DRIVER ={MySQL ODBC 5.1 Driver};PORT=3306;NO_PROMPT=1;OPTION=134217728;"
gnConnHandle = SQLSTRINGCONNECT(lcDSNLess,.T.)
SQLEXEC(gnConnHandle,"SELECT * from mytable",'SQLResult')
SELE SQLResult
BROWSE

note: at connection string OPTION must have a value of 134217728

Tuesday, February 22, 2011

Connect to MySQL Database using Visual FoxPro (VFP)

When connecting to Databases (MSSQL,MySQL,Acces,etc.) using Visual Foxpro. We commonly create database at and remote connection.

But I do not recommend or do that. What do I do is I use connection string.
By doing this you don’t need to create DNS on ODBC.
You just need to install the Database client.

I also do not use Update Table. Table Buffer. etc..
The sample below are much more simple and faster

Example:
1 – Assign Public Variable for your connection String, Below is a sample for MySQL. note: Driver must be assigned twice to let the string work for MySQL

PUBLIC lcDSNLess
lcDSNLess=”DRIVER={MySQL ODBC 5.1 Driver};UID=root;PWD=sa;Database=bill;Server=localhost;DRIVER ={MySQL ODBC 5.1 Driver};PORT=3306;”

2 – (Inquiry) Create Your Connection and Put Mysql Data to a Cursor

STORE SQLSTRINGCONNECT(lcDSNLess,.t.) TO gnConnHandle
IF gnConnHandle < style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; padding-top: 0px; padding-right: 0px; padding-bottom: 0px; padding-left: 0px; ">= MESSAGEBOX(‘Cannot make connection’, 16, ‘SQL Connect Error’)
THISFORM.RELEASE
ELSE
**** MYSQL TABLE TO CURSOR(SQLrate) ****
sas= SQLEXEC(gnConnHandle,”SELECT * FROM rates”,’SQLrate’)
= SQLDISCONNECT(gnConnHandle)
ENDIF

3 – (Other Queries Like Update/Insert/Delete )

STORE SQLSTRINGCONNECT(lcDSNLess,.t.) TO gnConnHandle
IF gnConnHandle < style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; padding-top: 0px; padding-right: 0px; padding-bottom: 0px; padding-left: 0px; ">= MESSAGEBOX(‘Cannot make connection’, 16, ‘SQL Connect Error’)
THISFORM.RELEASE
ELSE
**** INSERT RECORD ****
sas= SQLEXEC(gnConnHandle,”INSERT INTO rates (type,value1,value2) VALUES (‘R’,150,100) WHERE tag=’R'”)
= SQLDISCONNECT(gnConnHandle)
ENDIF

Hope This Help…

Query Foxpro Qatabase(db4) using PHP

see sample script below:
note: you must first install the Microsoft FoxPro VFP Driver

String used to connect to database:

$conn=odbc_connect(“Driver={Microsoft FoxPro VFP Driver (*.dbf)};SourceDB=m:;SourceType=DBF;Exclusive=No;”,”,”);
if (!$conn) {exit(“Connection Failed: ” . $conn);}

Assign and Execute Query:

$sql=”SELECT * FROM m:/table.dbf where name = ‘Mark’ “;
$rs=odbc_exec($conn,$sql);
if (!$rs) {exit(“Error in SQL”);}

Gather/Show Data:

while (odbc_fetch_row($rs))
{
$name=odbc_result($rs,”name”);
$address=odbc_result($rs,”address”);
$age=odbc_result($rs,”age”);
echo “Name: ” . $name . “
”;
echo “Address: ” . $address . “
”;
echo “Age: ” . $age . “
”;
}

Close Connection:

odbc_close($conn);

My First Program. Hello World (VFP)

Click File - Click New
Select Form - Click New File
5. Using the control toolbox
- Select Textbox and draw at form
- Select Button and draw at form

6. Double Click Command1 Button
7. At Procedure(Click) type

thisform.text1.value="Hello World"

8. Run the Program
- Click Program Do / Click Red Exclamation / Ctrl-E
- The Program will ask to Save Form - Save Form

Sunday, August 15, 2010

Visual Foxpro Application and Database Relationship



What is Visual Foxpro

is a relational database with an object-oriented programming environment from Microsoft that comes with prewritten classes. Visual FoxPro is part of Microsoft's Visual Studio suite of products.

is relatively easy to learn and fast for developing reusable code. A programmer can write code to access a FoxPro database or as well as to connect to such databases as SQL Server and Oracle.