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
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


0