Scrivere dati su tabella di altro database

[wegawhite]

Ciao.
Ho queste due queryInsert che scrivono su due tabelle diverse dello stesso dbase; avrei necessità di inserire questi dati anche in una terza tabella ma di un secondo dbase, è possibile?

case "Crea"
Item=request.form("Item")
select case Item
case "linea"
sqlquery = "insert into [Catalogo, Linee] "
sqlquery = sqlquery & "(Denominazione) "
sqlquery = sqlquery & "VALUES ("
sqlquery = sqlquery & "'" & raddoppiaapostrofi(request.form("Denominazione")) & "'"
sqlquery = sqlquery & ")"
DatabaseWebStore.Execute(sqlquery)
response.write err.description
case "articolo"
sqlquery = "insert into [Catalogo, Articoli] "
sqlquery = sqlquery & "(Denominazione, IDLinea) "
sqlquery = sqlquery & "VALUES ("
sqlquery = sqlquery & "'" & raddoppiaapostrofi(request.form("Denominazione")) & "', "
sqlquery = sqlquery & IDLinea
sqlquery = sqlquery & ")"
DatabaseWebStore.Execute(sqlquery)
response.write err.description
end select
end select

[kluster]

chiudi la connessione
la riapri con il nuovo path al secondo db
riesegui la query

[wegawhite]

Grazie, ci sto provando... non dà errore ma non passa nella query il valore della sql3... :master:

Dim ConnDown 
Set ConnDown=Server.CreateObject("ADODB.Connection") 
ConnDown.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath(path&"/mdb-database/webstore.mdb") 

sql2 = "SELECT * FROM catalogo_articoli WHERE ID=" & IDLinea 
response.write sql2 &"
"
set RECdown = connDown.execute(sql2)

sql3 = "SELECT denominazione FROM catalogo_linee WHERE ID=" & RECDown("IDLinea")
response.write sql3 &"
"
set RECDown2 = connDown.execute(sql3)


'metti dentro al secondo database i campi: denominazione, informazioniestese, informazioni, riferimentodifoto 
Set conn = Server.CreateObject("ADODB.Connection")
OpenStra = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("/mdb-database/SiteSearch.mdb")
conn.Open openStra
strsqla = "INSERT INTO URLIndex (keywords, title, description, summary, url)" 
strsqla = strsqla & " Values(" 
strsqla = strsqla & "'" & (RECDown2("Denominazione")) & "', "
strsqla = strsqla & "'" & (request.form("Denominazione")) & "', " 
strsqla = strsqla & "'" & (request.form("Informazioniestese")) & "', "
strsqla = strsqla & "'" & (request.form("Informazioni")) & "', " 
strsqla = strsqla & "'" & (request.form("Riferimentodifoto")) & "')" 
response.write strsqla
conn.execute(strsqla) 

conn.close
set conn = Nothing

ConnDown.close
set ConnDown = Nothing

[wegawhite]

perchè non esegue la sql3 ????

[wegawhite]

Non capisco perchè se apro la pagina normalmente, mi restituisce:

 SELECT * FROM [catalogo, articoli] WHERE ID=12
SELECT denominazione FROM [catalogo, linee] WHERE ID=4
INSERT INTO URLIndex (title, description, summary, keywords, url) Values('', '', '', 'Plans online', '')

mentre se passo a

gestione_catalogo.asp?edit=articoli&idlinea=3

mi restituisce:

SELECT * FROM [catalogo, articoli] WHERE ID=3

INSERT INTO URLIndex (title, description, summary, keywords, url) Values('', '', '', '')

e perde per strada il valore 'Plans online' e non inserisce nulla nel secondo dbase, questo il code:

 <%
Dim ConnDown 
Set ConnDown=Server.CreateObject("ADODB.Connection") 
ConnDown.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath(path&"/mdb-database/webstore.mdb") 
Dim sql2, RECdown, sql3, RECdown2

sql2 = "SELECT * FROM [catalogo, articoli] WHERE ID=" & IDLinea 
response.write sql2 &"
"
set RECdown = connDown.execute(sql2)

sql3 = "SELECT denominazione FROM [catalogo, linee] WHERE ID=" & RECDown("IDLinea")
response.write sql3 &"
"
set RECDown2 = connDown.execute(sql3)

'metti dentro al secondo database i campi: denominazione, informazioniestese, informazioni, riferimentodifoto 

Set conn = Server.CreateObject("ADODB.Connection")
OpenStra = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("/mdb-database/SiteSearch.mdb")
conn.Open openStra
strsqla = "INSERT INTO URLIndex (title, description, summary, keywords, url)" 
strsqla = strsqla & " Values(" 
strsqla = strsqla & "'" & (request.form("Denominazione")) & "', " 
strsqla = strsqla & "'" & (request.form("Informazioniestese")) & "', "
strsqla = strsqla & "'" & (request.form("Informazioni")) & "', "
strsqla = strsqla & "'" & (RECDown2("Denominazione")) & "', "
strsqla = strsqla & "'" & (request.form("Riferimentodifoto")) & "')" 
response.write strsqla
conn.execute(strsqla) 

conn.close
set conn = Nothing

connDown.close
set connDown = Nothing
%>

[kluster]

:master: dunque

strsqla = strsqla & "'" & (request.form("Denominazione")) & "', "
etc
se glielo passi in querystring come hai detto
gestione_catalogo.asp?edit=articoli&idlinea=3 è logico che i request.form non siano valorizzati

se passi id=12 prende Plans Online
se id=3 lo perde , --->forse il record per quell'id ha un campo descrizione vuoto?


P.s [catalogo, linee] curioso, non sapevo si potesse usare cosi.

[wegawhite]

proprio non ci arrivo... apro la pagina catalogo_linee.asp e mi ritrovo:

SELECT * FROM [catalogo, articoli] WHERE ID=13
SELECT denominazione FROM [catalogo, linee] WHERE ID=4
INSERT INTO URLIndex (title, description, summary, keywords, url) Values('', '', '', 'Plans online', '')

da dove prende i dati se non faccio nessuna apparente operazione? :master: