1 | <?php |
---|
2 | /* |
---|
3 | V4.94 23 Jan 2007 (c) 2000-2007 John Lim (jlim#natsoft.com.my). All rights reserved. |
---|
4 | Released under both BSD license and Lesser GPL library license. |
---|
5 | Whenever there is any discrepancy between the two licenses, |
---|
6 | the BSD license will take precedence. |
---|
7 | Set tabs to 4 for best viewing. |
---|
8 | |
---|
9 | Latest version is available at http://adodb.sourceforge.net |
---|
10 | |
---|
11 | Microsoft Visual FoxPro data driver. Requires ODBC. Works only on MS Windows. |
---|
12 | */ |
---|
13 | |
---|
14 | // security - hide paths |
---|
15 | if (!defined('ADODB_DIR')) die(); |
---|
16 | |
---|
17 | if (!defined('_ADODB_ODBC_LAYER')) { |
---|
18 | include(ADODB_DIR."/drivers/adodb-odbc.inc.php"); |
---|
19 | } |
---|
20 | if (!defined('ADODB_VFP')){ |
---|
21 | define('ADODB_VFP',1); |
---|
22 | class ADODB_vfp extends ADODB_odbc { |
---|
23 | var $databaseType = "vfp"; |
---|
24 | var $fmtDate = "{^Y-m-d}"; |
---|
25 | var $fmtTimeStamp = "{^Y-m-d, h:i:sA}"; |
---|
26 | var $replaceQuote = "'+chr(39)+'" ; |
---|
27 | var $true = '.T.'; |
---|
28 | var $false = '.F.'; |
---|
29 | var $hasTop = 'top'; // support mssql SELECT TOP 10 * FROM TABLE |
---|
30 | var $_bindInputArray = false; // strangely enough, setting to true does not work reliably |
---|
31 | var $sysTimeStamp = 'datetime()'; |
---|
32 | var $sysDate = 'date()'; |
---|
33 | var $ansiOuter = true; |
---|
34 | var $hasTransactions = false; |
---|
35 | var $curmode = false ; // See sqlext.h, SQL_CUR_DEFAULT == SQL_CUR_USE_DRIVER == 2L |
---|
36 | |
---|
37 | function ADODB_vfp() |
---|
38 | { |
---|
39 | $this->ADODB_odbc(); |
---|
40 | } |
---|
41 | |
---|
42 | function Time() |
---|
43 | { |
---|
44 | return time(); |
---|
45 | } |
---|
46 | |
---|
47 | function BeginTrans() { return false;} |
---|
48 | |
---|
49 | // quote string to be sent back to database |
---|
50 | function qstr($s,$nofixquotes=false) |
---|
51 | { |
---|
52 | if (!$nofixquotes) return "'".str_replace("\r\n","'+chr(13)+'",str_replace("'",$this->replaceQuote,$s))."'"; |
---|
53 | return "'".$s."'"; |
---|
54 | } |
---|
55 | |
---|
56 | |
---|
57 | // TOP requires ORDER BY for VFP |
---|
58 | function &SelectLimit($sql,$nrows=-1,$offset=-1, $inputarr=false,$secs2cache=0) |
---|
59 | { |
---|
60 | $this->hasTop = preg_match('/ORDER[ \t\r\n]+BY/is',$sql) ? 'top' : false; |
---|
61 | $ret = ADOConnection::SelectLimit($sql,$nrows,$offset,$inputarr,$secs2cache); |
---|
62 | return $ret; |
---|
63 | } |
---|
64 | |
---|
65 | |
---|
66 | |
---|
67 | }; |
---|
68 | |
---|
69 | |
---|
70 | class ADORecordSet_vfp extends ADORecordSet_odbc { |
---|
71 | |
---|
72 | var $databaseType = "vfp"; |
---|
73 | |
---|
74 | |
---|
75 | function ADORecordSet_vfp($id,$mode=false) |
---|
76 | { |
---|
77 | return $this->ADORecordSet_odbc($id,$mode); |
---|
78 | } |
---|
79 | |
---|
80 | function MetaType($t,$len=-1) |
---|
81 | { |
---|
82 | if (is_object($t)) { |
---|
83 | $fieldobj = $t; |
---|
84 | $t = $fieldobj->type; |
---|
85 | $len = $fieldobj->max_length; |
---|
86 | } |
---|
87 | switch (strtoupper($t)) { |
---|
88 | case 'C': |
---|
89 | if ($len <= $this->blobSize) return 'C'; |
---|
90 | case 'M': |
---|
91 | return 'X'; |
---|
92 | |
---|
93 | case 'D': return 'D'; |
---|
94 | |
---|
95 | case 'T': return 'T'; |
---|
96 | |
---|
97 | case 'L': return 'L'; |
---|
98 | |
---|
99 | case 'I': return 'I'; |
---|
100 | |
---|
101 | default: return 'N'; |
---|
102 | } |
---|
103 | } |
---|
104 | } |
---|
105 | |
---|
106 | } //define |
---|
107 | ?> |
---|