Problema con cadena de conexión

[t0n1]

Buenas!...tengo un problema con una cadena de conexión.

Ya hice dos proyectos con este código:

Public Cn As ADODB.Connection



Public Function Conectar() As Boolean

Dim Strconn As String

Base = App.Path

'define cadena de conexion

Strconn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=bs1;Data Source=WILLIAMS"

'establece la conexion

On Error GoTo conerror
Set Cn = New ADODB.Connection
Cn.Open Strconn
Conectar = True
Exit Function

conerror:

Conectar = False

End Function

Public Sub Desconectar()
On Error Resume Next
Cn.Close
End Sub


Y no tuve ningún problema. Cuando quise hacer un 3er proyecto, no me conecta.

Hice un debugeo para ver donde estaba el problema. Cuando me paro en base = app.path, me pone la dirección correcta en donde se encuentra la base (hasta ahí vá bien la cosa). Sigo haciendo el debug y cuando me paro en Cn.open Strconn me pasa a "conectar = false" y se termina la function interrumpiendo la conexión.

Ya me fije que pudo haber sido, puse en referencias Microsoft active x data objects, el nombre de la base es el correcto, todo está en una misma carpeta...y no puedo encontrar donde está el error.

Saludos!!

[lokoman]

Hola!!
Necesitas Usuario|Clave para el Server?

Código vb:

Sub ConectarSQL()
    Dim strConectarSQL As String
    
    Set ConexionSQL = New ADODB.Connection
 
    strConectarSQL = "Provider=SQLOLEDB.1"  _
            & ";Password=" & "PASSWORD" _
            & ";Persist Security Info=True;" _
            & ";User ID=" & "USUARIO" _
            & ";Initial Catalog=BS1" _
            & ";Data Source=WILLIAMS"
 
    ConexionSQL.ConnectionString = strConectarSQL
    ConexionSQL.Open
End Sub
 

O es que te quieres conectar a Access?

Código vb:

Set Conexion = New ADODB.Connection
    With Conexion
        .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
        App.Path & "\BaseDatos.mdb;Persist Security Info=False"
        Conexion.Open
    End With
 

[t0n1]

Iniciado por lokoman

Hola!!
Necesitas Usuario|Clave para el Server?

Código vb:

Sub ConectarSQL()
    Dim strConectarSQL As String
    
    Set ConexionSQL = New ADODB.Connection
 
    strConectarSQL = "Provider=SQLOLEDB.1"  _
            & ";Password=" & "PASSWORD" _
            & ";Persist Security Info=True;" _
            & ";User ID=" & "USUARIO" _
            & ";Initial Catalog=BS1" _
            & ";Data Source=WILLIAMS"
 
    ConexionSQL.ConnectionString = strConectarSQL
    ConexionSQL.Open
End Sub
 

O es que te quieres conectar a Access?

Código vb:

Set Conexion = New ADODB.Connection
    With Conexion
        .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
        App.Path & "\BaseDatos.mdb;Persist Security Info=False"
        Conexion.Open
    End With
 

No, es para conectarme al server sin nombre de usuario ni contraseña. Con ese mismo código ya hice dos proyectos y no tuve problema. Cuando quise hacer un tercero, en la function que hice de la cadena se me pone en false no se por que.
El nombre de la base y sesión de server son esos. La referencia está activada. Ni idea que pasa.

[t0n1]

Listo. Reinstalé el visual y anduvo. Saludosss

[lokoman]