login y manejo de base de datos

ahora hagamos las csas algo mas incomodas, supongamos que queremos comprobar datos de varios usuario que tenemos en l abase de datos, queremos saber cual detodos los usuario fue el que se logueo y agragar modificar y todo eso, bueno vamos a eso ahora

primero les anexo la clase que sirve para usar de conexion a la base de datos y para realizar consultas de seleccion (Select) y consultas de accion(Delete,insert into, update, etc)

El nombre de la clase es Conectividad

Código:

Imports Microsoft.VisualBasic
Imports System.Data.SqlClient
Public Class Conectividad

  Dim strConx As String = "Data Source=Nombre_Equipo\sql_2005;initial catalog=Nombre_Base_Datos;User ID=Nombre_usuario;Password=Password_usuario" 'System.Configuration.ConfigurationSettings.AppSettings.Item("conectionString").ToString 'System.ConfigurationSettings.AppSettings("strconeccion")'ConfigurationSettings.AppSettings("strconeccion")
  Public Function Consulta(ByVal pConsulta, ByRef pError) As Data.DataSet
      Dim objConn As New SqlConnection
      objConn.ConnectionString = strConx

      Dim objCmd As New SqlCommand
      objCmd.CommandType = Data.CommandType.Text
      objCmd.Connection = objConn
      objCmd.CommandText = pConsulta

      Dim daAdapter As New SqlDataAdapter
      daAdapter.SelectCommand = objCmd
      Dim dsDatos As New Data.DataSet
      Try
          daAdapter.Fill(dsDatos)
          pError = ""
          Return dsDatos
      Catch e As SqlException
          pError = "Error:" & e.Message & " en " & e.Source
      Catch e As Exception
          pError = "Error:" & e.Message & " en " & e.Source
      Finally
          objCmd.Dispose()
          objConn.Dispose()
      End Try
  End Function
  Public Function ConsultaRep(ByVal pConsulta, ByRef pError, ByVal pNomTabla) As Data.DataSet
      Dim objConn As New SqlConnection
      objConn.ConnectionString = strConx

      Dim objCmd As New SqlCommand
      objCmd.CommandType = Data.CommandType.Text
      objCmd.Connection = objConn
      objCmd.CommandText = pConsulta

      Dim daAdapter As New SqlDataAdapter
      daAdapter.SelectCommand = objCmd
      Dim dsDatos As New Data.DataSet
      Try
          daAdapter.Fill(dsDatos, pNomTabla)
          Return dsDatos
      Catch e As SqlException
          pError = "Error:" & e.Message & " en " & e.Source
      Catch e As Exception
          pError = "Error:" & e.Message & " en " & e.Source
      Finally
          objCmd.Dispose()
          objConn.Dispose()
      End Try
  End Function
  Public Sub Accion(ByVal pConsulta, ByRef pError)
      Dim objConn As New SqlConnection
      objConn.ConnectionString = strConx

      Dim objCmd As New SqlCommand
      objCmd.CommandType = Data.CommandType.Text
      objCmd.Connection = objConn
      objCmd.CommandText = pConsulta
      Try
          objConn.Open()
      Catch ex As SqlException
          pError = "Error:" & ex.Message & " en " & ex.Source
          Exit Sub
      Catch ex As Exception
          pError = "Error:" & ex.Message & " en " & ex.Source
          Exit Sub
      End Try
      Try
          objCmd.ExecuteNonQuery()
      Catch ex As SqlException
          pError = "Error:" & ex.Message & " en " & ex.Source
          Exit Sub
      Catch ex As Exception
          pError = "Error:" & ex.Message & " en " & ex.Source
          Exit Sub
      End Try
  End Sub
End Class

Bueno y despues para usar debes crear un objeto, algo asi

Dim oUsuario as New Conectividad
Dim dsUsuario as New DataSet
Dim pError as String=""
Dim strConsulta as String

strConsulta="Select * from tu_tabla where usuario=x and password=y"
dsUsuario=oUsuario.consulta(strConsulta,pError)
if pError<>"" then
'Aqui muestra tu mensaje de error, el cual lo contiene la variable pError
else
'Si no hay error, entonces
if dsUsuario.tables(0).rows.count>0 then
'Si hubo resultados y mostrar el mensaje que el usuario esta validado
else
'si no es que el usuario no existe
end if
End if


aqui te bajas un ejemplo para qu elo veas funcionando, enlos 3 links esta el mimo ejemplo, por lo que no valla a creer que son 3 ejemplo, es el mismo, en diferentes lugares
http://rapidshare.de/files/47972568/loginformsql.rar.html

http://www.megaupload.com/?d=NX9CUP8C

http://rapidshare.com/files/261069644/loginformsql.rar