Connessione DB Oracle ed Esecuzione Query

 

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

 

______________________________________________________________________

 

Pag: <<    <    >    >>