FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index All products support Microsoft SQL Server
Posts: 434
Joined: Wed Jun 06, 2007 02:58 PM
Microsoft SQL Server
Posted: Thu Jun 14, 2007 03:53 PM

Qualcuno può darmi qualche esempio (se è possibile) di interrogazione tabelle con FWH e xharobur per Microsoft SQL server 8.0?

FiveWin for xHarbour 24.02 - Feb. 2024 - Embarcadero C++ 7.60 for Win32 Copyright (c) 1993-2023

FWH 64 for Harbour 19.06 (MSVC++) Jun. 2019 - Harbour 3.2.0dev (r1904111533)

Visual Studio 2019 - Pelles C V.8.00.60 (Win64)
Posts: 9022
Joined: Thu Oct 06, 2005 08:17 PM
Re: Microsoft SQL Server
Posted: Thu Jun 14, 2007 03:55 PM
Devi cercare la stringa di connessione giusta (su www.connectionstrings.com) ed usare qualcosa del genere:

#define adOpenForwardOnly 0
#define adOpenKeyset      1
#define adOpenDynamic     2
#define adOpenStatic      3

#define adLockReadOnly        1
#define adLockPessimistic     2
#define adLockOptimistic      3
#define adLockBatchOptimistic 4

#define adUseNone   1
#define adUseServer 2
#define adUseClient 3


FUNCTION MAIN()

    LOCAL oRs := CREATEOBJECT( "ADODB.Recordset" )

    oRs:Open( "SELECT * FROM Clienti ORDER BY Cliente", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=clienti.mdb", adOpenForwardOnly, adLockReadOnly )

    WHILE !oRs:EOF
        ? oRs:Fields( "Cliente" ):Value
        oRs:MoveNext()
    ENDDO

    oRs:Close()

    RETURN NIL


EMG
Posts: 434
Joined: Wed Jun 06, 2007 02:58 PM
Microsoft SQL Server
Posted: Fri Jun 15, 2007 01:37 PM

Sto provando l'esempio che mi hai segnalato, naturalmente tieni presente che sto riprendendo a ragionare in Fivewin dopo un pò di anni. La stringa che ricavo in quale riga la inserisco?

attualmente il programmino mi da quest'errore...

Error description: Error ADODB.Recordset/3 DISP_E_MEMBERNOTFOUND: OPEN

relativamente alla riga
oRs:Open( "SELECT * FROM Clienti ORDER BY Cliente", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=clienti.mdb", adOpenForwardOnly, a

FiveWin for xHarbour 24.02 - Feb. 2024 - Embarcadero C++ 7.60 for Win32 Copyright (c) 1993-2023

FWH 64 for Harbour 19.06 (MSVC++) Jun. 2019 - Harbour 3.2.0dev (r1904111533)

Visual Studio 2019 - Pelles C V.8.00.60 (Win64)
Posts: 9022
Joined: Thu Oct 06, 2005 08:17 PM
Microsoft SQL Server
Posted: Fri Jun 15, 2007 03:07 PM
damianodec wrote:La stringa che ricavo in quale riga la inserisco?


Al secondo parametro del metodo Open().

EMG

Continue the discussion