[VBA] Connessione DSN o DSN-less

[Aki]

ave populus
siccome io di vba nin so nulla ( )
ho cercato un esempio di connessione in VBA, ed ho trovato questo che però apre un DB Access.

Ora vi chiedo: come devo riadattarlo per aprire anzichè un db access, una connessione DSN (ma và bene anche DSN-less).

Ciau

[kalosjo]

L'esempio che hai trovato utilizza ado....

Stai programmando in VBA dentro quale applicazione Microsoft...?

[Aki]

Originariamente inviato da kalosjo
L'esempio che hai trovato utilizza ado....

Stai programmando in VBA dentro quale applicazione Microsoft...?

Excel Xp

[Aki]

up

[kalosjo]

Volevo scrivere dao e ho scritto ado....

Comunque, epr aprire una connessione dao con DSN devi utilizzare openconnection.

Creare un workspace

Set Ws = DBEngine.CreateWorkspace("NewWorkspace", mUser, mPswd, dbUseODBC)

e poi aprire il db

Set Db = Ws.OpenConnection("nome", dbDriverNoPrompt, , "ODBC;DATABASE=" & nomedb & ";UID=" & DbUser & ";PWD=" & Pswd & ";DSN=" & Dsn)

[Aki]

Originariamente inviato da kalosjo
Volevo scrivere dao e ho scritto ado....

Comunque, epr aprire una connessione dao con DSN devi utilizzare openconnection.

Creare un workspace

Set Ws = DBEngine.CreateWorkspace("NewWorkspace", mUser, mPswd, dbUseODBC)

e poi aprire il db

Set Db = Ws.OpenConnection("nome", dbDriverNoPrompt, , "ODBC;DATABASE=" & nomedb & ";UID=" & DbUser & ";PWD=" & Pswd & ";DSN=" & Dsn)

scusa l'estrema ignoranza:
ma a cosa corrispondono le variabili 'mUser', 'mPswd' e 'dbUseOdbc' e a chi si riferiscono?

[Aki]

Guarda un pò:

Sub extraction()
    Set DB = Workspaces(0).OpenConnection("Connessione", dbDriverNoPrompt, , 
"ODBC;DATABASE=RXGIGI0F;UID=DOMENICO;
PWD=DOMENICO;DSN=RAPTOR")
    Set Att = ActiveCell
    Att = "UNO"
    Att.Offset(0, 1) = "DUE"
    Att.Offset(0, 2) = "TRE"
    Dim RS As Recordset
    sql = "SELECT CPCO,CUMV, QGF2RXG from MERSY_DB.RXGIGI0F 
where cart=1618 and carv=1 AND TAAD=2005 AND TMMI=7 AND 
TGGM=8;"
    Set RS = DB.OpenRecordset(sql)
    While Not RS.EOF
        i = i + 1
        Att.Offset(i) = RS.Fields(0)
        Att.Offset(i, 1) = RS.Fields(1)
        Att.Offset(i, 2) = RS.Fields(2)
        RS.movenext
    Wend
    RS.Close: DB.Close
End Sub

sbaglio qualcosa?
perchè mi dice:

Errore di runtime: '3251'
Errore definito dall'applicazione o dall'oggetto

[Aki]

up