[VBA + Access] Connessione

[anatroccolo]

Per ADO utilizzo questo codice:

Sub prova()
Dim SQL As String
SQL = "SELECT * FROM Archivio"

Dim Db As Database
Dim Rs As Recordset

Set Db = CurrentDb()
Set Rs = CurrentDb.OpenRecordset(SQL)

Rs.AddNew
Rs.Fields(0).Value = "ESA"
Rs.Fields(1).Value = "99999"
Rs.Fields(2).Value = "PLUTO"
Rs.Fields(3).Value = "15/01/2004"
Rs.Fields(4).Value = "XER"
Rs.Fields(5).Value = "60"
Rs.Fields(6).Value = "XX09990000"
Rs.Update

End Sub

per lavorare con i dati contenuti in una tabella direttante da Access.

Se volessi fare la stessa cosa con ADO che codice dovrei usare, sempre dall'interno di Access????

Grazie

[verardoelvis]

premetto che non ho capito molto della domanda....potresti fare così:

dim sql as string
dim c as adodb.connection
sql = "INSERT ......"

set c = new adodb.connection
set c = currentproject.connection

c.open
c.execute sql
c.close
set c = nothing

ciao

[anatroccolo]

Mi da errore:

set c = currentproject.connection

currentproject variabile non definita

Possibile che in un modulo in Access non si riesca a fare una connessione tramite codice per ADO.

Grazie

[Luciano79]

scusa, perchè non utilizzi lo stesso codice anche in Access? Dovrebbe funzionare! Il codice è lo stesso, devi solo aggiungere i riferimenti ad ADO, così come in VB6... o non ho capito la domanda...

[anatroccolo]

Con VB6 avrei utilizzato:

Sub Connessione()
    If Cn.State = adStateClose Then
        Cn.CursorLocation = adUseClient
        Cn.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=c:\PROVA.MDB;Jet OLEDB:Database;"
    End If
End Sub

Utilizzando la connessione direttamente in un modulo Access non capisco perchè nella connessione devo specificare il percorso aprendo così un'ulteriore connessione.

Non è possibile utilizzare quella corrente.

[verardoelvis]

guarda che a me funzia. verifica i riferimenti alla libreria.
Set C = CurrentProject.Connection

Connection esce grazie a Intellisense.


ciao

[anatroccolo]

Originariamente inviato da verardoelvis
guarda che a me funzia. verifica i riferimenti alla libreria.
Set C = CurrentProject.Connection

Connection esce grazie a Intellisense.


ciao

Ho i riferimenti ad Microsofr Activex Data Object 2.5 library ma "CurrentProject non lo vuole.

Ciao