• Domingo 17 de Noviembre de 2024, 23:46

Autor Tema:  Conneccion De B6.0 Con Sql  (Leído 1179 veces)

jeobel

  • Nuevo Miembro
  • *
  • Mensajes: 13
    • Ver Perfil
Conneccion De B6.0 Con Sql
« en: Miércoles 14 de Noviembre de 2007, 18:01 »
0
a denegado el acceso al mismo

Public Sub Main()

If App.PrevInstance = False Then
Set Coneccion = New ADODB.Connection
With Coneccion
.Provider = "SQLOLEDB.1" 'Proveedor
.ConnectionString = "User ID=sa;Initial Catalog=dbLabNHME;Data Source=LocalServer" 'origen de datos
.Open
End With
Login.Show vbModal

ElseIf App.PrevInstance = True Then
MsgBox "El programa ya esta en ejecución", vbInformation
end if

el mensaje emergen te Es:
ConectionOpen....No Existe el Servidor Sql Server o se ha denegado el acceso al Servidor

Creé una coneccion SQL desde el odbc
me dijeron que le hacia falta ingrezar el dominio y esto me recomendaron
como lo adaptaria lo sig al codigo que uso

"Esta es la cadena
server=DAITWS02;database=dbSAHME;Trusted_Connection=False;User ID=;Password=[PW];
= usuario
[PW] = contraseña
Utilice esta opción en maquinas dentro de dominio si no se logra conectar,
Sobre todo si la instalación se hizo con un usuario del dominio.
Trusted_Connection=False "

help me

Jose Arriagada

  • Miembro MUY activo
  • ***
  • Mensajes: 373
    • Ver Perfil
Re: Conneccion De B6.0 Con Sql
« Respuesta #1 en: Viernes 30 de Noviembre de 2007, 16:31 »
0
Para este caso, a mi me sucedio lo siguiente:
- En mi PC, tenia instalado SQLServer y ademas sobre el mismo equipo desarrollaba las aplicaciones. Hasta ahi todo ok. Pero, si instalaba la aplicacion en otro PC de la RED, me aparecia el mensaje que indicas. Permisos, atributos, todo ok. Pero aun asi, no lograba entrar al servidor.

- Entonces, busque otra forma de conectarme, y funciono...

- Debes crear un DSN en cada maquina. Es decir, un ODBC que se conecte al servidor SQLServer.

- Despues, en tu aplicacion, usas la conexion ODBC para conectarte a tu base de datos, usando los mismos parametros del DSN.

Te envio ejemplo de conexion...


** Debes agregar a las referencias Microsoft ActiveX Data Objects 2.6 Library o superior.


Private Sub Command1_Click()
'"DSN=midsn;UID=login;PWD=contraseña"

    Dim tField As ADODB.Field
    Set cnn = Nothing
    Set rst = Nothing
    Set cnn = New ADODB.Connection
    Set rst = New ADODB.Recordset
   
   'Mi conexion ODBC se llama Monge

    cnn.Open "DSN=Monge;UID=sa;PWD="
   
    rst.Open "SELECT * FROM pclientes", cnn, adOpenDynamic, adLockOptimistic
    Cont = 0
    While Not rst.EOF And Cont < 10
        Cont = Cont + 1
        msg = Empty
        msg = msg & rst.Fields(0).Value & "*"
        msg = msg & rst.Fields(1).Value & "*"
        msg = msg & rst.Fields(2).Value & "*"
        msg = msg & rst.Fields(3).Value & vbLf
        Print msg
        rst.MoveNext
    Wend    
    rst.Close
    cnn.Close

End Sub