Abbellimento codice con multiple set

[betto]

Ciao a Tutti,

volevo sapere per cortesia se c' era un modo di compattare il seguente codice:


Set cn = Server.CreateObject("ADODB.Connection")
Set cn_cu = Server.CreateObject("ADODB.Connection")
cn.ConnectionString = "DSN=4_plan.dsn"
cn_cu.ConnectionString = "DSN=3_custom.dsn"
cn.Open
cn_cu.Open

Set cmd=CreateObject("adodb.command")
Set cmd_cu=CreateObject("adodb.command")
With cmd
Set .ActiveConnection = cn
.CommandType=1 'adCmdText
.CommandText = sql3
.Execute , , 128 '128=adExecuteNoRecords
.CommandText = sql4
.Execute , , 128
End With
With cmd_cu
Set .ActiveConnection = cn_cu
.CommandType=1 'adCmdText
.CommandText = sql5
.Execute , , 128
End With
'
cn.Close
cn_cu.Close
Set cn=nothing
Set cn_cu=nothing

Grazie mille in anticipo !!!

P.S. volevo sapere se e' possibile ad esempio mettere 2 "Set" su di una stessa riga, ecc...

[optime]

non si può

[betto]

Grazie !!!!

[br1]

Originariamente inviato da betto
P.S. volevo sapere se e' possibile ad esempio mettere 2 "Set" su di una stessa riga, ecc...

Per mettere piu' istruzioni sulla stessa riga le devi separare con i duepunti:

Set cn = Server.CreateObject("ADODB.Connection") : Set cn_cu = Server.CreateObject("ADODB.Connection")

ma spesso a discapito della leggibilita' del codice

Meglio, nel tuo caso, raggruppare per oggetto, per esempio prima tutte quelle relative a cn, poi quelle relative a cn_cu

[betto]

Grazie Br1,

ho fatto cosi' e funziona tutto !!!
inoltre ho tralasciato il set cn=nothing


Dim cmd, cn, sql3, sql4

Set cn = Server.CreateObject("ADODB.Connection")
cn.ConnectionString = "DSN=4_plan.dsn"
cn.Open
'
sql3 = "INSERT INTO t_mrg_pl " & _
"SELECT t_mrg.Numero, First(t_mrg.Activity) AS Activity " & _
"FROM t_mrg " & _
"GROUP BY t_mrg.Numero " & _
"HAVING ((t_mrg.Numero=" & rec & "));"
'
Set cmd=CreateObject("adodb.command")
With cmd
Set .ActiveConnection = cn
.CommandType=1 'adCmdText
.CommandText = sql3
.Execute , , 128 '128=adExecuteNoRecords
End With
'
cn.Close
cn.Open "DSN=3_custom.dsn"
'
sql4 = "INSERT INTO t_mrg_cust " & _
"SELECT t_mrg.Numero, First(t_mrg.Nome) AS Nome " & _
"FROM t_mrg " & _
"GROUP BY t_mrg.Numero " & _
"HAVING ((t_mrg.Numero=" & rec & "));"
'
cn.Execute sql4
cn.Close

[optime]

Originariamente inviato da betto
Grazie Br1,

ho fatto cosi' e funziona tutto !!!
inoltre ho tralasciato il set cn=nothing

e hai fatto male! rimettilo, altrimenti poi piangi perché esaurisci le risorse.... tutti gli oggetti creati vanno distrutti quando non servono più.

[betto]

Grazie Optime, provvedo subito !!!!