Varios selects con una misma conexion

[Julcar]

Tengo un problemilla, voy haciendo una página portal con varias SELECTS a una varias tablas, el problema es que siempre he sabido trabajar con un solo SELECT.

Aquí es donde tengo el problema, habrá alguna funcion que pueda crear varios SELECTS en una misma página?

[Julcar]

Tengo esta funcion:

Código PHP:

   
<&#37; 
 
Option Explicit 
Dim Conn, RS 
 
Function conectar(conn, RS) 
 
Conn = Server.CreateObject("ADODB.Connection") 
RS = Server.CreateObject("ADODB.RecordSet") 
Conn.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _  
Server.MapPath ("datos/clasificadosnet.mdb") & ";"  
end Function 
%> 
 
<% 
Dim strSQL 
 
strSQL = "SELECT categorias.id_categoria, categorias.nombre_categoria, categorias.orden_categoria "  & _ 
"FROM categorias ORDER BY categorias.orden_categoria ASC" 
conectar(strsql) 
%>  
   

y me da el sig error:

The script reported following error: Wrong number of arguments or invalid property assignment: 'conectar' (error number 0x800A01C2 hex)

In file /clasificadosnet/

on line 20, position 0 :


conectar(strsql)

[David]

Tu función está mal, recibe dos parámetros y sólo le estás pasando una, además, el primer parámetro que pides en vez de utilizarlo lo estás reemplazando, y el segundo parámetro también. No entiendo lo que quieres hacer con ese código.

[Julcar]

En si lo que quiero hacer es reutilizar esa funcion para hacer varios selects en la misma página.

[u_goldman]

Iniciado por Julcar

En si lo que quiero hacer es reutilizar esa funcion para hacer varios selects en la misma página.

En ese caso lo que debe recibir es una sentencia SQL y devolver un recordset:

Código:

Function conectar(strSQL)

  Set Conn = Server.CreateObject("ADODB.Connection")
  Set RS = Server.CreateObject("ADODB.RecordSet")
  Conn.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _ 
  Server.MapPath ("datos/clasificadosnet.mdb") & ";" 

   conectar = Conn.Execute(strSQL)
end Function

Código:

strSQL = "SELECT categorias.id_categoria, categorias.nombre_categoria, categorias.orden_categoria "  & _
"FROM categorias ORDER BY categorias.orden_categoria ASC" 
Set rs = conectar(strSQL)

Honestamente a mi no me convence esta aproximación pues:

- Dejas conexiones abiertas
- Dejas objetos creados sin destruir
- Es demasiado abstracto -no puedes/debes encerrar todas las cosas que pasan dentro de un website en una función-

Lo mejor desde mi punto de vista sería crear funciones específicas para cada uno de los casos, pero es sólo mi opinión.

Saludos

[Julcar]

Que resignacion, mi objetivo es crear alguna funcion que cada vez que la invoque me conecte a la base de datos y pueda hacerme un select.

[Julcar]

Quien sabe debería considerar la opción de encerrar la funcion en una clase?

[u_goldman]

Iniciado por Julcar

Quien sabe debería considerar la opción de encerrar la funcion en una clase?

Eso es algo que te debes contestar tú ¿deberías?

Recuerda que el contexto solamente lo tienes tú, dependiendo del problema, la solución debe venir.

Siento yo que primero deberías enfocar tus esfuerzos en hacer cosas simples y específicas, partiendo de ahí se puede seguir avanzando.

Saludos

[Julcar]

Es inverosimil, es como llamar tres veces las mismas tablas, necesito reutilizar el mismo codigo tres veces, pero a la larga se le ve tan dificil.