Come collegare, via odbc, delle tabelle di Sql Server 2005 ?
RobertoA
presenti in un db Sql Server 2005 Express
Una delle tabelle, come viste da Sql Server Management, si chiama
dbo.ARTICOLI
Se tento l'operazione manuale, tutto funziona correttamente, a parte il
fatto che nella lista delle tabelle in Access mi ritrovo una tabella con
nome dbo_ARTICOLI
Fin qua' niente di male
Ma se tento ri ricollegarle da codice, usando le seguenti istruzioni, non
funziona
-----------------------------------
Dim tdf As dao.TableDef
If Esiste_Oggetto("dbo_ARTICOLI", fTabella) Then
CurrentDb.TableDefs.Delete "dbo_ARTICOLI"
Set tdf = CurrentDb.CreateTableDef("dbo_ARTICOLI")
tdf.Connect = "ODBC;DSN=PEPPE;UID=sa;PWD=peppe"
tdf.SourceTableName = "dbo_ARTICOLI"
CurrentDb.TableDefs.Append tdf
Set tdf = Nothing
-----------------------------------
Sulla CurrentDb.TableDefs.Append tdf mi viene restituito l'errore
"Impossibile effettuare la connessione, SQLState:'08004' Errore di Sql
Server: 4060, che dovrebbe corrispondere all'account non riconosciuto.
Pero' con gli stessi dati, da Sql Srver management riesco ad entrare e
quindi sono sicuro siano esatti
Indonde' che sbaglio?
C'e' modo di loggare le operazioni eseguite manualmente per il
ricollegamento (che funzionano) ?
Ciao e grazie
RobertoA
Fair87
--
Questo articolo e` stato inviato dal sito web http://www.nonsolonews.it
RobertoA
"Fair87" <roby...@gmail.com> ha scritto nel messaggio
news:gtcm0h$2c6$1...@news.nonsolonews.it...
Allura, ai posteri la solussione, che sta nel seguente codige:
Dim tdf As dao.TableDef
If Esiste_Oggetto("dbo_ARTICOLI", fTabella) Then
CurrentDb.TableDefs.Delete "dbo_ARTICOLI"
Set tdf = CurrentDb.CreateTableDef("dbo_ARTICOLI")
tdf.Connect = "ODBC;DSN=PEPPE;UID=sa;PWD=peppe"
tdf.SourceTableName = "dbo.ARTICOLI"
CurrentDb.TableDefs.Append tdf
Set tdf = Nothing
End if
Da notare il dbo.ARTICOLI col punto (come letto da Sql Server) rispetto
al dbo_ARTICOLI come scritto nelle tabelle Access
Ciao
RobertoA