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
