IALweb Homepage
Forum Home Forum Home > Programmazione > Programmazione > ASP-ASP.NET
  New Posts New Posts RSS Feed - [RISOLTO] Compattazione righe
  FAQ FAQ  Forum Search   Events   Register Register  Login Login


REGISTRATEVI su IALWeb forum!

[RISOLTO] Compattazione righe

 Post Reply Post Reply
Author
Message
il_betto View Drop Down
Veterano
Veterano
Avatar

Joined: 13/Giu/2011
Status: Offline
Points: 3367
Post Options Post Options   Thanks (0) Thanks(0)   Quote il_betto Quote  Post ReplyReply Direct Link To This Post Topic: [RISOLTO] Compattazione righe
    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 ...


Edited by il_betto - 04/Apr/2013 at 11:31
Back to Top
Sponsored Links


Back to Top
Ricky53 View Drop Down
Amministratore
Amministratore
Avatar
Esperto di Excel e PowerPoint

Joined: 05/Ott/2006
Location: Italy
Status: Offline
Points: 16558
Post Options Post Options   Thanks (0) Thanks(0)   Quote Ricky53 Quote  Post ReplyReply Direct Link To This Post 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
Back to Top
il_betto View Drop Down
Veterano
Veterano
Avatar

Joined: 13/Giu/2011
Status: Offline
Points: 3367
Post Options Post Options   Thanks (0) Thanks(0)   Quote il_betto Quote  Post ReplyReply Direct Link To This Post 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
 


Edited by il_betto - 04/Apr/2013 at 11:47
Back to Top
 Post Reply Post Reply
  Share Topic   

Forum Jump Forum Permissions View Drop Down

Forum Software by Web Wiz Forums® version 10.17
Copyright ©2001-2013 Web Wiz Ltd.

This page was generated in 0,078 seconds.