Newsgroup: it.comp.appl.access
Titolo: problema con access97 e db2 connect

Ciao a tutti 
ho un paio di problemi utilizzando access97 e db2 connect  (driver IBM
DB2ODBC vers. 7.01) 
1) Non riesco a  cambiare dinamicamente la proprietà connect di una
tabella remota linkata all'interno del database Access97, infatti le
istruzioni : 
Tabella.Connect =
"ODBC;DSN=HOSTDB1;1=<USER>;1=<PWD>;MODE=SHARE;DBALIAS=HOSTDB1;;
TABLE=<TABELLA>" 
Tabella.RefreshLink
vengono eseguite senza errore, ma non sortiscono effetto alcuno.
L'oggetto remoto continua a restare quello collegato manualmente.
2) Quando si aprono alcune delle tabelle remote collegate
precedentemente a mano, alcune non danno problemi, mentre altre si
aprono presentando un certo numero di finestre con la richiesta di
effettuare un login manuale al profilo odbc;
Poiché non è possibile rieffettuare il login su ognuna di esse (si
noti bene che il link alla tabella era già stato effettuato in
precedenza, quindi la finestra di login non doveva apparire) viene
premuto cancel su ogni finestra di login.
A questo punto la tabella si apre, ma su ogni cella dello spreadsheet
appare la dicitura "#error#".
Se qualcuno mi può aiutare .....
Grazie 
Alessandro

 ha scritto nel messaggio
news:3e02fcba...@news.sanpaolo.priv...

Ciao Alex, sono incappato anch'io nello stesso problema tempo fa, ma
credo sia una leggera carenza d'informazioni dell'HELP.....!
Il sistema da te utilizzato funziona, ma non per le tabelle collegate
con ODBC Direct.....!
O meglio per queste devi modificare la procedura...
Se hai + tabelle io ti consiglierei di caricarti un Recordset con l'elenco
delle
tabelle da riallegare e ciclare il RS.
Per caricare il RS usa la Tabella MySisObject, ti posto la funzione che
utilizzo
io.....!
Public Function RlnkODBCTbl() As Boolean
   On Error GoTo Err_RlnkODBCTbl
   Dim tdf As TableDef
   Dim rs As Recordset
   Dim s As String
   Dim strSql As String
   RlnkODBCTbl = False
   strSql = "SELECT MsysObjects.Name FROM MsysObjects " & _
          "WHERE ((Left$([Name], 4) <> 'Msys') And (MsysObjects.Type = 4))"
   Set rs = CurrentDb.OpenRecordset(strSql)
   rs.MoveLast
   rs.MoveFirst
   Do Until rs.EOF
      s = rs.Fields(0).Value
      CurrentDb.TableDefs.Delete s
      Set tdf = CurrentDb.CreateTableDef(s)
      tdf.Connect = StrConnection
      tdf.SourceTableName = s
      CurrentDb.TableDefs.Append tdf
      Set tdf = Nothing
      rs.MoveNext
   Loop
   RlnkODBCTbl = True
Exit_Here:
   rs.Close
   Set tdf = Nothing
   Exit Function
Err_RlnkODBCTbl:
   RlnkODBCTbl = False
   Resume Exit_Here
End Function
Ciao @Alex.

ciao @alex
Innanzitutto grazie della tua esauriente risposta.
(rif. Problema con access97 e db2 connect del 20/12/2002)
sto usando Access97 su w2000 con IBM ODBC DB2 DRIVER 7.01
e il comportamento del link ad un oggetto remoto h veramente strano :
1) quando effettuo il link ad un oggetto db2 la finestra di login mi
appare 6 o 7 volte e sulla tabella aperta in modalit` foglio dati
compare su
tutti i campi la
dicitura #error#
2) il codice che mi hai passato viene eseguito correttamente solo
se ho linkato a mano almeno un oggetto remoto (altrimenti mi da ODBC
error)
e anche in questo
caso quando tento di aprire l'oggetto remoto linkato via codice,
ho lo stesso comportamento del punto 1.
grazie ancora
ciao
Alessandro