From 0c33c61ecb1fe2c8502bd3993f080e1d474356d9 Mon Sep 17 00:00:00 2001
From: Antonio Linares <alinares@fivetechsoft.com>
Date: Tue, 1 May 2007 06:50:19 +0000
Subject: [PATCH] MySQL LOCATE and CONTINUE sample

---
 harbour/contrib/adordd/mysql3.prg | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 harbour/contrib/adordd/mysql3.prg

diff --git a/harbour/contrib/adordd/mysql3.prg b/harbour/contrib/adordd/mysql3.prg
new file mode 100644
index 0000000000..fa5cfdccad
--- /dev/null
+++ b/harbour/contrib/adordd/mysql3.prg
@@ -0,0 +1,21 @@
+// Testing LOCATE
+
+#include "adordd.ch"
+
+REQUEST ADORDD
+
+function Main()
+
+   USE test00 VIA "ADORDD" TABLE "ACCOUNTS" MYSQL ;
+      FROM "www.freesql.org" USER "myuser" PASSWORD "mypass"
+
+   LOCATE FOR "City LIKE 'Chi*'"
+
+   while ! Eof()
+      ? test00->First, test00->City
+      CONTINUE
+   end   
+
+   USE
+
+return nil
\ No newline at end of file