bb.donnay-software.com

Code: Select all

   /*** Set connection string ***/

   cConnect := "DBE=ODBCDBE"
   cConnect += ";DRIVER=AdagioDataSourceDriver"
   cConnect += ";COLUMNS=COMMON"
   cConnect += ";DBDIRECTORY=C:\Softrak\ODBCV2\SAMDATA"
   cConnect += ";DBQ=C:\Softrak\ODBCV2\SAMDATA\SAM"
   cConnect += ";DBFILTER=ar9*"
   cConnect += ";DBSELELECTOR=SAM"
   cConnect += ";NAMES=SHORT"
   cConnect += ";USERID=SYS"
   cConnect += ";PASSWORD=SYS"
   cConnect += ";RAWPASSWORD=1"
   cConnect += ";TABLESALL=FALSE"

   /*** Create dacsession ***/

   oSession := DacSession():New(cConnect)

   /*** Test for connection success ***/

   IF ! oSession:IsConnected()
      DC_Winalert("Connection failed")

      wtf "ERROR code: " + AllTrim(Str(oSession:GetLastError())), ;
         "Description: " + AllTrim(oSession:GetLastMessage()) pause

      RETURN NIL
   ENDIF

   /*** Success message ***/

   DC_Winalert("Connection to server established")

Code: Select all

   oSession:ExecuteQuery('SELECT Name FROM ar92acst') 

Code: Select all

   USE 'ar92acst'

   SQL "SELECT Name FROM ar92acst"

Code: Select all

import pyodbc

# Create statement to connect to driver
driverConnect = 'DRIVER={AdagioDataSourceDriver}' + \
	';COLUMNS=COMMON' + \
	';DBDIRECTORY=C:\\Softrak\\ODBCV2\\SAMDATA' + \
	';DBQ=C:\\Softrak\\ODBCV2\\SAMDATA\\SAM' + \
	';DBFILTER=ar9*' + \
	';DBSELELECTOR=SAM' + \
	';NAMES=SHORT' + \
	';USERID=SYS' + \
	';PASSWORD=SYS' + \
	';RAWPASSWORD=1' + \
	';TABLESALL=FALSE'

# Connect to odbc using driver
#connection = pyodbc.connect(driverConnect)

# Get cursor
cursor = connection.cursor()

# Execute select statement
cursor.execute("SELECT Name FROM ar92acst")

row = cursor.fetchone()

while row:
	print(row[0])
	row = cursor.fetchone()

Code: Select all

[ODBC_1]
Name=Ar92
Driver=AdagioDataSourceDriver
ConnectString=COLUMNS=COMMON;DBDIRECTORY=C:\Softrak\ODBCV2\SAMDATA;DBQ=C:\Softrak\ODBCV2\SAMDATA\SAM;DBFILTER=ar9*;DBSELELECTOR=SAM;NAMES=SHORT;USERID=SYS;PASSWORD=SYS;RAWPASSWORD=1;TABLESALL=FALSE

Code: Select all

 METHOD SqlQueryConnection:ConnectODBC()

LOCAL cSQLConnect, cName

dbeSetDefault('ODBCDBE')

cSQLConnect := 'DBE=ODBCDBE; '
IF !Empty(::Driver)
  cSQLConnect += 'DRIVER=' + ::Driver + '; '
ENDIF
IF !Empty(::Server)
  cSQLConnect += 'SERVER=' + ::Server + '; '
ELSEIF !Empty(::ServerDict)
  cSQLConnect += 'SERVER=' + ::ServerDict + '; '
ENDIF
IF 'ADVANTAGE STREAMLINESQL ODBC' $ Upper(::Driver)
  cSQLConnect += 'DataDirectory=' + ::Database + '; '
ELSEIF !Empty(::Database)
  cSQLConnect += 'DATABASE=' + ::Database + '; '
ENDIF
IF !Empty(::UID)
  cSQLConnect += 'UID=' + ::UID + '; '
ENDIF
IF !Empty(::PWD)
  cSQLConnect += 'PWD=' + ::PWD + '; '
ENDIF
IF !Empty(::Network)
  cSQLConnect += 'NETWORK=' + ::Network + '; '
ENDIF
IF !Empty(::ConnectTimeout)
  cSQLConnect += 'CONNECTTIMEOUT=' + Alltrim(Str(::ConnectTimeOut)) + '; '
ENDIF
cSQLConnect += ::connectString

::SessionDict := DacSession():new( cSQLConnect )

cName := ::name

IF !::SessionDict:isConnected()
  DC_WinAlert('ODBCDBE Connection Failed to ' + cName + Chr(13) + ;
              'Error code: ' + Alltrim(Str(::SessionDict:getLastError())) + Chr(13) + ;
              ::sessionDict:getLastMessage())
   RETURN .f.
ENDIF

RETURN .t.