Quasi tutte le applicazioni si appoggiano, per la registrazione delle informazioni, a Database. Di seguito ho inserito del codice per mostrare come collegarsi ad un DB Oracle, eseguire una query e leggere il risultato.
Viene utilizzata la tecnologia ADODB per la creazione dell'oggetto Connection e RecordSet
'***********************************************
'********** INIZIO PROGRAMMA *********************
'***********************************************
Const query = "Select * from MYTABLE"
'Costanti per RECORDSET
Const adOpenStatic = 3
Const adLockOptimistic = 3
Const adUseClient = 3
Dim istanza_db, usr, psw, objConnection, objRecordSet
istanza_db = inputbox("Inserisci il nome istanza DB:", "Nome DB","IST1")
if istanza_db = "" then
wscript.quit
end if
usr = inputbox("Inserisci il nome utente:", "User", "user01")
if usr = "" then
wscript.quit
end if
psw = inputbox("Inserire Password:", "Password","")
'***********************************************************
'********** COMANDI PER LA CONNESSIONE AL DB ORACLE *************
'***********************************************************
'ConnectionString per Db ORACLE
ConnString = "Provider=msdaora; Data Source=" & istanza_db & "; User Id=" & usr & "; Password=" & psw & ";"
'Creazione dell'oggetto ADODB.Connection
Set objConnection = CreateObject("ADODB.Connection")
if err.number<>0 then
msgbox "errore nella create ADODB.Connection"
msgbox err.description
wscript.quit
end if
'Apertura della connessione
objConnection.Open ConnString
'************************************************
'***********************************************************
'****** COMANDI PER ESECUZIONE QUERY TRAMITE OGGETTO RECORDSET **
'***********************************************************
Set objRecordset = CreateObject("ADODB.Recordset")
objRecordset.CursorLocation = adUseClient
objRecordset.CursorType = adOpenStatic
objRecordset.LockType = adLockOptimistic
'esecuzione della query
objRecordset.Open query, objConnection
'Controllo che sia stato estratto qualcosa
if objRecordSet.RecordCount > 0 then
'posizionamento al primo record del Recordset
objRecordSet.MoveFirst
'ciclo per tutto il recordset
do while Not(objRecordSet.EOF)
'ciclo per tutti i campi (colonne)
for i = 0 to objRecordSet.Fields.Count - 1
'Visualizzo i valori di ogni singolo campo del RECORD
msgbox objRecordSet.Fields.Item(i)
next
'mi posiziono sul successivo record
objRecordSet.MoveNext
loop
end if
'****************************************************
'********************
'DISTRUZIONE OGGETTI
'********************
set objRecordSet = Nothing
set objConnection = Nothing
'FINE PROGRAMMA
______________________________________________________________________