Como trabajar sobre una base de Datos Oracle

Pete1006 · #1 (**permalink**) 05/12/2008, 08:22

Hola q tal a todos! estoy nuevo en esto de ASP-VBScript y necesito ayuda con respecto a como extraer informacion de una base de datos Oracle, ya realize la conexion de la base de datos con el Dreamweaver y logro ver las tablas, datos, etc etc en la barra de aplicaciones, pero no se como interactuar con la base... necesito ayuda se les agradece de antemano cualquier informacion!!

Adler · #2 (**permalink**) 05/12/2008, 08:36

Hola

Has revisado este post?

Suerte

Pete1006 · #3 (**permalink**) 05/12/2008, 09:29

gracias por la respuesta...! lo leere y cualquier duda la publico, muchas gracias!!

Pete1006 · #4 (**permalink**) 08/12/2008, 06:38

he leido varias cosas en la web y realize este primer codigo. la mayoria de los manuales apuntan a un codigo parecido a este, pero a mi me esta presentando errores... de seguro son novatadas! espero de su ayuda!! gracias

<body>
<%
Option Explicit
Dim oCon, Ocom, oRec
set oCon=CreateObject("ADODB.Connection")
oCon.Open"DSN='xxx'; USER='xxx'; PASSWORD='xxx'"
set oCom=CreateObject("ADODB.Command")
set oRec=CreateObject("ADODB.Recordset")
oCom.CommandText="SELECT * FROM PLAN_TABLE
WHERE NUM_LOTE='256' AND NB_ABREV_LOTE='GO';"
oCom.ActiveConnection=oCon
Set oRec=oCom.Execute
%>

<form id="form1" name="form1" method="post" action="">
<table width="558" border="1">
<tr>
<th width="130" scope="col"><div align="center">COD DEL PROD </div></th>
<th width="130" scope="col"><div align="center">NRO. DE LOTE </div></th>
<th width="130" scope="col"><div align="center">VOLUMEN</div></th>
<th width="140" scope="col"><div align="center">FECHA DEL LOTE </div></th>
</tr>
<tr>
<td><%Response.Write("=oRec.Fields("COD_PROD")") %>  </td>
<td><%Response.Write("=oRec.Fields("NUM_LOTE")")%>  </td>
<td><%Response.Write("=oRec.Fields("VOL_BARRILES_H ORA")")%> </td>
<td><%Response.Write("=oRec.Fields("F_LOTE_PROD")" )%> </td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
</table>
</form>
<%
oRec.Close
oCon.Close
Set oCon=Nothing
Set oCom=Nothing
Set oRec=Nothing
%>
</body>

Adler · #5 (**permalink**) 08/12/2008, 07:01

Hola

Debería de exponer cuales son esos errores, así sería más sencillo ayudarte. Mirandolo por encima, este es un error

WHERE NUM_LOTE='256'

como es numérico debe de ser

WHERE NUM_LOTE=256

Suerte

Pete1006 · #6 (**permalink**) 08/12/2008, 07:56

Ahora que me dices eso, yo estuve trabajando en otra maquina realizando cosas sencillas y me mostraba un msj con la linea en donde estaba el error. Pero en esta maquina no me muestra nada, solo el mensaje de que es imposible ver la pagina. Realize la prueba de otra pagina que tengo hecha y esa si me la muestra... como puedo configurar el explorer para que me diga en que linea tengo los errores??? gracias por las respuestas!!

JuanRAPerez · #7 (**permalink**) 08/12/2008, 08:07

1 IE:
Herramientas -> Opciones Avanzadas
Bajo 'examinar' desactiva la casilla "Mostrar mensajes descriptivos de los errores http"

2 usa Firefox mejor

suerte

Pete1006 · #8 (**permalink**) 08/12/2008, 15:04

Gracias por tu respuesta Juan, solucionado ese problema.

Tengo otra duda, cuando realizo la conexión con el origen de los datos sería algo como:

strConnectionString="DRIVER={Microsoft ODBC for Oracle}SERVER= AQUI IRIA LA RUTA DE ACCESO AL SEVIDOR".

Como sabria yo cual es la verdadera ruta de acceso al servidor? pq estoy presentando un error en esa linea... cual seria el orden del codigo que va despues de la palabra SERVER??? gracias d antemano!!

JuanRAPerez · #9 (**permalink**) 08/12/2008, 15:39

bueno seria postearas el error que te envia porque puede ser otra cosa

http://www.connectionstrings.com/oracle

lee un poco para mejor ayuda :)

Pete1006 · #10 (**permalink**) 09/12/2008, 06:50

Gracias por la respuesta!, este es el código:

<body>
<%
strConnectionString = " DRIVER={Microsoft ODBC for Oracle};Server=xxx;Uid='xxx'; PASSWORD='xxx';"
Set cn = Server.CreateObject("ADODB.Connection")
cnn.Open strConnectionString
Set rsCustomers = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT COD_LUGAR_MUESTREO, COD_PROCEDENCIA FROM CCP.LUGAR_MUESTREO WHERE NB_TIPO_LUGAR_MUESTREO = 'Refineria' "
rstCustomers.Open strSQL, cnn
Set objCOD_LUGAR_MUESTREO = rstCustomers("CODIGO")
Set objCOD_PROCEDENCIA = rstCustomers("LUGAR")
Do Until rstCustomers.EOF
Response.Write objCOD_LUGAR_MUESTREO & " " & objCOD_PROCEDENCIA & "<BR>"
rstCustomers.MoveNext
Loop
%>
</body>

y este es el error que arroja el explorer

Error de Microsoft VBScript en tiempo de ejecución error '800a01a8'

Se requiere un objeto: ''

/APPL/Probar.asp, line 13

la linea que puse roja es la nro. 13 gracias!!!

Adler · #11 (**permalink**) 09/12/2008, 08:08

Hola

Prueba así

Set cnn = Server.CreateObject("ADODB.Connection")
cnn.Open strConnectionString

Suerte

JuanRAPerez · #12 (**permalink**) 09/12/2008, 08:19

por simple inspeccion

set cn
cnn

hay una n de mas????

EDITO:
lo seteas como CN
lo tratas de usar como CNN en la linea en rojo
:)

Pete1006 · #13 (**permalink**) 09/12/2008, 09:11

Ahora refleja este error...

[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified

/APPL/Probar.asp, line 13

me parece extraño que me diga que el nombre del dns no es encontrado si yo lo estoy viendo en la barra d aplicaciones del dreamweaver... estoy algo confuso en esta parte, agradezco su ayuda nuevamente gracias!!!