Conexion A Base

[ccastillo]

cada vez que yo haga una consulta a una tabla tengo que poner esto

Set conn = Server.CreateObject ("ADODB.Connection")
conn.ConnectionTimeout = 15
conn.CommandTimeout = 30
conn.Open "DRIVER=SQL Server;SERVER=nomb_serv;UID=uid;PWD=pass;DATABASE= base_datos"

Set objSS = Server.CreateObject("ADODB.RecordSet")
objSS.ActiveConnection = conn
mquery = "Select notapedenc.codnotaped, Notapedenc.numfactura, Notapedenc.fecha, notapedenc.codcliente "
mquery = mquery + "From Notapedenc where "
mquery = mquery + "notapedenc.fecha >= " & trim(fec_i2) & " and notapedenc.fecha <= " & trim(fec_f2) & " order by notapedenc.fecha "
objSS.Open mquery

recorro la tabla con un bucle


al termino de la lectura coloco esto

<% objSS.Close
Set objSS = Nothing
%>

esta bien asi

[carcellan]

No es necesario indicar el nombre de la tabla cada vez que haces referencia a uno de sus campos.

Cuando abres el recordset es aconsejable añadir al Open una serie de parámetros que indiquen la manera en que lo vamos a abrir. Puedes consultar esto en el siguiente link:

<a href='ir.asp?http://www.asptutor.com/asp/vart.asp?id=5' target='_blank'>http://www.asptutor.com/asp/vart.asp?id=...</a>

[ccastillo]

entonces segun lo que lei le tendria que agregar

objRS.CursorType = 3
objRS.LockType = 2
dependiendo de la lectura que estoy asiendo y ahi estaria bien
pero

Set conn = Server.CreateObject(&quot;ADODB.Connection&quot;)
conn.ConnectionTimeout = 15
conn.CommandTimeout = 30
conn.Open &quot;DRIVER=SQL Server;SERVER=camelot;UID=ADMIN;PWD=ADMIN;DATABASE =BDsvs&quot;

siempre va antes , cada vez que voy a leeer un recorset

carla

[Aston]

Hola:

Lo peor de los programas que te generan todo el código es lo complicado que hacen las cosas sencillas y la cantidad de código de más que añaden. Para muestra un botón:

Un ejmplo para efectuar la conexión de una BD Access, 2 líneas:

<pre>
Set dbConn = Server.CreateObject(&quot;ADODB.Connection&quot;)
dbConn.Open &quot;Driver={Microsoft Access Driver (*.mdb)}; &quot; &amp; &quot;Dbq=&quot; &amp; Server.MapPath(&quot;\MiBaseD&quot;)
</pre>

Un ejemplo para abrir un recordset de una tabla Access, 2 líneas:

<pre>
Set rsLibro = Server.CreateObject(&quot;ADODB.Recordset&quot;)
rsLibro.Open &quot;Select * From Libro Order by idLib Desc&quot;, dbConn, 1
</pre>

¡Y no hay más, así de sencillo! Seguro que esto te cuesta menos comprenderlo.

Espero te sirva, un saludo. :) ;) :)

<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red"></a>

[Aston]

Hola, ahora me percato de que la conexión es a una base de datos SQL Server. Si necesitas el código igual de sencillo para SQL Server dilo y te mando ejemplos para conectar mediante el driver propio de la base de datos, por ODBC o por OLEDB.

Saludos. :)

<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red"></a>

[ccastillo]

si la conexion es a sql si me puedes mandar el ejemplo, ok

carla

[gbs25]

hola te envio la conexion y un ejemplo de un select

Set conn = Server.CreateObject(&quot;ADODB.Connection&quot;)
conn.open &quot;sisqsu&quot;,&quot;sisqsu&quot;,&quot;sisqsu &quot;
Set Session(&quot;sisqsu&quot;) = conn

sql = &quot;select k_ficha ,k_depto from r_usuarios where username='&quot; &amp; user &amp; &quot;' and password='&quot; &amp; pass &amp; &quot;'&quot;
Set rs = Server.CreateObje(&quot;ADODB.Recordset&quot;)rs.O pen SQL, conn, 3, 3


este es un ejemplo de una conexion a bas de datos oracle por medio de ADO
pero tienes que crear en tu pec o servidor un string d econexion en este caso mi string de conexion sella sisqsu
mi username y paswor tambien sisqsu

cualquier duda vuelve a escribir

[Aston]

Hola ccastillo:

Aquí tienes las tres conexiones posibles para SQL Server:

Con OLE DB.
&lt;%
Set dbIts = Server.CreateObject( &quot;ADODB.Connection&quot; )
dbIts.Open &quot;PROVIDER=SQLOLEDB;DATA SOURCE=212.80.171.5;UID=sa;PWD=8971052v;DATABASE=I t&quot;
%&gt;

Con el driver SQL Server:
&lt;%
Set Con = Server.CreateObject( &quot;ADODB.Connection&quot; )
Con.Open &quot;DRIVER={SQL Server};SERVER=NombreServidor;UID=sa;PWD=secret&qu ot;
%&gt;

Con una DSN.
&lt;%
Set Con = Server.CreateObject( &quot;ADODB.Connection&quot; )
Con.Open &quot;DNS=MiDNS;UID=sa;PWD=secret;DATABASE=Pubs&qu ot;
%&gt;

La más rápida es con OLEDB. Espero que te sirva. Un saludo, amiga. :)

<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red"></a>

[ccastillo]

gracias por tu ayuda

carla