Como hago para conectar a una BD con input

[gabyamenta]

Hola a todos... Explico lo que requiero...

Quisiera conectar a una base de datos SQL Server, ya se que Query para conectar a una bd es:

Obj_Conn.Open "driver={SQL Server};server=aaaaa; database=xxxxx; uid=yyyy;pwd=yyyy"

De esta menera me funciona bien el programa, pero pensando un poco mas, si por ejemplo cambiamos de servidor tendriamos que entrar al codigo fuente para cambiar el Query y eso es lo que no quiero, sino crear una pantalla que el administrador del sistema pueda mediante input cambiar los datos que sean necesario.

Ej:

Nombre del Nuevo Servidor: QQQQQ
Base de datos: xxxxx
uid: yyyy
pwd: yyyy

Para que luego me actualice el Query y mantega los datos nuevos.

Gracias por la ayuda....

[Myakire]

Los datos de conexión los requieres en un archivo plano (o xml si lo deseas) con los atributos que necesitas, luego en tu include de conección lees decho archivo y el panel de control del administrador lo actualizas.

[JuanRAPerez]

oki tendrais que crear una base de datos en access que ande con elsitio

ejemplo
un folder AdminConexion

dentro pones
* base de datos
** tabla: usuarios - para validar al administrador
** tabla: Variables_baseMSSQL
* formulario de registro validado
* pagina con formulario - validado para evitar cualquiera entre
* pagina donde haras el update de el servidor
** aqui puedes hacer un test a ver si el server esta correcto y la conexion se hace satisfactoriamente

una ves hecho o que tendrias que hacer es leer la base de access y traer en un RS y colocar ahi la informacion de tu nueva ip del server de el usuario y el pass con el que te conectaras

suerte

[gabyamenta]

Ya habia creado una tabla en la base de datos y perfecto realizo el update a los datos de nombre de servidor, login, pasword y nombre de la base de datos, pero el problema esta en el momento de volver a realizar el query para la conexion a la nueva base de datos...

Y contestandole a Myakire, estoy utilizando el include con un archivo unicamente para la conexión...

Si aun tienen duda en lo que quiero pueden preguntar nuevamente...
Gracias

[Myakire]

mmmmm, ¿contestándome? , de hecho no pregunté nada más bien te sugería un camino para solucionar tu problema, crear un xml o txt donde guardes esos datos y lo leas en ese include de conexión. No creo que una tabla te sirva para esto a menos que desees tener siempre un access que solo sirva para guardar los datos de conexión a la BD "de verdad".

Ahora si pregunto, ¿me dí a entender? o quizá tienes problemas con la creación/lectura de dicho archivo.

[JuanRAPerez]

Iniciado por gabyamenta

Ya habia creado una tabla en la base de datos y perfecto realizo el update a los datos de nombre de servidor, login, pasword y nombre de la base de datos, pero el problema esta en el momento de volver a realizar el query para la conexion a la nueva base de datos...

como en realizar el query???


antes de hacer tu strin de conexion

select * from TuTabla en tu base de access


MiServer = rs("QQQQQ")
Mibase = rs("base")
.. etc

y luego reemplaza
Obj_Conn.Open "driver={SQL Server};server="&MiServer&"; database="&MiBase&"; uid=yyyy;pwd=yyyy"

[gabyamenta]

En una pantalla estoy colocando los input de nombre del servidor, nombre base de datos, login y password.

Esos datos los estoy enviando a otra pagina mediante POST y coloco el siguiente codigo:

Dim Srv_SATB
Dim bd_SATB
Dim Login_SATB
Dim pwd_SATB

'CONDICION PARA SABER SI ESTAN CAMBIANDO LOS DATOS DEL SERVIDOR...
If request.Form("Srv_SATB") = "" and Request.Form("login_SATB") = "" and request.Form("Pwd_SATB") = "" and Request.Form("bd_SATB") = "" then
'VARIABLES FIJAS DE CONEXION A LA BASE DE DATOS
Srv_SATB = "LOCAL"
bd_SATB = "SATB"
login_SATB = "SATB"
pwd_SATB = "satb"

response.Write("CONECTADO A LA BD")
Else
'VARIABLES DEL FORMULARIO DE ACTUALIZACION DE LA BASE DE DATOS
Srv_SATB = request.Form("Srv_SATB")
bd_SATB = request.Form("bd_SATB")
login_SATB = request.Form("login_SATB")
pwd_SATB = request.Form("Pwd_SATB")

response.Write("ACTUALIZADA LA BD")

end if
Dim cnn_SATB
Dim Rs_SATB
Dim sql
'OBJETOS DE CONEXION
Set cnn_SATB = Server.CreateObject("ADODB.connection")
Set Rs_SATB = Server.CreateObject("ADODB.RecordSet")

'QUERY A LA BASE DE DATOS
'Conn_SATB.Open "driver={SQL Server};server="&Srv_SATB&"; database="&bd_SATB&"; uid="&login_SATB&"; pwd="&pwd_SATB&""

DE esta manera me funciona perfectamente, el problema es que si se cambia la informacion y se actualiza como hago para que tome los valores nuevos y sustituya los anteriores...

Espero haber sido mas explicita....

Gracias