sqlopen

Hai un problema con Excel?

Nuova discussione

sqlopen
di hellas data: 28/09/2015 12:04:34
Ciao a tutti
e grazie a chi tenta di aiutarmi.
Ho una funzione xls sotto specificata che mi da errore in questa riga:
=========================
vChan = SQLOpen("DSN=s2db")
=========================
"dice errore di compilazione , impossibile trovare progetto o libreria"
non trova la libreria e non trovo una compatibile in rete !!!
con office 2003 inceve la funzione funziona senza problema.
come posso sostituire sqlopen o come posso modificare la function (sotto riportata)?

in attesa di Vostra gentile aiuto
ringrazio Gabriele

================================================================
Function DoQuery(sQueryString As String, tOutputRef As Range) As Variant
Dim vChan As Variant, vVbError As Variant

vChan = SQLOpen("DSN=s2db")
If (VarType(vChan) = vbError) Then
    returnArray = SQLError()
    For i = LBound(returnArray, 1) To UBound(returnArray, 1)
        Worksheets("Errori SQL").Cells(1, i).Formula = returnArray(i)
    Next i
    SQLClose vChan
    DoQuery = -1
    Exit Function
End If
vVbError = SQLExecQuery(vChan, StringToArray(sQueryString))
If (VarType(vVbError) = vbError) Then
    returnArray = SQLError()
    For i = LBound(returnArray, 1) To UBound(returnArray, 1)
        Worksheets("Errori SQL").Cells(1, i).Formula = returnArray(i)
    Next i
    SQLClose vChan
    DoQuery = -2
    Exit Function
End If
vVbError = SQLRetrieve(vChan, tOutputRef, , , False, False, False, True)
If (VarType(vVbError) = vbError) Then
    returnArray = SQLError()
    For i = LBound(returnArray, 1) To UBound(returnArray, 1)
        Worksheets("Errori SQL").Cells(1, i).Formula = returnArray(i)
    Next i
    SQLClose vChan
    DoQuery = -3
    Exit Function
End If
DoQuery = vVbError
vVbError = SQLClose(vChan)
End Function
===================================================================

Vuoi Approfondire?