Noticias solo para curiosos


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



Fashion

Beauty

Travel