none
Access: connessione a SQL via VBA RRS feed

  • Domanda

  • Ciao a tutti !!

    Ho un database sotto Microsoft SQL. Voglio collegare tramite VBA le tabelle del db SQL in un programma Access.

    Ho una maschera (tipo: maschere continue), in questa maschera devono apparire tutti i record della tabella sotto SQL.

    Ho impostato di eseguire il seguente codice al caricamento della maschera:

    ****  

    Private Sub Form_Load()

    Dim cnn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim rsSQL As String

    Set cnn = New ADODB.Connection

    cnn.Open "Driver={SQL Server};Server=SRVSPTEST\SQL_SP;Database=fcn;User Id=sa;Password=123;"
    rsSQL = "SELECT * from dbo.crf"

    Set rs = CurrentDb.OpenRecordset(rsSQL)

    Set rs = Nothing
    Set cnn = Nothing

    End Sub

    ****

    Quando provo ad avviare la maschera, mi dice che il file non esiste e mi evidenzia la stringa "Set rs = CurrentDb.OpenRecordset(rsSQL)".

    La tabella contiene 2 campi: PARTNO e CODE. Non so come dire ad Access che i 2 campi presenti nella maschera deve prenderli dalla tabella crf di SQL.

    Dove stò sbagliando e come posso sistemare il codice??

    Ho provato a cercare in internet, ma non sono arrivato ad una soluzione.

    Grazie in anticipo

    lunedì 16 febbraio 2015 09:52