connessione dsn

Hai un problema con Excel?

Nuova discussione

connessione dsn
di pipp (utente non iscritto) data: 05/06/2015 15:53:38
creo una connessione ad un dsn (sql server) cosi:
per connettersi ad un dsn che risiede su un Server 10.555.223 ecc.
come devo fare??

    Dim cn As Object
    Dim rs As Object
    Dim sh As Worksheet
    Dim sSQL As String
    Set cn = CreateObject("ADODB.Connection")
    Set rs = CreateObject("ADODB.Recordset")
 
cn.ConnectionString = "DSN=connsql;"
cn.Open

di Mauro data: 07/06/2015 07:37:13
Questo dovrebbe funzionare x Access per SQL Server sarà simile. Vedi se ci sono già delle librerie ad hoc e se sono spuntate. http://excelvba.altervista.org/Appendici/Collegamenti.html

Dim cnn As ADODB.Connection
Dim canConnect as Boolean
Set cnn = New ADODB.Connection

cnn.Open "FILEDSN=c:myDsnFile.dsn;Uid=myUsername;Pwd=;"
If cnn.State = adStateOpen Then
    canConnect = True
    cnn.Close
End If

Vuoi Approfondire?