importazione database

[marino51]

ho utilizzato tempo fa vbs per l'importazione,
si possono usare altre soluzioni (anche una macro excel simil vbs)

qualche indicazione,

crea un file vuoto (usando blocco note) con il nome che preferisci (magari il nome del database)
rinominalo con estensione ".udl"
clicca il file 2 volte x eseguirlo
ti si apre la finestra delle impostazioni, inserisci i parametri per raggiungere il tuo db
fai la verifica di connessione, se positiva, il file è ok

il codice che segue premette l'accesso al db usando il file "udl" appena creato
ed apre il file excel

per il resto del codice, ... divertiti

Set TargetDb=CreateObject("ADODB.Connection") 
TargetDB.ConnectionString="File Name=" & UdlDir & "Database.UDL;"
TargetDb.Open


Set oXL=WScript.CreateObject("EXCEL.application")
oXL.Visible=False
oXL.workbooks.open BudgetDir & "BudgetTecnici_" & SeID & ".xls"
oXL.sheets("Strn003").Activate
If oXL.Cells(1, 1).Value="" Then
   LogFile.Write Date & "-" & Time & "Il Foglio Strn003 è vuoto, interrompo il lavoro" & vbCrLf & vbCrLf
   oXL.application.quit
   LogFile.Close
   TargetDB.Close
   Set TargetDB=Nothing
   WScript.Quit(1)
End If

ps ho aggiornato db oracle, mssql e access con questo sistema