Newsgroup: it.comp.appl.access
Titolo: Per Giorgio Prix: potresti rispondere per favore al messaggio del 30/06/03?

Non sono riuscito a risolvere il problema. Ti ringrazio fin d'ora se sai
dirmi che alternative ci sono. PLS anche in caso negativo dammi un cenno.
Saluti
Daniele

 ha scritto nel messaggio
news:OiwMa.139966$lK4.3...@twister1.libero.it...

Ciao OneEDP
Sono spiacente ma non vedo il messaggio del 30/06/03, ultimamente il mio
outlook fa le bizze (forse troppo intasato), provo a fare una ricerca su
google.
Se Biso non si inc.... portesti riformulare il post in coda a questo ?
Ciao Giorgio

 ha scritto nel messaggio
news:bdu7je$tod$1...@lacerta.tiscalinet.it...

Ti riscrivo:
La sintassi non va bene perché la query di selezione è interamente
Pass-Through e usa un linguaggio SQL diverso da quello di Access!
Non devo puntare ad una tabella mediante collegamento ODBC devo eseguire una
query di selezione (molto complessa) strutturata con quel particolare
linguaggio SQL (nel mio caso DB2/400).
Hai dei suggerimenti?
Grazie.
Daniele

 Ciao Giorgio
A proposito di server buoni e dalla memoria lunga. Rispondendo a non mi
ricordo chi che me la'veva chiesto, sto utilizzando come server di news
news.edisontel.com
 e vedo messaggi fino a ottobre 2002 via OE
Ve lo consiglio.
MAssimiliano

 ha scritto nel messaggio
news:SlxMa.140141$lK4.3...@twister1.libero.it...

Ciao Daniele
La situazione è semplice, nel metodo che ti ho suggerito Access non può
eseguire query in linguaggio DB2 e una query Pass-Through lavorando
direttamente sul server non può aggiornare una tabella di Access.
A questo punto vedo una sola strada, che è quella di accodare i dati alla
tabella di access via codice VBA (codice che puoi proteggere) accedendo a
DB2 con un recordset Pass-Through ti faccio un esempio funzionante con
SqlServer2000.
Dim wrk As Workspace
Dim Conn As DAO.Connection
Dim RsSrc As DAO.Recordset 'Recordset sorgente
Dim RsDst As DAO.Recordset 'Recordset destinazione
Dim Sqltext As String
Set wrk = CreateWorkspace("", "Admin", "", dbUseODBC)
Set Conn = wrk.OpenConnection("Conn", dbDriverCompleteRequired, , _
           "ODBC;DRIVER=Sql
Server;Server=(local);DATABASE=Prova;UID=sa;PWD=sa;DSN=;")
' Creo la query in linguaggio TSQL
Sqltext = "SET NOCOUNT ON " & vbCrLf & _
          "CREATE TABLE #Pippo (Id int IDENTITY(1,1),Nome Varchar(100))" &
vbCrLf & _
          "INSERT #Pippo (Nome) VALUES('Daniele')" & vbCrLf & _
          "INSERT #Pippo (Nome) VALUES('Giorgio')" & vbCrLf & _
          "UPDATE #Pippo Set Nome='***'+Nome+'***'" & vbCrLf & _
          "SELECT Id,Nome FROM #Pippo" & vbCrLf & _
          "DROP TABLE #Pippo"
'Apro i recordset
Set RsSrc = Conn.OpenRecordset(Sqltext, , dbSQLPassThrough)
Set RsDst = CurrentDb.OpenRecordset("TbProva")
'Accodo i dati
Do
  If RsSrc.EOF Then Exit Do
  RsDst.AddNew
  RsDst!Nome = RsSrc!Nome
  RsDst.Update
  RsSrc.MoveNext
Loop
'Pulizia
RsSrc.Close
Set RsSrc = Nothing
RsDst.Close
Set RsDst = Nothing
Conn.Close
Set Conn = Nothing
Set wrk = Nothing
Ciao Giorgio

 ha scritto nel messaggio
news:i8yMa.8801$de....@news.edisontel.com...

Grazie per l'informazione, io utilizzo il server 
news.tiscali.it
 e forse ha
risentito dello stesso problema avuto dal server Microsoft in data 30/06/03.
Ciao Giorgio

 ha scritto nel messaggio
news:bduc7f$j7$1...@lacerta.tiscalinet.it...

Purtroppo sul server rimarrebbe traccia dell'intero statement... comuque
risolve parte del problema.
Ti ringrazio.
Ciao
Daniele


L'amministratore del server può intercettare qualsiasi comando inviato anche
quello della query Pass-Through.
Ciao Giorgio

 ha scritto nel messaggio
news:bdugph$2rd$1...@lacerta.tiscalinet.it...

In fact... per questo il problema rimane in parte... non sono io
l'amministratore.
Ciao
Daniele