Active Script task

[mnucci]

Ciao!
Sto lavorando su un DTS di MS SQL.
Volevo provare ad inserire un active script task alla procedura che può essere scritta in VB script.
Ma come faccio ad agire sulle tabelle?
Cioè se volessi fare un semplice
Update Ordini Set Nome = 'Ciccio' come diamine devo fare?
Come apro una connessione?

Grazie

[Gioba66]

sei in modalità visuale con Enterprise Manager?

[mnucci]

Ciao!
Ho aperto un nuovo DTS e ho aggiunto il componente Active Task, usando l'Enterprise Manager di SQL 7.0.
Ti spiego, finora il dts importa un file di ordini da Excel; dopo che vengono trasferiti nella tabella Ordini, devo andare a fare un UPDATE dei records inseriti inserendo IL NOSTRO numero ordine che non è altro che un numero di 6 cifre con le ultime cifre con l'ID del recordset tipo '000188'.
Ti sembra sia il modo giusto di operare?
Il problema è che non ho idea di come si scrivano questi Active Task, posso selezionare Vbasic Script, ma come apro la connessione, per una select update etc?
Grazie 1000000000000

[heroes3]

la connessione la potresti aprire così
non sono sic al 100%

dim dbc as ADODB.Connection
dim rst as ADODB.recordset
Set Dbc = New.Adodb.connection
Set rst = New.Adodb.recordset

dbc.open StringaConnessioneSQL
rst.open Query

se devi lavorare su 2 db creerai 2 connessioni e 2 rst

[mnucci]

grazie,
così come me l'hai postata mi dà errore di compilazione Microsoft VBscript linea 0, prevista fine istruzione..

[mnucci]

ho trovato questo link
http://www.sqldts.com/default.aspx?279,4
ma come diamine faccio ad avere quella finestra!?

[mnucci]

chi cerca trova.. per il bene della community
'************************************************* *********************
' Visual Basic ActiveX Script
'************************************************* ***********************

Function Main()
dim myConn
dim myRecordset
dim iRowCount

set myConn = CreateObject("ADODB.Connection")
set myRecordset = CreateObject("ADODB.Recordset")

myConn.Open = "Provider=SQLOLEDB.1;Data Source=DNS2; Initial Catalog=NomeDB;user id = 'pippo';password='paperino'"
mySQLCmdText = "Update Ordini Set NumOrdine = 'manuel' WHERE IdOrdine = 81"

myRecordset.Open mySQLCmdText, myConn
MsgBox "OK"
Main = DTSTaskExecResult_Success
End Function