data sourse, initial catalog como variable

[carnero]

hola una consuta
es posible que el nombre del equipo sea una variable ( incluyendo cuando se usa adodc) cosa de no tener que cambairlo cada ves que trabajo en un pc distinto??

Código:

 Set cnn = New ADODB.Connection
                    Set rst = New ADODB.Recordset
                    cnn.Open "Provider=SQLOLEDB; " & _
                    "Initial Catalog=basedatos; " & _
                    "Data Source=PC1; " & _
                    "integrated security=SSPI; persist security info=True;"

lo que marque en rojo ¿se puede pner como variable?? , si se puede como se hace??

gracias

[lokoman]

Hola!!
Intenta lo siguiente:
dim VARIABLE_CON_NOMBRE_DE_BASE_DE_DATOS as string
dim DATA_SOURCE_PC as string

VARIABLE_CON_NOMBRE_DE_BASE_DE_DATOS=basedatos
DATA_SOURCE_PC=PC1

Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
cnn.Open "Provider=SQLOLEDB; " & _
"Initial Catalog=" & VARIABLE_CON_NOMBRE_DE_BASE_DE_DATOS & "; " & _
"Data Source=" & DATA_SOURCE_PC & "; " & _
"integrated security=SSPI; persist security info=True;"

PD:debes pasar los valores desde la aplicación, pon dos textbox, uno para el nombre de la base de datos y el otro para el data source.

[carnero]

y en el adodc?? igual?

Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog= VARIABLE_CON_NOMBRE_DE_BASE_DE_DATOS;Data Source=DATA_SOURCE_PC

[lokoman]

Todo seguiría igual... recuerda poner la "&" antes y despues de las variables:
"Initial Catalog=" & VARIABLE_CON_NOMBRE_DE_BASE_DE_DATOS & ";....

[carnero]

no me ocnecta el adodc lo puse como me dices, el codigo ningun problema

[lokoman]

Cual es el error que te está mostrando?
Guarda el string de la conexion en una variable, luego asignala a la conexion. Comprueba que el strConection está correcto...

strConection="Provider=SQLOLEDB; Initial Catalog=" & VARIABLE_CON_NOMBRE_DE_BASE_DE_DATOS & "; Data Source=" & DATA_SOURCE_PC & "; integrated security=SSPI; persist security info=True;"

cnn.connectionstring=strConection
cnn.open

[carnero]

Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog="&Log.bd&";Data Source="&Log.pc&"

eso tengo en
agregale www no puedo postiar link
.vbexplorer.com/VBExplorer/Wrox/graphics1061/Image60.gif

me da el error:

[DBNETLIB][ConnectionOpen(Connect()).]No existe el servidor SQL Server o se ha denegado el acceso al mismo.

cnn.connectionstring=strConection
cnn.open

esto va en el codigo cuando se va a ejecutar el adodc o no??

me puedes explicar con manzanas ajajajaajajjaaj

[pkj]

Quizá solo es que no estás dejando espacio entre los "&", aparte de poner mal las comillas.

cnn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=" & Log.bd & ";Data Source=" & Log.pc

Saludos

[carnero]

Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=" & Log.bd & ";Data Source=" & Log.pc & "

asi???, igual no funciona

[pkj]

Sigues cometiendo el mismo fallo.

Las comillas deben recoger lo que pones literalmente:

"Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog="

Luego con & pegas variables de texto a ese primer texo:


"Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=" & Log.bd & ";Data Source=" & Log.pc

Lo rojo es texto literal, lo demás son las variables que no deben estar dentro de comillas o se usaran literalmente.

[carnero]

La operacion de multiples paso de OLE DB genero errores. Compruebe los valores de estado de OLE si es posible. No se realizo ningun trabajo.

eso me salio

[pkj]

Sabes que de bases de datos no entiendo, pero por lo que he leido la causa de ese error puede ser que intentas usar un valor de diferente tipo que el que se admite para ese dato.

http://www.forosdelweb.com/f15/opera...rrores-372418/

Quizá usas un valor numerico en la variable Log.PC o Log.DB y la base de datos espera una cadena de texto (por decir algo).
Yo probaría poniendo comillas simples (claro que no se ni para que se usan, así que yo con la poca idea que tengo probaría cualquier cosa):

Código :

cnn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog='" & Log.bd & "';Data Source='" & Log.pc & "'"
 

Si a alguien se le ocurre algo mejor que lo diga.

Suerte