Vbs oracle via ado

• Būtina turėti įdiegtus Oracle client įrankius (Tools), tuo pačiu sudedami ir ODBC driver'iai. __Rekomenduotina perkrauti po installo__.
• Jei prieš tai buvo kitos Oracle instaliacijos, arba nepavyko iškarto sudiegti, būtina patikrinti registrų šakas, kad rodytų į teisinga Oracle home katalogą:

      HKLM/Software/ORACLE/HOME0
      HKLM/Software/ORACLE/ALL_HOMES
      HKLM/Software/ORACLE/ALL_HOMES/ID1

• PATH variable'as būtinai turi turėti nuorodą į oracle_home direktoriją
• DB_Name šio atveju yra TSN alias'as, kuris aprašytas TNSNAMES.ORA faile oracle_home/network/ADMIN kataloge.
• .WORLD būtina pridėti jungiantis prie bet kokios Oracle db (galbūt nebereikia Oracle10, nesu tikras)
• Nerekomenduotina naudoti MS ODBC driver'ių, geriau OLE. Iš esmės abu veikinatys

  'constr="Provider=MSDASQL;DRIVER={Microsoft ODBC for ORACLE};UID=username;PWD=password;Server=DB_NAME.WORLD"
  constr = "Provider=OraOLEDB.Oracle;DRIVER={ORACLE ODBC Driver};Data Source=DB_NAME.WORLD;User Id=username;Password=password"
  conqry = "Select * from table_name"
  res = 'NULL'
  On Error Resume Next	
    Set conn = CreateObject("adodb.connection")
    If Err.Number <> 0 Then ' jei nepavyksta prisijungti
           MsgBox Err.Description 
    End If
    Set res = CreateObject("ADODB.recordset")
    res.Open conqry, conn
    If Err.Number <> 0 Then ' jei nepavyksta execute darom ką nors
       MsgBox Err.Description
	  Err.Clear
       End If
    for each x in res.fields
       WScript.echo x.Name & " = " & x.Value
    next
  On Error GoTo 0
  res.Close
  conn.Close