Visual Basic - Conexion SQL Server

Life is soft - evento anual de software empresarial
 
Vista:

Conexion SQL Server

Publicado por Sheyla (3 intervenciones) el 03/01/2006 09:29:52
A ver si alguien puede con esto:
Tengo un programilla de Visual Basic que conecta con una BD en SQLServer a través de una instancia. Después de la conexión se realizan una serie de procesos de copiados de datos, consultas, etc.
Mi problema viene al principio al realizar el form activate.
Dentro del Private Sub Form Activate() y justo al realizar la conexión a la ODBC me muestra una pantalla en la que el IUD (login) y el PWD (password) están ya metidos y en la que para que funcione, únicamente hay que clickar en el botón \"Aceptar\" que te muestran. Mi pregunta es si hay alguna forma de evitar tener que clickar en el botón Aceptar y que se ejecute automáticamente, saltándose esta pantallita.
Os dejo mi cacho de código para ver si os dice algo.
Set BaseDatos = OpenDatabase(\"\", False, False, \"ODBC; DSN=MYDSN; IUD=MYIUD; PWD=MYPWD; LoginTimeout=0\")

Para más datos, la pantalla que aparece se llama \"Cuadro de diálogo Inicio de sesión de Microsoft SQL Server\"
Muestra:
Servidor.
Una casilla de verificación que pone \"Usar Conexión de confianza\"
Id. de inicio de sesión
Contraseña

Botones de Aceptar, Cancelar y Opciones.
¿Alguna otra idea?
Muchas gracias por la ayuda de verdad, ando un poco liada con esto y no consigo dar con la forma de cómo hacerlo.

Sheyla.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Conexion SQL Server

Publicado por Juan Carlos Sanchez (13 intervenciones) el 16/01/2006 23:52:06
conectate por ADO en www.conectionstrings.com estan las cadenas de conexion
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

RE:Conexion SQL Server

Publicado por Plutarco (27 intervenciones) el 17/01/2006 18:32:07
Create una función de conexión como la siguente:

Public Function ConectaBase() As Boolean
Dim strConeccion As String
On Error GoTo Err_Conecta

ConectaBase = True

With cnCnx
Puedes usar esta manera
.ConnectionString = "driver={SQLOLEDB};" & _
"server=" & pstrServidor & ";uid=" & pstrLogin & ";pwd=" & pstrPassword & ";" _
& "database=" & pstrBase

O esta otra
.ConnectionString = "provider=SQLOLEDB;data source=" & pstrServidor & ";uid=" & pstrLogin & ";" _
& "pwd=" & pstrPassword & ";initial Catalog=" & pstrBase
.CursorLocation = adUseClient

.Open
End With

Exit Function

Err_Conecta:
ConectaBase = False
End Function

Espero que esto te ayude.

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar