[VbScript] Connession Database Oracle

felino

Utente Attivo
12 Dic 2013
886
9
18
Aci Catena (Catania)
Ciao a tutti,
dovrei realizzare in VBScript una connessione ad un Database Oracle.

Solitamente mi collega ad esso tramite Oracle SQL Developer, per il quale ho i seguenti dati:
- username
- password
- hostaname
- porta
- servicename

Come faccio a realizzare una connessione in VBScript?

Ho visto che tutti gli esempi richiedono un DataBase o InitalDataBase...

Grazie.
 

marino51

Utente Attivo
28 Feb 2013
2.724
141
63
Lombardia
se lavori con un pc windows,
puoi creare un file txt vuoto ( esempio DBname.txt ) che poi rinomini in udl ( -> DBname.udl )
cliccandolo 2 volte, ti si apre la configurazione per la connessione al database
puoi inserire tutti i parametri e al termine con l'apposito bottone, fare la verifica della connessione

se poi vuoi editarlo per esempio con il blocco note, all'interno leggi la stringa di connessione
nel mio caso, leggo,

Codice:
[oledb]
; Everything after this line is an OLE DB initstring
Provider=MSDAORA.1;Password=myPWD;User ID=myUSER;Data Source=myDB;Persist Security Info=True
quando sei in possesso del file udl, in vb si richiama il db in questo modo,

Codice:
Set TargetDB = CreateObject("ADODB.Connection") 
TargetDB.ConnectionString="File Name=DBpath\DBname.UDL;" 
TargetDB.Open
DBpath è la cartella dove hai parcheggiato il file udl (scusa la banalità)

per evitare di controllare gli errori ad ogni query, dopo averla impostata, richiamo la sub
Codice:
Sub EseguiDB()
   On Error Resume Next
   TargetDB.Execute(SQLQuery) 
   If Err.Number <> 0 Then
      ErrMSG = "Data Base error on mySCRIPT " & vbCrLf & _
               "Error Number : " & Err.Number & vbCrLf & _
               "Description  : " & Err.Description  & vbCrLf & _
               SQLQuery
      LogFile.Write Date & "-" & Time & "  " & NrRiga & vbCrLf
      LogFile.Write ErrMSG & vbCrLf
      WScript.Echo ErrMSG
      WScript.Quit(1)
   End If
   On Error Goto 0
End Sub
andando a scrivere l'eventuale errore in un logfile

ciao
Marino
 
Ultima modifica:

felino

Utente Attivo
12 Dic 2013
886
9
18
Aci Catena (Catania)
Ciao Marino,
grazie, sto provando a seguire la tua strada.
- username
- password
- host name
- porta
- service name (facendo riferimento a SQL Developer)

Quando mi viene chiesto
- 'server name' metto il 'service name'
e quando mi chiedono il
- 'database' cosa dovrei inserire?

Grazie.
 

marino51

Utente Attivo
28 Feb 2013
2.724
141
63
Lombardia
server name, in realtà, è il nome del server che gestisce oracle, credo che tu possa inserire il service name, se sei "online" con il server, nel menu a tendina ti elenca i server disponibili

database è il nome del database che devi usare, anche qui nel menu a tendina trovi le possibili scelte
 
Ultima modifica:

felino

Utente Attivo
12 Dic 2013
886
9
18
Aci Catena (Catania)
Ciao Marino,
ho provato a seguire i tuoi consigli, ma non sono arrivato ad una soluzione.

Ho scritto il seguente codice:
Codice:
Function ConnectionTest()

Const DB_CONNECT_STRING = "Provider=sqloledb;Data Source=myServiceName\myHostname,myport;User Id=myUsername;Password=myPassword;"

Set myConn = CreateObject("ADODB.Connection")
Set objRecordSet = CreateObject("ADODB.Recordset")
                
                myConn.Open DB_CONNECT_STRING
                objRecordSet.Open myQuery, myConn
                Wscript.Echo objRecordSet.fields.item(1) & " " & objRecordSet.fields.item(2)
                myConn.Close

End function

Call ConnectionTest()
Se provo a eseguirlo da un'istanza DOS ottengo il seguente errore:
Microsoft OLE DB Provider for SQL Server: [DBNETLIB][ConnectionOpen <Connect<>>.] Specified SQL server not found.

Dove potrebbe essere l'errore? :(

Grazie.
 

marino51

Utente Attivo
28 Feb 2013
2.724
141
63
Lombardia
le info di identificazione sono presenti nel file "TNSNAMES.ORA"
ti allego la spiegazione,

Database Identification by Service Name

An Oracle database is represented to clients as a service, that is, the database performs work on behalf of clients. A database can have one or more services associated with it.

Up to Oracle8i, an Oracle database service was uniquely identified by an Oracle System Identifier (SID). The SID was also used internally by the database as pointer to the System Global Area (SGA). Clients connected to a database instance by specifying the SID in the connect descriptor. This naming scheme did not distinguish services from instances.

Because an Oracle database can span over multiple computers, both the service as a whole and each of its instances are specified in Oracle9i and Oracle8i.

Service Name

A database is now identified by its service name. The service name is specified by the SERVICE_NAMES parameter in the initialization parameter file. SERVICE_NAMES specifies the name of the highest-level view of Oracle database service, that may span instances and/or nodes. SERVICE_NAMES is defaulted to the global database name, a name comprised of the database name and domain name.

Instance Name

Database instances are identified by an instance name with the INSTANCE_NAME parameter in the initialization parameter file. INSTANCE_NAME corresponds to the SID of the instance.

Connect Descriptors

Configure connect descriptors with the SERVICE_NAME (without an S) parameter to connect to an Oracle9i or Oracle8i database. For example, the following connect descriptor contains the address of a listener located on sales1-sun listening for connection requests for a database service called sales.us.acme.com:
sales=
(DESCRIPTION=
(ADDRESS=(PROTOCOL=tcp)(HOST=sales-sun1)(PORT=1521))
(CONNECT_DATA=
(SERVICE_NAME=sales.us.acme.com)))


Optionally, connect descriptors can be configured with the INSTANCE_NAME parameter to connect to a particular instance of the database. This may be necessary if you have an Oracle9i Real Application Clusters with multiple instances.

For example, the following connect descriptor contains the address of a listener located on sales-sun1 listening for connection requests for an instance called sales1 associated with the sales.us.acme.com database:
sales=
(DESCRIPTION=
(ADDRESS=(PROTOCOL=tcp)(HOST=sales-sun1)(PORT=1521))
(CONNECT_DATA=
(SERVICE_NAME=sales.us.acme.com)
(INSTANCE_NAME=sales1)))
poi sul pc dovresti avere installato il driver per lavorare con oracle

ti faccio il paragone con php (solo per cercare di spiegarmi meglio) se vuoi accedere ad un db con php devi avere attivo il driver specifico
[ExtensionList]

extension=php_pdo_sqlsrv.dll
extension=php_sqlsrv.dll

;extension=php_mysql.dll
;extension=php_mysqli.dll
nel set dei dischi di installazione di oracle, io trovo "oracle database client" che ho installato sul pc
ho quindi trovato tutti i parametri per la gestione della connessione usando i file udl,
non uso la connessione che proponi tu, proprio perché nel file udl è presente anche il bottone "verifica della connessione" che assicura il funzionamento indipendentemente dal codice scrittoCatturaUDL.PNG

poi come detto uso il tutto come stai facendo tu
Codice:
Set myDB=CreateObject("ADODB.Connection") 

myDB.ConnectionString="File Name=" & Opt_udlfile & ";"

SQLcmd="myDB.Open"
call SQLcmdExec(SQLcmd)

Set RS_tabelle = CreateObject("ADODB.Recordset") 

imposto la query ... 
call SQLcmdExec("RS_tabelle.Open")
Do While Not RS_tabelle.EOF
	call Leggi_tabelle

sub SQLcmdExec(ActionToDo)
	On Error Resume Next
	Select	Case	ActionToDo

		Case	"RS_tabelle.Open"	RS_tabelle.Open SQLcmd, myDB
		Case	"RS_tabelle.Close"	RS_tabelle.Close

		Case	"myDB.Open"		myDB.Open
		Case	"myDB.Close"		myDB.Close

		Case	"EXEC"			myDB.Execute(SQLcmd)

	End Select

	if Err.Number<>0 then
		ErrMSG = "Error on     : " & SQLcmd & vbCrLf & _
			 "Error Number : " & Err.Number & vbCrLf & _
			 "Description  : " & Err.Description & vbCrLf2
		LogFile.Write ErrMSG

		if TRS then myDB.RollbackTrans

		WScript.Quit(1)
	end if
	On Error Goto 0
End sub
se hai la possibilità, prova a creare il file udl sul server dove fisicamente è installato oracle, (non crea nessun problema)
così ti rendi conto del modo di agire
 
Ultima modifica:

Max 1

Super Moderatore
Membro dello Staff
SUPER MOD
MOD
29 Feb 2012
4.069
299
83
Occhio France75 non riesumare discussioni vecchie di anni! Inoltre quando intervieni cerca di far capire a cosa ti riferisci e a chi
Grazie