Cita:
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