Newsgroup: it.comp.appl.access
Titolo: ADP: errore su esecuzione comando sql

Salve a tutti,
Ho il seguente errore:
" Errore di runtime '2757': Errore durante l'accesso ad una proprietà o ad
un metodo dell'oggetto OLE"
Il codice, funzionante su un mdb è il seguente:
txt = " SELECT titolo.PROG_TITOLO, titolo.COD_SUBAGENZIA AS sub,
titolo.COD_TITOLO AS titolo, titolo.COD_STATO_TITOLO AS stato,
titolo.DAT_RATA AS rata, titolo.DAT_INIZIO_COPERTURA AS decorr,
titolo.DAT_FINE_COPERTURA, titolo.NUM_POLIZZA AS pol, titolo.COD_RAMO,
titolo.DAT_RATA, titolo.TOT_RATA AS totrata, titolo.NETTO_RATA AS netrata,
titolo.ACCESSORI_RATA AS accrata, titolo.IMPONIBILE_RATA AS imponrat,
titolo.IMPOSTA_RATA AS imprata, titolo.DAT_CONTABILE,
titolo.DAT_EFFETTIVO_INCASSO AS effinc, titolo.DAT_INSERIMENTO ,
titolo.DAT_INSER_GDC AS giorcas, COD_VALUTA,IIf([COD_APPENDICE]='
',Null,[COD_APPENDICE]) AS appendice INTO titolosql " _
& " FROM titolo IN cliras[ODBC;DSN=cliras;UID=sa;PWD=;DATABASE=cliras;] " _
& " WHERE (((titolo.DAT_RATA)>#12/31/2003#) and (titolo.cod_stato_titolo
<>'S') and (titolo.cod_stato_titolo <>'A'));"
DoCmd.RunSQL txt
Avete qualche dritta?
Grazie
ringo

 ha scritto nel messaggio
news:cmn91o$7c7$1...@newsread.albacom.net...

Ciao Ringo,
quello sopra è il codice che funziona in un MDB e adesso stai facendo un
ADP, collegato al DB cliras su SQL Server?
se è così oltre a togliere la clausola IN devi anche cambiare l'istruzione
iif() che in SQL Server non c'è
con
    Appendice = CASE DATALENGTH(COD_APPENDICE)
            WHEN 0  THEN Null
            ELSE COD_APPENDICE
        END
Facci sapere.
Saluti
Cinzia

 ha scritto nel messaggio
news:cmnb0s$q5g$1...@lacerta.tiscalinet.it...

grazie dei consigli ma  a parte la sintassi sql errata
non mi funziona nemmeno se metto
txt = "select * from tabella;"
mah...

 ha scritto nel messaggio
news:cmnc3r$8sr$1...@newsread.albacom.net...

Ciao ringo,
hai ragione!
Il problema è che DOCmd.RunSql  usa il motore JET interno di Access e con i
progetti ADP non funziona.
Con SQL Server nei progetti ADP bisogna usare ADO.
A titolo di esempio:
dim cmd as ADODB.Command
set cmd = New ADODB.Command
cmd.Connection = CurrentProject.ActiveConnection
cmd.CommadType = acCmdText
cmd.CommandText = "Select * From Tabella"
cmd.Execute
Ciao
Cinzia

 cmd.Execute
Grazie alla tua dritta il seguente codice funziona:
Dim cmd As ADODB.Command
Set cmd = New ADODB.Command
cmd.ActiveConnection = "Provider=sqloledb;" & _
           "Data Source=10.176.14.250;" & _
           "Initial Catalog=DBAGE;" & _
           "User Id=sa;" & _
           "Password="
cmd.CommandType = adCmdText
cmd.CommandText = "Select * into subagenzie from DECOD_SUBAGENZIE;"
cmd.Execute
N.B.: tramite il codice ci si connette ad un DB sql nella rete però
eseguendo con "cmd.Execute" mi crea la tabella "subagenzie" nel DB sql che
ho in rete
e non nel ADP dove lancio l'execute... come posso fare?
grazie!
ringo

 ha scritto nel messaggio
news:cmnhfc$cmf$1...@newsread.albacom.net...

Non riesco a capire ma tu vuoi crearti una tabella nell'ADP stile MDB?
Se è così non si può!
Cinzia

 Cinzia
quello che mi servirebbe:
lanciando il codice da un ADP,
vorrei leggermi una tabella su un altro sql server
della rete e creare la tabella nell'adp....
č impossibile farlo con un'esecuzione di una stringa sql?
lanciando il codice sopra funziona ma la tabella
viene creata sull'altro sql server e non da dove lancia la sql...
grazie
ringo