aclaracion instruccion recordset

21/01/2005 - 21:15 por Ignacio Betancor | Informe spam
hola a todos,...

no se si estoy haciendo una locura o es correcto lo que estoy haciendo,
por cada tabla que necesito abrir tengo que hacer la conexion pertinente ???

es decir yo estoy haciendo esto

Dim oConn1,oConn2,oConn3,tabla1,tabla2,tabla3
set oConn1=Server.CreateObject("ADODB.Connection")
set oConn2=Server.CreateObject("ADODB.Connection")
set oConn3=Server.CreateObject("ADODB.Connection")
set tabla1=Server.CreateObject("ADODB.Recordset")
set tabla2=Server.CreateObject("ADODB.Recordset")
set tabla3=Server.CreateObject("ADODB.Recordset")
oConn1.Open "Driver={Microsoft Visual FoxPro
Driver};SourceTypeÛc;SourceDB=c:\inetpub\wwwroot\difersa\vtasdb\webalba.db
c;exclusive=no"
oConn2.Open "Driver={Microsoft Visual FoxPro
Driver};SourceTypeÛc;SourceDB=c:\inetpub\wwwroot\difersa\vtasdb\webalba.db
c;exclusive=no"
oConn3.Open "Driver={Microsoft Visual FoxPro
Driver};SourceTypeÛc;SourceDB=c:\inetpub\wwwroot\difersa\vtasdb\webalba.db
c;exclusive=no"


y luego hago cuando quiero usar el recordset hago lo siguiente:

tabla1.open temp1,oConn
tabla2.oen temp2,oConn
tabla3.open. emp3,oConn3

es correcto o solo con uno es suficiente..

muchas gracias de antemano
 

Leer las respuestas

#1 Jhonny Vargas P. [MVP]
22/01/2005 - 20:44 | Informe spam
Hola Ignacio,

1. Solo necesitas una sola coneccion y un solo recordset dependiendo para
que lo necesites...

Dim oConn, oRec, Consulta
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "string de conexion"

Consulta = "Select * from tabla"
Set oRec = oConn.Execute(Consulta)



Set oRec = Nothing

Consulta = "Select * from tabla"
Set oRec = oConn.Execute(Consulta)



Set oRec = Nothing

Consulta = "Select * from tabla"
Set oRec = oConn.Execute(Consulta)



Set oRec = Nothing


oConn.Close
Set oConn = Nothing


2. Quita tus bases de datos del INETPUB y dejalo en otra carpeta fuera del
área web, ya que te los puedes descargar y robar información.
Ejemplo: colocalos en C:\Datos a esta carpeta con el botón del lado
derecho->Propiedades->seguridad dale acceso total a los usuarios anónimos
IUSR_nombreservidor e IWAM_nombreservidor



Saludos,
Jhonny Vargas P.
Santiago de Chile



"Ignacio Betancor" escribió en el mensaje
news:uVI4J7$$
hola a todos,...

no se si estoy haciendo una locura o es correcto lo que estoy
haciendo,
por cada tabla que necesito abrir tengo que hacer la conexion pertinente
???

es decir yo estoy haciendo esto

Dim oConn1,oConn2,oConn3,tabla1,tabla2,tabla3
set oConn1=Server.CreateObject("ADODB.Connection")
set oConn2=Server.CreateObject("ADODB.Connection")
set oConn3=Server.CreateObject("ADODB.Connection")
set tabla1=Server.CreateObject("ADODB.Recordset")
set tabla2=Server.CreateObject("ADODB.Recordset")
set tabla3=Server.CreateObject("ADODB.Recordset")
oConn1.Open "Driver={Microsoft Visual FoxPro
Driver};SourceTypeÛc;SourceDB=c:\inetpub\wwwroot\difersa\vtasdb\webalba.db
c;exclusive=no"
oConn2.Open "Driver={Microsoft Visual FoxPro
Driver};SourceTypeÛc;SourceDB=c:\inetpub\wwwroot\difersa\vtasdb\webalba.db
c;exclusive=no"
oConn3.Open "Driver={Microsoft Visual FoxPro
Driver};SourceTypeÛc;SourceDB=c:\inetpub\wwwroot\difersa\vtasdb\webalba.db
c;exclusive=no"


y luego hago cuando quiero usar el recordset hago lo siguiente:

tabla1.open temp1,oConn
tabla2.oen temp2,oConn
tabla3.open. emp3,oConn3

es correcto o solo con uno es suficiente..

muchas gracias de antemano



Preguntas similares