Il blog di Nicola

E’ la maniera più veloce per duplicare una tabella, o per creare uan tabella al volo partendo da una select:

SELECT INTO FROM TABELLA1 [WHERE ...]

TABELLA2 viene creata automaticamente se non esiste.
Un esempio:

CREATE TABLE VENDITE (AGENTE VARCHAR(20), PRODOTTO VARCHAR(20), PAESE VARCHAR(20), QUANTITA INT)

INSERT INTO VENDITE VALUES ('AGENTE 1', 'PS3', 'ITALIA', 20)
INSERT INTO VENDITE VALUES ('AGENTE 1', 'PS3', 'SPAGNA', 30)
INSERT INTO VENDITE VALUES ('AGENTE 1', 'PS3', 'FRANCIA', 10)
INSERT INTO VENDITE VALUES ('AGENTE 1', 'PS3', 'GERMANIA', 15)
INSERT INTO VENDITE VALUES ('AGENTE 1', 'WII', 'ITALIA', 10)
INSERT INTO VENDITE VALUES ('AGENTE 1', 'WII', 'SPAGNA', 25)
INSERT INTO VENDITE VALUES ('AGENTE 1', 'WII', 'INGHILTERRA', 8)
INSERT INTO VENDITE VALUES ('AGENTE 1', 'WII', 'GERMANIA', 35)

SELECT * INTO VENDITE_ITALIA FROM VENDITE WHERE PAESE = 'ITALIA'

Un’altra maniera per fare la stessa cosa è:

CREATE TABLE VENDITE_ITALIA (AGENTE VARCHAR(20), PRODOTTO VARCHAR(20), PAESE VARCHAR(20), QUANTITA INT)
INSERT INTO VENDITE_ITALIA SELECT * FROM VENDITE WHERE PAESE = 'ITALIA'

Premesse:

• Installazione del driver oracle sulla macchina
• Ado instalato sulla macchina

Per utilizzare ado in excel è sufficiente (versione 2003), dal vba editor di Excel, andare in Strumenti–>Riferimenti e scegliere Microsoft ActiveX data object.

ll codice:

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim query As String
 
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
 
cn.Open "Driver={Oracle ODBC Driver};" & _
           "Dbq=" & database & ";" & _
           "Uid=" & uid & ";" & _
           "Pwd=" & password
 
query = "select * from persona"
rs.Open query, cn, adOpenStatic
While Not rs.EOF
    ...
    rs.MoveNext
Wend
 
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing