C:\xampp\php\pear\adodb\drivers\adodb-sybase_ase.inc.php


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
<?php
/*
  V5.18 3 Sep 2012  (c) 2000-2012 John Lim (jlim#natsoft.com). All rights reserved.
  Released under both BSD license and Lesser GPL library license. 
  Whenever there is any discrepancy between the two licenses, 
  the BSD license will take precedence.
  
  Set tabs to 4.
  
  Contributed by Interakt Online. Thx Cristian MARIN cristic#interaktonline.com
*/


require_once ADODB_DIR."/drivers/adodb-sybase.inc.php";

class 
ADODB_sybase_ase extends ADODB_sybase {
     var 
$databaseType "sybase_ase";
    
     var 
$metaTablesSQL="SELECT sysobjects.name FROM sysobjects, sysusers WHERE sysobjects.type='U' AND sysobjects.uid = sysusers.uid";
     var 
$metaColumnsSQL "SELECT syscolumns.name AS field_name, systypes.name AS type, systypes.length AS width FROM sysobjects, syscolumns, systypes WHERE sysobjects.name='%s' AND syscolumns.id = sysobjects.id AND systypes.type=syscolumns.type";
     var 
$metaDatabasesSQL ="SELECT a.name FROM master.dbo.sysdatabases a, master.dbo.syslogins b WHERE a.suid = b.suid and a.name like '%' and a.name != 'tempdb' and a.status3 != 256  order by 1";

    function 
ADODB_sybase_ase()
    {
    }
    
    
// split the Views, Tables and procedures.
    
function MetaTables($ttype=false,$showSchema=false,$mask=false)
    {
        
$false false;
        if (
$this->metaTablesSQL) {
            
// complicated state saving by the need for backward compat
            
            
if ($ttype == 'VIEWS'){
                        
$sql str_replace('U''V'$this->metaTablesSQL);
            }elseif (
false === $ttype){
                        
$sql str_replace('U',"U' OR type='V"$this->metaTablesSQL);
            }else{ 
// TABLES OR ANY OTHER 
                        
$sql $this->metaTablesSQL;
            }
            
$rs $this->Execute($sql);
            
            if (
$rs === false || !method_exists($rs'GetArray')){
                    return 
$false;
            }
            
$arr $rs->GetArray();

            
$arr2 = array();
            foreach(
$arr as $key=>$value){
                    
$arr2[] = trim($value['name']);
            }
            return 
$arr2;
        }
        return 
$false;
    }

    function 
MetaDatabases()
    {
            
$arr = array();
            if (
$this->metaDatabasesSQL!='') {
                
$rs $this->Execute($this->metaDatabasesSQL);
                if (
$rs && !$rs->EOF){
                    while (!
$rs->EOF){
                        
$arr[] = $rs->Fields('name');
                        
$rs->MoveNext();
                    }
                    return 
$arr;
                }
            }
            return 
false;
    }

    
// fix a bug which prevent the metaColumns query to be executed for Sybase ASE
    
function MetaColumns($table,$upper=false
    {
        
$false false;
        if (!empty(
$this->metaColumnsSQL)) {
        
            
$rs $this->Execute(sprintf($this->metaColumnsSQL,$table));
            if (
$rs === false) return $false;

            
$retarr = array();
            while (!
$rs->EOF) {
                
$fld = new ADOFieldObject();
                
$fld->name $rs->Fields('field_name');
                
$fld->type $rs->Fields('type');
                
$fld->max_length $rs->Fields('width');
                
$retarr[strtoupper($fld->name)] = $fld;
                
$rs->MoveNext();
            }
            
$rs->Close();
            return 
$retarr;    
        }
        return 
$false;
    }
    
    function 
getProcedureList($schema)
    {
            return 
false;
    }

    function 
ErrorMsg()
    {
        if (!
function_exists('sybase_connect')){
                return 
'Your PHP doesn\'t contain the Sybase connection module!';
        }
        return 
parent::ErrorMsg();    
    }
}

class 
adorecordset_sybase_ase extends ADORecordset_sybase {
var 
$databaseType "sybase_ase";
function 
ADORecordset_sybase_ase($id,$mode=false)
    {
        
$this->ADORecordSet_sybase($id,$mode);
    }
    
}
?>
x

Windows NT KPTV 6.2 build 9200 (Windows Server 2012 Datacenter Edition) i586