Print Page | Close Window

[RISOLTO] Compattazione righe

Printed From: IALweb
Category: Programmazione
Forum Name: ASP-ASP.NET
Forum Discription: Discussioni generiche su Active Server Pages
URL: https://forum.ialweb.it/forum_posts.asp?TID=16464470
Printed Date: 18/Lug/2019 at 00:30
Software Version: Web Wiz Forums 10.17 - http://www.webwizforums.com


Topic: [RISOLTO] Compattazione righe
Posted By: il_betto
Subject: [RISOLTO] Compattazione righe
Date Posted: 03/Apr/2013 at 12:20
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...
mettere ad esempio:
 
cn.Close cn_cu.Close
Set cn=nothing Set cn_cu=nothing
 
ridurre insomma il numero di righe ...



Replies:
Posted By: Ricky53
Date Posted: 03/Apr/2013 at 18:19
Ciao,
al tuo esempio la rispsota è SI, si fa separando le istruzioni con ":"  (due punti)



-------------
AMMINISTRATORE

Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


Posted By: il_betto
Date Posted: 04/Apr/2013 at 11:31
Grazie !!!
 
ho fatto cosi' e funziona tutto !!!

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
set cn=nothing
 



Print Page | Close Window

Forum Software by Web Wiz Forums® version 10.17 - http://www.webwizforums.com
Copyright ©2001-2013 Web Wiz Ltd. - http://www.webwiz.co.uk