ASP CLASSIC copiare tabella da un db ad un'altro

**realmeteo** · 09-04-2011, 22:50

Ho due db access nella stessa cartella del mio server.

Vorrei copiare completamente la tabella "Users" dal primo al secondo in una pagina asp.
Ho letto di un comando "SELECT * INTO ....... ma non so come usarlo in asp

chi mi puo aiutare?

allego le funzioni di connessione che uso

codice:

file config.asp

<%
    Option Explicit
    On Error Resume Next
    Response.Buffer = True
    Response.Expires = 0
    ' ----- ----- ----- ----- -----
    Dim sc, cn, rs, cn_bk, rs_bk
    ' ----- ----- ----- ----- -----
    Function ConnOpen()
        sc = "driver={Microsoft Access Driver (*.mdb)};dbq="
        sc = sc & Server.MapPath("/mdb-database/ecom.mdb")
        Set cn = Server.CreateObject("ADODB.Connection")
        Set rs = Server.CreateObject("ADODB.Recordset")
        cn.Open sc
    End Function
    ' ----- ----- ----- ----- -----
    Function ConnClose()
        Set rs = Nothing
        cn.Close
        Set cn = Nothing
    End Function
    ' ----- ----- ----- ----- -----
    Function BackupOpen()
        sc = "driver={Microsoft Access Driver (*.mdb)};dbq="
        sc = sc & Server.MapPath("/mdb-database/master.mdb")
        Set cn_bk = Server.CreateObject("ADODB.Connection")
        Set rs_bk = Server.CreateObject("ADODB.Recordset")
        cn_bk.Open sc
    End Function
    ' ----- ----- ----- ----- -----
    Function BackupClose()
        Set rs_bk = Nothing
        cn_bk.Close
        Set cn_bk = Nothing
    End Function
%>


file copiatabella.asp
<%@LANGUAGE = VBScript%>

<%
    If Session("ADMIN") <> "OK" Then
        Response.Redirect "default.asp"
    End If
    Dim backup
    backup = Request.QueryString("backup")
%>
<html>
<head>
<title>copia tabella da database ad un altro con ASP</title>
</head>
<body>



<form method="post" action="dump.asp?backup=OK">
    <input type="submit" value="DUMP">
</form>

Logout



<%
    If backup = "OK" Then
    	
        Call ConnOpen()
            Call BackupOpen()
            
            
            qui vorrei copiare la tabella completa di struttura da un db all'altro senza aprire ogni record
            
            
            Call BackupClose()
        rs.Close
        Call ConnClose()
        Response.Write "
Copia  eseguita"
        '------------------------------------------------------------------------------------------

    End If
%>

</body>
</html>

**optime** · 10-04-2011, 00:42

dopo aver aperto la connessione al db di destinazione

codice:

INSERT INTO tabella_destinazione
(campo1, campo2, ..., campoN)
SELECT
(campo1, campo2, ..., campoN)
FROM
[percorso_completo_db_origine].tabella_origine

percorso_completo_db_origine potrebbe essere ad esempio C:\DBS\DB2.MDB

**realmeteo** · 10-04-2011, 15:01

fermo restando il file config.asp ho provato con

codice:

<%@LANGUAGE = VBScript%>

<%
    If Session("ADMIN") <> "OK" Then
        Response.Redirect "default.asp"
    End If
    Dim backup
    backup = Request.QueryString("backup")
%>
<html>
<head>
<title>Dump e backup di un database con ASP</title>
</head>
<body>

<h1>Effettua il dump del database</h1>

<form method="post" action="dump.asp?backup=OK">
    <input type="submit" value="DUMP">
</form>

Logout



<%
    If backup = "OK" Then
    	

 Dim SQL
      Call ConnOpen()
     'xxx  Call BackupOpen()
           		SQL= " INSERT INTO prodotti  (Codice, SCategoria, Categoria, Prodotto, 	PDescrizione) SELECT  FROM "& Server.MapPath("/mdb-database/master.mdb").prodotti
           		Set RS = cn.Execute(SQL)
           		RS.Close
           		
    ' xxx  Call BackupClose()           
      Call ConnClose()

    End If
%>

</body>
</html>

purtroppo non succede nulla ne se la tabella esiste già nella destinazione, ne se manca, ne togliendo i commenti alle linee 'xxx

grazie per nuovi suggerimenti.
(e una licenza gold gratis di realmeteo a chi mi aiuta a risolvere)

**optime** · 10-04-2011, 15:31

leggi bene il mio suggerimento... hai scritto "... SELECT FROM..." non ti pare che manchi qualcosa?

**realmeteo** · 10-04-2011, 16:07

purtroppo in SQL navigo a vista senza conoscenze approfondite.
ho corretto la linea in

codice:

           		SQL= " INSERT INTO  prodotti  (Codice, SCategoria, Categoria, Prodotto, 	PDescrizione) SELECT  FROM "& Server.MapPath("/mdb-database/master.mdb").prodotti
           		Set RS = cn.Execute(SQL)
           		RS.Close

ma sempre non funziona

**realmeteo** · 10-04-2011, 16:10

neanche con

codice:

           		SQL= " INSERT INTO  prodotti  (Codice, SCategoria, Categoria, Prodotto, 	PDescrizione) SELECT  FROM "& Server.MapPath("/mdb-database/master.mdb").prodotti  (Codice, SCategoria, Categoria, Prodotto, 	PDescrizione)
           		Set RS = cn.Execute(SQL)
           		RS.Close

**optime** · 10-04-2011, 16:16

vedi tu, continui a scrivere codice a casaccio

lo sai come si fa una SELECT, no?

**realmeteo** · 10-04-2011, 16:20

credo proprio di no

**optime** · 10-04-2011, 16:26

ma tu guarda, te l'avevo già scritto come fare

Originariamente inviato da optime
dopo aver aperto la connessione al db di destinazione

codice:

INSERT INTO tabella_destinazione
(campo1, campo2, ..., campoN)
SELECT
campo1, campo2, ..., campoN
FROM
[percorso_completo_db_origine].tabella_origine

percorso_completo_db_origine potrebbe essere ad esempio C:\DBS\DB2.MDB

dai, cerca di far bene stavolta

**realmeteo** · 10-04-2011, 16:30

niente anche con

codice:

	  Dim SQL
      Call ConnOpen()
          Call BackupOpen()
           		SQL= " INSERT INTO  prodotti   (Codice, SCategoria, Categoria, Prodotto, 	PDescrizione) SELECT  (Codice, SCategoria, Categoria, Prodotto, 	PDescrizione) FROM "& 


           		
           		Set RS = cn.Execute(SQL)
           		RS.Close
           
           Call BackupClose()
      Call ConnClose()

Discussione: ASP CLASSIC copiare tabella da un db ad un'altro

Strumenti discussione

Ricerca discussione

Visualizza

ASP CLASSIC copiare tabella da un db ad un'altro

Permessi di invio