SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: jeobel en Miércoles 14 de Noviembre de 2007, 18:01
-
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
-
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