PC Toledo

Código: Selecionar todos

//Linkar / informar a LIB obbc32.lib (Borland C) no seu arquivo .HBP
#pragma BEGINDUMP

   #include <stdio.h>
   #include <sql.h>
   #include <sqlext.h>

   #define MAX_DRIVER_COUNT 50

// Função para obter a lista de drivers ODBC
HB_FUNC( GETODBCDRIVERS )
{
    SQLHANDLE henv;
    SQLRETURN ret;
    static char drivers[MAX_DRIVER_COUNT][1024]; // Array para armazenar os nomes dos drivers
    static char result[1024 * MAX_DRIVER_COUNT];
    int count = 0;
    int i;
    
    SQLCHAR driver[1024]; // Declarado no início da função

    SQLAllocHandle(SQL_HANDLE_ENV, SQL_NULL_HANDLE, &henv);
    SQLSetEnvAttr(henv, SQL_ATTR_ODBC_VERSION, (SQLPOINTER)SQL_OV_ODBC3, 0);

    ret = SQLDrivers(henv, SQL_FETCH_FIRST, driver, sizeof(driver), NULL, NULL, NULL, NULL);

    while (ret != SQL_NO_DATA && count < MAX_DRIVER_COUNT - 1) {
        snprintf(drivers[count], sizeof(drivers[count]), "%s", driver);
        count++;

        ret = SQLDrivers(henv, SQL_FETCH_NEXT, driver, sizeof(driver), NULL, NULL, NULL, NULL);
    }

    drivers[count][0] = '\0'; // Null-terminate the last string

    SQLFreeHandle(SQL_HANDLE_ENV, henv);

    // Concatenar os nomes dos drivers em uma única string
    result[0] = '\0';

    for (i = 0; i < count; i++) {
        strcat(result, drivers[i]);
        strcat(result, "\n");
    }
    
    hb_retc( result );
    
    return ;
}
#pragma ENDDUMP

Código: Selecionar todos

Option Explicit

Private Declare Function SQLDataSources Lib "odbc32.dll" Alias "SQLDataSourcesA" (ByVal henv As Long, ByVal fDirection As Integer, ByVal szDSN As String, ByVal cbDSNMax As Integer, ByRef pcbDSN As Integer, ByVal szDescription As String, ByVal cbDescriptionMax As Integer, ByRef pcbDescription As Integer) As Integer

Private Const SQL_FETCH_FIRST = 1
Private Const SQL_FETCH_NEXT = 2
Private Const SQL_FETCH_FIRST_USER = 31
Private Const SQL_FETCH_FIRST_SYSTEM = 32

Private Sub Form_Load()
    Dim henv As Long
    Dim dsn As String * 1024
    Dim desc As String * 1024
    Dim ret As Integer
    Dim lenDSN As Integer
    Dim lenDesc As Integer

    ' Allocate an environment handle
    ret = SQLAllocHandle(1, 0, henv)

    If ret <> 0 Then
        MsgBox "Error allocating environment handle."
        Exit Sub
    End If

    ' Retrieve the first user DSN
    ret = SQLDataSources(henv, SQL_FETCH_FIRST_USER, dsn, Len(dsn), lenDSN, desc, Len(desc), lenDesc)

    Do While ret = 0
        ' Print or process the DSN and Description
        Debug.Print "DSN: " & Left$(dsn, lenDSN) & ", Description: " & Left$(desc, lenDesc)

        ' Retrieve the next user DSN
        ret = SQLDataSources(henv, SQL_FETCH_NEXT, dsn, Len(dsn), lenDSN, desc, Len(desc), lenDesc)
    Loop

    ' Free the environment handle
    ret = SQLFreeHandle(1, henv)

    If ret <> 0 Then
        MsgBox "Error freeing environment handle."
    End If
End Sub

Código: Selecionar todos

#include "hbdyn.ch"
#define SQL_FETCH_FIRST        1
#define SQL_FETCH_NEXT         2
#define SQL_FETCH_FIRST_USER   31
#define SQL_FETCH_FIRST_SYSTEM 32

PROCEDURE Main

   LOCAL henv    := 0
   LOCAL dsn     := Space(1024)
   LOCAL desc    := Space(1024)
   LOCAL ret     := 0
   LOCAL lendsn  := 0
   LOCAL lendesc := 0

   ret := SQLDataSources( @henv, SQL_FETCH_FIRST_USER, @dsn, len(dsn), @lendsn, @desc, len(desc), @lendesc )
   DO WHILE ret = 0
      ? left( dsn, Lendsn )
      ret := SQLDataSources( henv, SQL_FETCH_NEXT, dsn, len(dsn),@ lendsn, desc, len(desc), @lendesc )
   ENDDO
   (ret)
   Inkey(0)

   RETURN

FUNCTION SQLDataSources( ... )


   RETURN ze_CallDllStd( "c:\windows\syswow64\odbc32.dll", "SQLDataSiourcesA", ... )


FUNCTION ze_CallDllStd( cDll, cName, ... )

   LOCAL hDll, xResult

   hDll    := hb_LibLoad( cDll )
   xResult := hb_DynCall( { cName, hDll, HB_DYN_CALLCONV_STDCALL }, ... )
   hb_LibFree( hDll )

   RETURN xResult

Código: Selecionar todos

    for (int i; i = 0; i < count; i++) {
        strcat(result, drivers[i]);
        strcat(result, "\n");
    }

Código: Selecionar todos

HB_FUNC( GETODBCDRIVERS )
{
    SQLHANDLE henv;
    SQLRETURN ret;
    static char drivers[MAX_DRIVER_COUNT][1024]; // Array para armazenar os nomes dos drivers
    static char result[1024 * MAX_DRIVER_COUNT];
    int count = 0;
    int i;
..
...
...
    for (i = 0; i < count; i++) {
        strcat(result, drivers[i]);
        strcat(result, "\n");
    }
...
...
}

Código: Selecionar todos

Function Main()
Local mString
   mString := GETODBCDRIVERS()  //Retorna uma String com todos os Drivers ODBC instalados no Windows.
   ...
   ...
   Return nil

Código: Selecionar todos

SQL Server
Microsoft ODBC for Oracle
Microsoft Access Driver (*.mdb)
Microsoft Access-Treiber (*.mdb)
Driver do Microsoft Access (*.mdb)
Microsoft dBase Driver (*.dbf)
Microsoft dBase-Treiber (*.dbf)
Driver do Microsoft dBase (*.dbf)
Microsoft Excel Driver (*.xls)
Microsoft Excel-Treiber (*.xls)
Driver do Microsoft Excel(*.xls)
Microsoft Paradox Driver (*.db )
Microsoft Paradox-Treiber (*.db )
Driver do Microsoft Paradox (*.db )
Microsoft Text Driver (*.txt; *.csv)
Microsoft Text-Treiber (*.txt; *.csv)
Driver da Microsoft para arquivos texto (*.txt; *.csv)
Microsoft Visual FoxPro Driver
Microsoft FoxPro VFP Driver (*.dbf)
Microsoft dBase VFP Driver (*.dbf)
Microsoft Visual FoxPro-Treiber
Driver para o Microsoft Visual FoxPro
MySQL ODBC 5.3 ANSI Driver
MySQL ODBC 5.3 Unicode Driver
MariaDB ODBC 3.0 Driver
PostgreSQL ANSI
PostgreSQL Unicode
PostgreSQL ODBC Driver(ANSI)
PostgreSQL ODBC Driver(UNICODE)

Código: Selecionar todos

Const SQL_NULL_HANDLE = 0
Const SQL_HANDLE_ENV = 1
Const SQL_FETCH_NEXT = 1
Const SQL_FETCH_FIRST = 2
Const SQL_SUCCESS = 0
Const SQL_ATTR_ODBC_VERSION = 200
Const SQL_OV_ODBC2 = 2
Const SQL_IS_INTEGER = -6

Dim nRetCode As Long

Private Declare Function SQLDrivers Lib "odbc32.dll" (ByVal _
    EnvironmentHandle As Long, ByVal Direction As Integer, _
    ByVal DriverDescription As String, ByVal BufferLength1 As Integer, _
    DescriptionLengthPtr As Integer, ByVal DriverAttributes As String, _
    ByVal BufferLength2 As Integer, AttributesLengthPtr As Integer) As Integer

' Note that pointers to numbers are passed as numbers by reference!
Private Declare Function SQLDataSources Lib "odbc32.dll" (ByVal _
    EnvironmentHandle As Long, ByVal Direction As Integer, _
    ByVal ServerName As String, ByVal BufferLength1 As Integer, _
    NameLength1Ptr As Integer, ByVal Description As String, _
    ByVal BufferLength2 As Integer, NameLength2Ptr As Integer) As Integer


Private Declare Function SQLFreeHandle Lib "odbc32.dll" (ByVal _
    HandleType As Integer, ByVal Handle As Long) As Integer

Private Declare Function SQLAllocHandle Lib "odbc32.dll" (ByVal _
    HandleType As Integer, ByVal InputHandle As Long, _
    OutputHandlePtr As Long) As Integer

Private Declare Function SQLSetEnvAttr Lib "odbc32.dll" (ByVal _
    EnvironmentHandle As Long, ByVal EnvAttribute As Long, _
    ByVal ValuePtr As Long, ByVal StringLength As Long) As Integer


Private Declare Function SQLDisconnect Lib "odbc32.dll" (ByVal _
    ConnectionHandle As Long) As Integer

'//This function will print list of installed driver name and attributes
Private Sub ListODBCDrivers()

  ' Prints a list of ODBC drivers on system

  Dim lHEnv       As Long
  Dim sDriverDesc    As String * 1024
  Dim sDriverAttr    As String * 1024
  Dim sDriverAttributes As String
  Dim nDriverDescLength As Integer
  Dim nAttrLength As Integer
  Dim x As Integer
  Dim sAll As String

  ' Allocate an environment handle.
  nRetCode = SQLAllocHandle(SQL_HANDLE_ENV, SQL_NULL_HANDLE, lHEnv)

  ' Set ODBC behavior
  nRetCode = SQLSetEnvAttr(lHEnv, SQL_ATTR_ODBC_VERSION, _
      SQL_OV_ODBC2, SQL_IS_INTEGER)

  ' Get first driver
  nRetCode = SQLDrivers(lHEnv, _
      SQL_FETCH_FIRST, _
      sDriverDesc, _
      Len(sDriverDesc), _
      nDriverDescLength, _
      sDriverAttr, _
      Len(sDriverAttr), _
      nAttrLength)

  sAll = ""

  Me.WindowState = vbMaximized
  Me.AutoRedraw = True

  Do While nRetCode = SQL_SUCCESS

    '//Replace NULL separators with colons in attribute string
    sDriverAttributes = Left$(sDriverAttr, nAttrLength - 1)
    sDriverAttributes = Replace(sDriverAttributes, Chr(0), " : ")

    '//Remove NULL in ODBC Driver name
    sDriverDesc = Left$(sDriverDesc, nDriverDescLength)
    sDriverDesc = Replace(sDriverDesc, Chr(0), "")

    sAll = sAll & sDriverDesc & " ==> " & sDriverAttributes & vbCrLf

    Me.Print sDriverDesc                '//Print driver name
    Me.Print sDriverAttributes             '//Print driver attribute
    Me.Print String(100, "-")

    Debug.Print sDriverDesc              '//Print driver name
    Debug.Print sDriverAttributes           '//Print driver attribute
    Debug.Print String(100, "-")

    '//Next data source
    nRetCode = SQLDrivers(lHEnv, _
        SQL_FETCH_NEXT, _
        sDriverDesc, _
        Len(sDriverDesc), _
        nDriverDescLength, _
        sDriverAttr, _
        Len(sDriverAttr), _
        nAttrLength)
  Loop

  'Debug.Print "ODBC Drivers"
  'Debug.Print sAll

  nRetCode = SQLFreeHandle(SQL_HANDLE_ENV, lHEnv)
End Sub

Private Sub Form_Load()
  ListODBCDrivers
End Sub

Código: Selecionar todos

C:\fontes>powershell  Get-OdbcDriver > drivers-odbc.txt

Name      : Driver da Microsoft para arquivos texto (*.txt; *.csv)
Platform  : 32-bit
Attribute : {APILevel, DriverODBCVer, FileUsage, Driver...}

Name      : Driver do Microsoft Access (*.mdb)
Platform  : 32-bit
Attribute : {APILevel, DriverODBCVer, FileUsage, Driver...}

Name      : Driver do Microsoft dBase (*.dbf)
Platform  : 32-bit
Attribute : {APILevel, DriverODBCVer, FileUsage, Driver...}

Name      : Driver do Microsoft Excel(*.xls)
Platform  : 32-bit
Attribute : {APILevel, DriverODBCVer, FileUsage, Driver...}

Name      : Driver do Microsoft Paradox (*.db )
Platform  : 32-bit
Attribute : {APILevel, DriverODBCVer, FileUsage, Driver...}

Name      : Microsoft Access Driver (*.mdb)
Platform  : 32-bit
Attribute : {APILevel, DriverODBCVer, FileUsage, Driver...}

Name      : Microsoft Access-Treiber (*.mdb)
Platform  : 32-bit
Attribute : {APILevel, DriverODBCVer, FileUsage, Driver...}

Name      : Microsoft dBase Driver (*.dbf)
Platform  : 32-bit
Attribute : {APILevel, DriverODBCVer, FileUsage, Driver...}

Name      : Microsoft dBase-Treiber (*.dbf)
Platform  : 32-bit
Attribute : {APILevel, DriverODBCVer, FileUsage, Driver...}

Name      : Microsoft Excel Driver (*.xls)
Platform  : 32-bit
Attribute : {APILevel, DriverODBCVer, FileUsage, Driver...}

Name      : Microsoft Excel-Treiber (*.xls)
Platform  : 32-bit
Attribute : {APILevel, DriverODBCVer, FileUsage, Driver...}

Name      : Microsoft ODBC for Oracle
Platform  : 32-bit
Attribute : {APILevel, FileUsage, Driver, ConnectFunctions...}

Name      : Microsoft Paradox Driver (*.db )
Platform  : 32-bit
Attribute : {APILevel, DriverODBCVer, FileUsage, Driver...}

Name      : Microsoft Paradox-Treiber (*.db )
Platform  : 32-bit
Attribute : {APILevel, DriverODBCVer, FileUsage, Driver...}

Name      : Microsoft Text Driver (*.txt; *.csv)
Platform  : 32-bit
Attribute : {APILevel, DriverODBCVer, FileUsage, Driver...}

Name      : Microsoft Text-Treiber (*.txt; *.csv)
Platform  : 32-bit
Attribute : {APILevel, DriverODBCVer, FileUsage, Driver...}

Name      : SQL Server
Platform  : 32-bit
Attribute : {APILevel, FileUsage, Driver, ConnectFunctions...}

Name      : SQL Server
Platform  : 64-bit
Attribute : {APILevel, FileUsage, Driver, ConnectFunctions...}

Name      : PostgreSQL ODBC Driver(ANSI)
Platform  : 64-bit
Attribute : {APILevel, FileUsage, Driver, ConnectFunctions...}

Name      : PostgreSQL ODBC Driver(UNICODE)
Platform  : 64-bit
Attribute : {APILevel, FileUsage, Driver, ConnectFunctions...}

Código: Selecionar todos

PROCEDURE Main

   LOCAL aItem

   setmode( 33,100)
   CLS
   FOR EACH aItem IN ListODBCDrivers()
      ? aItem
   NEXT
   Inkey(0)
   RETURN

#define SQL_NULL_HANDLE       0
#define SQL_HANDLE_ENV        1
#define SQL_FETCH_NEXT        1
#define SQL_FETCH_FIRST       2
#define SQL_SUCCESS           0
#define SQL_ATTR_ODBC_VERSION 200
#define SQL_OV_ODBC2          2
#define SQL_IS_INTEGER       -6

//This function will print list of installed driver name and attributes
FUNCTION ListODBCDrivers()

  // Prints a list of ODBC drivers on system

  LOCAL nRetCode
  LOCAL lHEnv             := 0
  LOCAL sDriverDesc       := Space(1024)
  LOCAL sDriverAttr       := Space(1024)
  LOCAL sDriverAttributes
  LOCAL nDriverDescLength := 0
  LOCAL nAttrLength       := 0
  LOCAL aList             := {}
  MEMVAR hDll
  PRIVATE hDll

   //hDll := hb_libLoad( "c:\windows\syswow64\odbc32.dll" )
   hDll := hb_libLoad( "c:\windows\system32\odbc32.dll" )
  // Allocate an environment handle.
  /* nRetCode := */ SQLAllocHandle( SQL_HANDLE_ENV, SQL_NULL_HANDLE, @lHEnv )

  // Set ODBC behavior
  /* nRetCode := */ SQLSetEnvAttr( lHEnv, SQL_ATTR_ODBC_VERSION, ;
      SQL_OV_ODBC2, SQL_IS_INTEGER )

  // Get first driver
  nRetCode := SQLDrivers( lHEnv, ;
      SQL_FETCH_FIRST, ;
      @sDriverDesc, ;
      Len( sDriverDesc ), ;
      @nDriverDescLength, ;
      @sDriverAttr, ;
      Len( sDriverAttr ), ;
      @nAttrLength )

  Do While nRetCode = SQL_SUCCESS

    //Replace NULL separators with colons in attribute string
    sDriverAttributes = Left( sDriverAttr, nAttrLength - 1 )
    sDriverAttributes = StrTran( sDriverAttributes, Chr(0), " : " )

    //Remove NULL in ODBC Driver name
    sDriverDesc = Left( sDriverDesc, nDriverDescLength )
    sDriverDesc = StrTran( sDriverDesc, Chr(0), "" )

    AAdd( aList, sDriverDesc )
   ( sDriverAttributes )

    //Next data source
    nRetCode := SQLDrivers( lHEnv, ;
        SQL_FETCH_NEXT, ;
        @sDriverDesc, ;
        Len( sDriverDesc ), ;
        @nDriverDescLength, ;
        @sDriverAttr, ;
        Len( sDriverAttr ), ;
        @nAttrLength )
  ENDDO

  /* nRetCode := */ SQLFreeHandle( SQL_HANDLE_ENV, lHEnv )

  hb_libFree( hDll )

   RETURN aList

FUNCTION SQLDrivers( ... );     RETURN CallThis( "SQLDrivers", ... )
FUNCTION SQLDataSources( ... ); RETURN CallThis( "SQLDataSources", ... )
FUNCTION SQLFreeHandle( ...);   RETURN CallThis( "SQLFreeHandle", ... )
FUNCTION SQLAllocHandle( ... ); RETURN CallThis( "SQLAllocHandle", ... )
FUNCTION SQLSetEnvAttr( ... );  RETURN CallThis( "SQLSetEnvAttr", ... )
FUNCTION SQLDisconnect( ... );  RETURN CallThis( "SQLDisconnect", ... )

#include "hbdyn.ch"

FUNCTION CallThis( cFunction, ... )

   MEMVAR hDll

   RETURN hb_DynCall( { cFunction, hDll, HB_DYN_CALLCONV_STDCALL }, ... )