Visual Basic - error conexion remota

Life is soft - evento anual de software empresarial
   
Vista:

error conexion remota

Publicado por neon (7 intervenciones) el 27/11/2010 22:03:21
buenas , soy estudiante y me propongo hacer un trabajo para mi clase sobre impulso empresarial, para lo cual es nesesario acceder a una base de atos desde un servidor de la escuela, pero en el proseso no me funciona la conexion remota,mi duda es si tengo bien el codigo de un boton en visual basic por que , al tratar de conectar a un servidor de forma remota, me manda error , pongo el codigo que uso , y si me pueden orientar para verificar si estor en un error.

Esto es un ejemplo de como quiero conectar un login pero el resultado es el mismo.
se agradece ayuda.

Dim cone As New SqlClient.SqlConnection
Dim coma As New SqlClient.SqlCommand
Dim adap As New SqlClient.SqlDataAdapter
Dim data As New DataSet

cone.ConnectionString = "Data Source=.\SQLExpress;Initial Catalog=Emprendedores;Integrated Security=true;"
coma.CommandText = "Select * from Usuarios where Usuario ='" & TextBox1.Text & "' And Contraseña ='" & MTB.Text & "';"
cone.Open()

coma.Connection = cone
adap.SelectCommand = coma
adap.Fill(data, "0")

Dim count = data.Tables(0).Rows.Count

If count > 0 Then
MsgBox("Bienvenido", MsgBoxStyle.Information)
Principal.Show()
Me.Hide()
Else
MsgBox("USuario u/o contraseña Erroneos, Intentelo otra vez", MsgBoxStyle.Critical)
TextBox1.Clear()
MTB.Clear()
End If
End Sub
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:error conexion remota

Publicado por ervaldo (5 intervenciones) el 29/11/2010 15:49:17
en un modulo :

Public AA As ADODB.Connection

'##############

Sub Conectar()

Set AA = New Connection

With AA


AA.Open "driver={SQL Server};" & _
"server=NOMBRE_SERVER;database=BASE_DATOS;uid=USUARIO;pwd=CONTRASEÑA"


End With

End Sub

Después llamas al Conectar desde donde quieras
y para cerrar solo con un AA.Close

* Es la forma en que lo hago en mi lugar de trabajo y 0 problema
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