Cambiar la conexion ahora con un DNS ???

[Gaby_Corr]

Buen dia,
Saben como cambiar la conexion ahora si tengo un DNS en mi servidor web, originalmente tengo esto y ahora quiero cambiarlo para que lo pueda leer desde mi servidor web:


-------------------------------------------------------------------------
Dim cn
Dim rs
Set cn = Server.CreateObject("ADODB.Connection")
set rs = server.createobject("ADODB.RecordSet")
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & ";Data Source=" & Server.Mappath("\db\" + "stands.mdb") & ";" & "Persist Security Info=False;Jet OLEDB:Database Password="

squery = "SELECT * FROM stands " & " WHERE stand IN (" & request.form("combo") & ")"
rs.open squery,cn
-----------------------------------------------------------------------

[Myakire]

Set adoConn = Server.CreateObject("ADODB.Connection")
adoConn.Open "NOM_ODBC"

[Gaby_Corr]

Iniciado por Gaby_Corr

Buen dia,
Saben como cambiar la conexion ahora si tengo un DNS en mi servidor web, originalmente tengo esto y ahora quiero cambiarlo para que lo pueda leer desde mi servidor web:


-------------------------------------------------------------------------
Dim cn
Dim rs
Set cn = Server.CreateObject("ADODB.Connection")
set rs = server.createobject("ADODB.RecordSet")
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & ";Data Source=" & Server.Mappath("\db\" + "stands.mdb") & ";" & "Persist Security Info=False;Jet OLEDB:Database Password="

squery = "SELECT * FROM stands " & " WHERE stand IN (" & request.form("combo") & ")"
rs.open squery,cn
-----------------------------------------------------------------------

en este caso ya no llevaria nada de :: cn.Open "Provider=..."
el squery = ... y rs.open squery,cn
seguiria igual ????
ahh se me olvidaba, deberia definir la nueva conexion ?

y en este caso como seria, igual q el anterior ????

Dim conexion
Dim rds
conexion = "Provider=Microsoft.Jet.OLEDB.4.0; " & ";Data Source=" & Server.Mappath("\db\" + "stands.mdb") & ";" & "Persist Security Info=False;Jet OLEDB:Database Password="
Set rds = Server.CreateObject("ADODB.Recordset")
rds.ActiveConnection = conexion
rds.Source = "SELECT * FROM stands" & " WHERE ocupado = 0"
rds.CursorType = 2
rds.CursorLocation = 2
rds.LockType = 3
rds.Open

[Myakire]

a ver, a ver, a ver......
Tienes páginas donde te conectas por OleDb y ahora te quieres conectar con un ODBC. Haz la conexión como te comenté y listo, todo sigue igual. Pero debes de definir el respectivo ODBC en el servidor o no te funcionará..........perdón por la pregunta pero .... ¿sabes que es un ODBC?

[Gaby_Corr]

jajaja, si si lo se =P, simplemente que con esto de las conexiones me hago bolas , gracias y deja loreviso y ya te digo q pasa ok, GRACIAS!!!

[Gaby_Corr]

oye tengo una super duda, jaja puedo hacer una sola conexion y con varios selects a mis tablas , o tengo q hacer una conexion por cada select ??

[Myakire]

Normalmente DEBES hacer solo una conexión por base de datos

[Gaby_Corr]

mmmm ok si eso es lo que quiero hacer , pero me hago bolas cuando uso los recordset, por ejemplo tengo esto:
----------------------------------------
Set conc = Server.CreateObject("ADODB.Connection")
conc.Open "Vivienda"
Set rsc = Server.CreateObject("ADODB.Recordset")
rsc.ActiveConnection = conc
rsc.Source = "SELECT * FROM items" & " WHERE item_pertenece_a = 0" & " AND id_item = " & request.form("continentes")
rsc.CursorType = 2
rsc.CursorLocation = 2
rsc.LockType = 3
rsc.Open
descripc = rsc("item_descripcion")
rsc.Close
Set rsc = Nothing





Set conp = Server.CreateObject("ADODB.Connection")
conp.Open "Vivienda"
Set rsp = Server.CreateObject("ADODB.Recordset")
rsp.ActiveConnection = conp
rsp.Source = "SELECT * FROM items" & " WHERE id_item = " & request.form("paises")
rsp.CursorType = 2
rsp.CursorLocation = 2
rsp.LockType = 3
rsp.Open
If not (rsp.EOF) then
descrippa = rsp("item_descripcion")
else
descrippa= "-"
descripse= "-"
end if
rsp.Close
Set rsp = Nothing
------------------------------------------------

ahi tengo dos select, asi estan bien ???

[Myakire]

Usa solo un

Set conp = Server.CreateObject("ADODB.Connection")
conp.Open "Vivienda"

por que vas a usar la misma conexión, no tiene caso que crees y destruyas el mismo objeto en el mismo .asp

[Gaby_Corr]

entonces me quedaria asi: ??

Set conc = Server.CreateObject("ADODB.Connection")
conc.Open "Vivienda" = AQUI YA TENGO SOLO UNA CONEXION =

Set rsc = Server.CreateObject("ADODB.Recordset")
rsc.ActiveConnection = conc
rsc.Source = "SELECT * FROM items" & " WHERE item_pertenece_a = 0" & " AND id_item = " &
....

Set rsp = Server.CreateObject("ADODB.Recordset")
rsp.ActiveConnection = conp
rsp.Source = "SELECT * FROM items" & " WHERE id_item = " & request.form("paises")
rsp.CursorType = 2
rsp.CursorLocation = 2
rsp.LockType = 3
rsp.Open
.....


ESTA BIEN ESO DE LOS RECORDSET O PUEDO HACERLO DE OTRA FORMA ???

[AlZuwaga]

Si, está bien (salvo que no sé para qué concatenás "strings constantes" en las sentencias SQL)

O sea:

1- Hacés UNA conexión
2- Instanciás un recordset que lo abris con la conexióm
3- Instanciás otro recordset que lo abris con la misma conexión
4- Trabajas con los recordsets
5- Cerras los recordsets del punto 2 y 3
6- Cerrás la única conexión existente

[Myakire]

"Ansina mesmo" dirian en mi rancho.


Espero que esto haya sido un error de "dedo"

rsp.ActiveConnection = conp

[AlZuwaga]

Mmm, no me percaté del conp, pero intuyo que no es un error de dedo.

Fijate, crea una conexión conc para usarla con un rsc. Luego, al instanciar el rsp intenta usar una conexión llamada conp cuando debería seguir usando conc

[Gaby_Corr]

asi es, es que miren asi lo tenia primero una conexion (conp) para un recordset (rsp) y hacia un select, y asi tenia varias conexiones, recordset y selects pero sobre la misma BD, ahora ya tengo nada mas una conexion (conc) pero varios recordsets, y si me funciona, pero..
estabien que lo haga asi o hay otra forma de hacerlo mejor ???

[AlZuwaga]

Si hay otra forma mejor, no lo sé. Pero...

Está muy bien que lo hagas así


;)

[Gaby_Corr]

, ya me perdi
esta bien que haga que cosa AlZuwaga ???, que tenga una sola conexion y varios recordset para las consultas ala DB, o que lo tenga de la otra forma

y muuuchas gracias !!!!!

[Myakire]

..... como diría Quico el del chavo del 8: ¡Me doy!

[AlZuwaga]

que tengas una sola conexion por cada base de datos que uses.

[Gaby_Corr]

jaja ok, gracias!!!